Thema: Delphi ValueListEditor

Einzelnen Beitrag anzeigen

Delphi.Narium

Registriert seit: 27. Nov 2017
2.508 Beiträge
 
Delphi 7 Professional
 
#7

AW: ValueListEditor

  Alt 1. Feb 2023, 11:35
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
  Mit Zitat antworten Zitat