Memo den Wert eines TStrings-Datenfeld zuweisen

[PAX]

Delphi-Quellcode:

procedure TForm1.FormShow(Sender: TObject);
Var i: Cardinal;
begin
 For i := 1 To 1000 Do begin
  MemoInhalt[i] := TStrings.Create;
 end;
end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
// MemoInhalt[ListBox1.ItemIndex].Clear;
// MemoInhalt[ListBox1.ItemIndex].Add('Nix drin');

//  Memo1.Free;
 //  Memo1.Lines.Assign(MemoInhalt[ListBox1.ItemIndex]);
  Memo1.Lines.Assign(MemoInhalt[1]);
//  Memo1.Lines.AddStrings(MemoInhalt[ListBox1.ItemIndex]);
end;

Das isses!

PAX