Forum: Object-Pascal / Delphi-Language
Delphi
by Delphi.Narium,
1. Feb 2023
Ich gehöre auch "zum alten Eisen", sprich: bin Rentner. Und sehe das Rentnerdasein mit 'nem Augenzwinkern, weil all die Klischees über Rentner irgendwie so überhauptganzundgarnichtnochnichtmalansatzweisenochvielwenigerundsowiesonicht passen :-)
Forum: Object-Pascal / Delphi-Language
Delphi
by Delphi.Narium,
1. Feb 2023
Die Smilies in meinen Text sind ja nicht so ganz unbeabsichtigt.
Natürlich kann man auch als Rentner 'ne neue Delphiversion, die auch noch kostenlos ist, nutzen oder einfach FreePascal verwenden und zum Frischhalten der grauen Zellen auch was Neues ausprobieren.
Man hat als Rentner halt die Freiheit zu entscheiden: Delphi 7 reicht mir oder ich will was Neues. Das "Muss" zum Aktuellbleiben...
Forum: Object-Pascal / Delphi-Language
Delphi
by Delphi.Narium,
1. Feb 2023
(* 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;
Forum: Object-Pascal / Delphi-Language
Delphi
by Delphi.Narium,
1. Feb 2023
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 (* PickListe --> Memo1 *)
procedure TForm1.BitBtn10Click(Sender: TObject);
Var Laenge, i : Integer;
begin