Forum: Object-Pascal / Delphi-Language
Delphi
by himitsu,
24. Nov 2003
Noch mal das, was devnull schon sagen wollte:
{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 }
Forum: Object-Pascal / Delphi-Language
Delphi
by himitsu,
24. Nov 2003
Ein Hallöle von http://www.FrankNStein.de/Smiley-Wolke.gif,
oder kurz und knapp.
Var Datei: File of Integer;
Wert: Integer;
{speichern}
AssignFile(Datei, 'Datei.Name');
Rewrite(Datei);
Write(Datei, Wert);