Memo-Feld auslesen

[hummer]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var x : array[1..10,1..3] of string; i1,i2 : integer;
begin
  for i1 := 1 to 10 do
    for i2 := 0 to 2 do
      x[i1,i2] := TMemo(FindComponent('memo' + IntToStr(i1))).Lines[i2];
end;

So müßte es gehen.

[edit]Mist schon wieder zu langsam.[/edit]