Einzelnen Beitrag anzeigen

Benutzerbild von Corpsman
Corpsman

Registriert seit: 8. Nov 2005
Ort: nähe Stuttgart
981 Beiträge
 
Delphi XE2 Professional
 
#11

Re: Wie Erkenne ich den Unterschied zwischen Unix und Win32

  Alt 27. Dez 2006, 19:04
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
Uwe
My Sitewww.Corpsman.de

My marble madness clone Balanced ( ca. 70,0 mb ) aktuell ver 2.01
  Mit Zitat antworten Zitat