Danke Himitsu,
Deine ersten 2 Vorschläge funktionieren beide.
Gleichgültig ob mit oder ohne Memo1.Clear.
Zu Deinem Vorschlag ein neueres Delphi zu verwenden: Ich bin mittlerweile 77 Jahre alt und ein reiner Delphi-Autodidakt.
"Never change a running system". Ist mir auch zu teuer !
Danke nochmals !!
Delphi-Quellcode:
(* PickListe --> Memo1 *)
procedure TForm1.BitBtn10Click(Sender: TObject);
Var Laenge,i : Integer;
begin
Memo1.Clear;
Laenge := AktienName.Count;
showMessage(IntToStr(Laenge)); // Laenge ist OK
For i := 0 to (Laenge -1) do
begin
Memo1.Lines[i] := AktienName[i]; // lustig --> wenn ich Memo1.Clear einsetze kommt nur noch ein Aktienname (sonst 2)
// Memo1.Lines.Text := AktienName.Text; // es funktionieren beide Vorschläge
// Memo1.Text := AktienName.Text; // es funktionieren beide Vorschläge
end;
end;