Variablen in Textdateien speichern und abrufen

[devnull]

Hi BlueScreen,

Zitat:

Code:
procedure TForm1.Laden1Click(Sender: TObject);
begin
AssignFile(Datei, 'Datei.dat');
Read(Datei, Wert);
CloseFile(Datei);
n:=Wert;
end;

erweitere deinen Code doch mal um folgende zeilen:

Delphi-Quellcode:

procedure TForm1.Laden1Click(Sender: TObject);
var datei : textfile;
begin
  AssignFile(Datei, 'Datei.dat');
  // GANZ WICHTIG
  // öffnet datei zum lesen ,siehe hilfe
  {$I-}
    reset (datei);
  {$I+}
  // Hoffe, dass diesmal das so stimmt :angle: 
  if IOResult <> 0 then RaiseLastOSError;
  Read(Datei, Wert);
  CloseFile(Datei);
  n:=Wert;
end;

devnull