各位大大，大家好：       想請問一下，我的問題在於如果有2個陣列(a、b)，要如何讓這2個陣列link在一起呢??(如圖)                     謝謝大家                                            cherng32 發表人 - src="http://delphi.ktop.com.tw/loadfile.php?TOPICID=14963291&CC=334649"> 發表人 - cherng32 於 2004/04/07 18:27:47

Hi cherng32 Try This:

procedure TForm1.Button2Click(Sender: TObject);
var
   a, b : Array of Char;
   i, j : integer;
begin
   SetLength(a, 10);
   SetLength(b, 10);
   for i := Low(a) to High(a) do
       a[i] := 'a';
   for i := Low(b) to High(b) do
       b[i] := 'b';
   j := High(a);
   SetLength(a, Length(a) Length(b));
   for i := Low(b) to High(b) do
       a[j i 1] := b[i];
end;

我不是高手, 高手是正在銀幕前微笑的人.

------


我不是高手, 高手是正在銀幕前微笑的人.

我個人是比較不愛用陣列的 我比較愛TStringList 雖然用的時候要create但是很方便用 要加再一起也很方便,再這裡提供你做參考 不過要怎麼用得看你的需求而定啦... array or tstringlist var aList, bList, cList: TStringList; begin aList:= TStringList.Create; bList:= TStringList.Create; cList:= TstringList.Create; try aList.AddStrings(Memo1.Lines); bList.AddStrings(Memo2.Lines); cList.AddStrings(aList); cList.AddStrings(bList); Memo3.Lines.Text:= cList.Text; finally aList.Free; bList.Free; cList.Free; end; end;

謝謝你的回應我會試試看的，用tstringlist的確比較方便