Einzelnen Beitrag anzeigen

Delphiturbo
(Gast)

n/a Beiträge
 
#1

StrToInt Erorror vermeiden !

  Alt 6. Mai 2008, 22:23
Hallo
die Freude hält nicht länger und schon ein neues Problem da

So wird den Wert s1 von ini Datei geholt
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var MyIniFile : TInifile;
begin
MyIniFile := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'MyIniFile.ini');
s1 := MyIniFile.ReadString('Section1','zahl1','nicht gefunden');

MyIniFile.Free;
end;
nun kommt der Code:
Delphi-Quellcode:
// wenn die ini Datei nicht da, kein Problem
// wenn die ini Datei da ist, aber kein Integer und unkonvertierbar zu Integer dann error
if StrToInt(s2) - strToInt(S1) > 10 then // kommt eine Fehlermeldung
Wie kann ich folgendes machen:
Wenn der Inhalt von zahl1 kein Integer und nicht möglich in Integer zu konvertieren
dann soll s1 :='0' ?

Beispiel : 10000x ist z.B. ein String und kann man nicht in Integer konvertieren

Ich möchte s1 auch initialisieren, wenn es nicht in Integer konvertierbar ist !!!
  Mit Zitat antworten Zitat