Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.088 Beiträge
Delphi 12 Athens
|
Re: Edit's, Checkboxen, Listboxen als Txt Datei speichern?
9. Jun 2009, 11:42
Delphi-Quellcode:
var F: TextFile;
AssignFile(F, Datei);
Rewrite(F);
WriteLn(F, Edit1.Text); // wird immer geschrieben
if Edit2.Text <> '' then WriteLn(F, Edit2.Text); // nur wenn gefüllt
if CheckBox1.Checked then WriteLn(F, 'text für gewählte CheckBox');
...
CloseFile(F);
oder
Delphi-Quellcode:
var sl: TStringList;
sl := TStringList.Create;
sl.Add(Edit1.Text); // wird immer geschrieben
if Edit2.Text <> '' then sl.Add(Edit2.Text); // nur wenn gefüllt
if CheckBox1.Checked then sl.Add('text für gewählte CheckBox');
...
sl.SaveToFile(Datei);
sl.Free;
aber zurück in die Controls einlesen/laden kann man das dann nimmer, da es keine Zuordnungsmöglichkeit gibt.
Neuste Erkenntnis:
Seit Pos einen dritten Parameter hat,
wird PoSex im Delphi viel seltener praktiziert.
|