Delphi-Quellcode:
Procedure Readini;
Var
f: Textfile;
w, h, s:
String;
b: Boolean;
l: Tstringlist;
Begin
s := apppath + '
user.cfg';
//copy(Texturepath, 1, length(Texturepath) - 9) + 'User.cfg';
b := True;
If FileExists(s)
Then Begin
// Konvert from Unix to Win32 -- Begin
l := Tstringlist.create;
l.loadfromfile(s);
sleep(10);
l.savetofile(s);
l.free;
sleep(10);
// Konvert from Unix to Win32 -- End
assignfile(f, s);
reset(f);
..
Wie ihr Seht prüfe ich nicht.
Die Files sind so klein, da spare ich mir das