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;
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.Add(i]) := AktienName[i];
end;
end;
oder
Delphi-Quellcode:
(* PickListe --> Memo1 *)
procedure TForm1.BitBtn10Click(Sender: TObject);
begin
Memo1.Lines.Text := AktienName.Text; // Alle AktienNamen werden auf einmal ins Memo übertragen.
end;
oder
Delphi-Quellcode:
(* PickListe --> Memo1 *)
procedure TForm1.BitBtn10Click(Sender: TObject);
begin
Memo1.Text := AktienName.Text; // Alle AktienNamen werden auf einmal ins Memo übertragen.
end;
Warum die "oder"?
AktienName.Text;
enthält bereits alle Texte, so dass hier die For-Schleife entfallen kann. Bei Nutzung der Vorschleife wird quasi für jeden Aktiennamen einmal alles durch alles ersetzt. Es wird also unnütz viel Aufwand betrieben.
Abgesehen davon ist Delphi 7 nach wie vor eine excellent gute Entwicklungsumgebung und immernoch mein 'Lieblingsspielzeug'. Die Masse der Probleme, nach deren Lösung hier im Forum bezüglich neuerer Delphiversionen und der
IDE gefragt wird, hat man mit Delphi 7 einfach nicht
Und nein, es ist nicht mehr "state of the art", aber als Hobby für das, was man so als Rentner benötigt, reicht es vollkommen aus