Hier der restliche Urschleim
Delphi-Quellcode:
Zaehler := Zaehler +1;
Edit2.Text := Format('%.7d',[Zaehler]);
Delphi-Quellcode:
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
SL: TStrings;
begin
SL := TStringList.Create;
try
SL.Add(Edit2.Text);
SL.SaveToFile(ExtractFilePath(ParamStr(0)) + 'Identifikator.dat');
finally
SL.Free;
end;
end;
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var
SL: TStrings;
begin
SL := TStringList.Create;
try
SL.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'Identifikator.dat');
if SL.Count>0 then
Edit2.Text:=SL[0];
finally
SL.Free;
end;
Hatte einen Fehler in meiner Beschreibung oben!
Zaehler : Integer = StrToInt(Edit2.Text); // was auch nicht funktoniert! :-)