Ich möchte umsetzten das wenn die datei datei.txt nicht existiert diese zuerst erstellt wird und der Wert 0 eingetragen.
Wenn die Datei allerdings schon existiert soll er einfach wie normal weiter machen.
Mein momentaner code sieht so aus nur der will irgendwie noch nicht so ganz.
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
| Neu := 0;
if not FileExists('C:\datei.txt') then
sl:=TStringList.Create;
try
sl.Add(IntToStr(Neu));
sl.SaveToFile('C:\datei.txt');
finally
sl.free;
end;
sl2:=TStringList.Create;
try
sl2.LoadFromFile('C:\datei.txt');
Id := StrToInt(sl2[0]);
inc (Id);
ShowMessage(IntToStr(Id));
finally
sl2.free
end;
sl:=TStringList.Create;
try
sl.Add(IntToStr(Id));
sl.SaveToFile('C:\datei.txt');
finally
sl.free;
end; |
