Einstellungen speichern, wie?

[himitsu]

Ein Hallöle von http://www.FrankNStein.de/Smiley-Wolke.gif,

oder ganz einfach.

in Datei speichern:

Delphi-Quellcode:

Var F: TextFile;

Begin
  AssignFile(F, 'Dateiname.txt');
  Rewrite(F);
  WriteLn(F, Edit1.Text);  {User}
  WriteLn(F, Edit2.Text);  {Host}
  WriteLn(F, Edit3.Text);  {Passwort}
  WriteLn(F, Edit4.Text);  {Path}
  CloseFile(F);
End;

Dateiauslesen:

Delphi-Quellcode:

Var F: TextFile;
  S: String;

Begin
  AssignFile(F, 'Dateiname.txt');
  {$I-}  Reset(F);  {$I+}
  If IOResult = 0 Then Begin
    ReadLn(F, S);  Edit1.Text := S;  {User}
    ReadLn(F, S);  Edit2.Text := S;  {Host}
    ReadLn(F, S);  Edit3.Text := S;  {Passwort}
    ReadLn(F, S);  Edit4.Text := S;  {Path}
  End Else Begin
    Edit1.Text := '';  {User}
    Edit2.Text := '';  {Host}
    Edit3.Text := '';  {Passwort}
    Edit4.Text := '';  {Path}
  End;
  CloseFile(F);
End;

http://www.FrankNStein.de/Smiley-Kuss.gif * * http://www.FrankNStein.de/Smiley-Spinne.gif * * * http://www.FrankNStein.de/Smiley-Winken.gif