請高手指教乙個DELPHI演算法應該怎麼寫 20

請高手指教乙個delphi演算法應該怎麼寫

1樓：熊冰昳

8層for迴圈。。。

或者用遞迴。。。

constmax = 8;

vara: array[0..max] of pchar;

b: array[0..max, 0..max] of integer;

i, j: integer;

beginfor i :=1 to max doa[i] :chr(i+ord('a'))for i :=1 to max do

for j :=1 to max do

b[i, j] :i * a[j];

for i :=1 to max do

beginfor j :=1 to max do:= + #9 + inttostr(b[j, i]);

end;end;

2樓：湖藍色de雪花

8層for迴圈。。。

或者用遞迴。。。

delphi方法的理論體系是怎麼樣的??

3樓：匿名使用者

乙個調鬧虧用delphi方法的簡單例程。

通過對乙個memo部件的文字進行剪下、拷貝、貼上、清除等的應用程式編制，介紹使用delphi過程和函式的呼叫方法。

memo(備註)部件有乙個cuttoclipboard方法，實現將使用者在memo中選擇的文字移到剪貼簿上去。由於這個功能已經被建立在此方法中了，所以您只需知道這個方法做什麼以及如何使用它即可。

下面的語句表明如何呼叫乙個名為memo1的memo部件的cuttoclipboard方法：

通過指定memo1的名稱，說明呼叫哪乙個部件的cuttoclipboard方法。如果不指明物件名稱，delphi會顯示unknown identifier錯誤。當該事件處理過程被觸發，程式會執行cuttoclipboard中的語句，將memo1中的文字剪貼到剪貼簿上去。

下文的例友辯程液告神展示瞭如何呼叫delphi的方法，實現將備註部件的文字資訊剪下、拷貝到剪貼簿上；將剪貼簿上的標記文字貼上到備註中，清除備註部件中的全部文字等四個功能。

開啟乙個新的空窗體，加入乙個memo部件和四個按鈕，並排列整齊。改變按鈕部件的name屬性，分別命名為cut,copy,paste,clear。您會發現，當name屬性發生改變時，caption屬性將發生相應的變化。

在caption屬性前加標「&」號設立加速鍵。

將memo部件的scrollbars屬性設為scvertical，以便加上滾行條。將wordwrap屬性設定為true，這樣當使用者輸入文字到達memo部件的右邊緣時會自動回行。將line屬性第一行的memo1文字刪除，使得memo部件在初始顯示時為空的。

為每乙個按鈕建立如下的事件處理過程：

procedure : tobject)；

end; procedure : tobject);

end; 執行此程式。您可以在備註部件中輸入文字，在進行了文字的標記後，可以任意地進行剪下、拷貝、貼上和清除。當按鈕被按動時，就呼叫相應的過程進行處理。

使用者可以通過查閱**幫助進行memo部件的topic search，在memo component項中查閱method，會得到以上過程的詳細說明。