Thema: Delphi Datei verändern

Einzelnen Beitrag anzeigen

Gehstock

Registriert seit: 28. Jan 2006
Ort: Görlitz / Sachsen
489 Beiträge
 
Delphi 2007 Professional
 
#6

Re: Datei verändern

  Alt 2. Feb 2007, 11:35
Zitat von mkinzler:
FillChar(buf[$03e410],$03e41e-$03e410,Text[1]); nimmt 1. Zeichen


Delphi-Quellcode:
           FillChar(buf[$03e410],$03e411-$03e410,ord(simei[1])); //IMEI
           FillChar(buf[$03e411],$03e412-$03e411,ord(simei[2])); //IMEI
           FillChar(buf[$03e412],$03e413-$03e412,ord(simei[3])); //IMEI
           FillChar(buf[$03e413],$03e414-$03e413,ord(simei[4])); //IMEI
           FillChar(buf[$03e414],$03e415-$03e414,ord(simei[5])); //IMEI
           FillChar(buf[$03e415],$03e416-$03e415,ord(simei[6])); //IMEI
           FillChar(buf[$03e416],$03e417-$03e416,ord(simei[7])); //IMEI
           FillChar(buf[$03e417],$03e418-$03e417,ord(simei[8])); //IMEI
           FillChar(buf[$03e418],$03e419-$03e418,ord(simei[9])); //IMEI
           FillChar(buf[$03e419],$03e41a-$03e419,ord(simei[10])); //IMEI
           FillChar(buf[$03e41a],$03e41b-$03e41a,ord(simei[11])); //IMEI
           FillChar(buf[$03e41b],$03e41c-$03e41b,ord(simei[12])); //IMEI
           FillChar(buf[$03e41c],$03e41d-$03e41c,ord(simei[13])); //IMEI
           FillChar(buf[$03e41d],$03e41e-$03e41d,ord(simei[14])); //IMEI
           FillChar(buf[$03e41e],$03e41f-$03e41e,ord(simei[15])); //IMEI
habs jetzt so nich schön aber funzt
Marcel
  Mit Zitat antworten Zitat