Wieviele Zeilen hat das Memo denn?
Genausoviel wie Aktienname? Wo wird das sichergestellt?
Was sagt denn
ShowMessage(Memo1.Lines.Count)
? Zufällig 2?
Wie wäre es denn mit
Delphi-Quellcode:
(* PickListe --> Memo1 *)
procedure TForm1.BitBtn10Click(Sender: TObject);
Var Laenge, i : Integer;
begin
Memo1.Lines.Clear;
Laenge := AktienName.Count;
ShowMessage(IntToStr(Laenge)); // Laenge ist OK
for i := 0 to (Laenge - 1) do
begin
ShowMessage(AktienName[i]); // hier OK !! es kommen alle 7 Aktienklarnamen
Memo1.Line.Add(AktienName[i]); // Hier werden nun alle Aktienklarnamen ans Memo angehängt.
end;
end;