Einzelnen Beitrag anzeigen

strom

Registriert seit: 23. Aug 2008
Ort: Keine Ergebnisse gefunden
290 Beiträge
 
#4

AW: String einem Integer zuordnen

  Alt 2. Sep 2016, 11:21
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! :-)

Geändert von strom ( 2. Sep 2016 um 11:33 Uhr)
  Mit Zitat antworten Zitat