Forum: Algorithmen, Datenstrukturen und Klassendesign
by blawen,
24. Sep 2022
und auch "richtiger" - die Stringliste sollte auch wieder freigegeben werden ;-)
FileExists müsste vermutlich nicht eingesetzt werden, da eigentlich nur eine existierende Datei per OpenDialog ausgewählt werden kann.
Aber wenn JimmyB die Datei direkt aufrufen möchte, ist es zu empfehlen.
procedure TForm1.Button1Click(Sender: TObject);
var
sListe : TStringList;
iZaehler : Integer;
...
Forum: Algorithmen, Datenstrukturen und Klassendesign
by blawen,
24. Sep 2022
Eine andere Variante mit 3 bereits vorhandenen Checkboxen, einem OpenDialog, einem Memo als visuelle Kontrolle für den Textinhalt:
procedure TForm1.Button1Click(Sender: TObject);
var
sListe : TStringList;
iZaehler : Integer;
begin
if OpenDialog1.Execute
then begin