Variablen in Textdateien speichern und abrufen

[himitsu]

Noch mal das, was devnull schon sagen wollte:

Delphi-Quellcode:

{lesen}
AssignFile(Datei, 'Datei.Name');
{$I-}  Reset(Datei);  {$I+}
If IOResult = 0 Then Begin
  If FileSize(Datei) = 4 Then 
    Read(Datei, Wert)
  Else Wert := 0;   {*}
  CloseFile(Datei);
End Else Wert := 0; {dieser Wert wird verwendet, wenn die Datei }
                    {fehlerhaft oder nicht vorhanden ist}

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