Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Datei verändern (https://www.delphipraxis.net/85614-datei-veraendern.html)

Gehstock 2. Feb 2007 10:00


Datei verändern
 
Also es wird eine Datei geladen deren Inhalt an einer bestimmten Stelle mit dem inhalt eines TEdit ersetzt werden soll und dann wieder gespeichert wird
Delphi-Quellcode:
FillChar(buf[$001304],$001323-$001304,$FF);
das Klappt

Delphi-Quellcode:
FillChar(buf[$03e410],$03e41e-$03e410,Text);
hier sind incompitable Types (der String halt)

wie muss ich "Text" verändern

MarcoWarm 2. Feb 2007 10:03

Re: Datei verändern
 
FillChar benötigt als letzten Parameter (wie der Name schon sagt) den Ordinalwert eines Characters und nicht einen String.

MrKnogge 2. Feb 2007 10:04

Re: Datei verändern
 
Zitat:

Zitat von Gehstock
wie muss ich "Text" verändern

Was für eine Fehlermeldung kommt denn ?

Probier mal folgendes:
Delphi-Quellcode:
FillChar(buf[$03e410],$03e41e-$03e410,Char(Text)); //IMEI
[Edit]
Sorry, ich meinte PChar(Text)

MarcoWarm 2. Feb 2007 10:06

Re: Datei verändern
 
Zitat:

Zitat von MrKnogge
Delphi-Quellcode:
FillChar(buf[$03e410],$03e41e-$03e410,Char(Text)); //IMEI

*räusper* das geht nicht... wie soll man einen String in ein einzelnes Zeichen casten??????

mkinzler 2. Feb 2007 10:15

Re: Datei verändern
 
Delphi-Quellcode:
FillChar(buf[$03e410],$03e41e-$03e410,Text[1]);
nimmt 1. Zeichen

Gehstock 2. Feb 2007 10:35

Re: Datei verändern
 
Zitat:

Zitat von mkinzler
Delphi-Quellcode:
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

mkinzler 2. Feb 2007 10:38

Re: Datei verändern
 
Nimm doch ne Schleife

Khabarakh 2. Feb 2007 11:22

Re: Datei verändern
 
Zitat:

Zitat von mkinzler
Nimm doch ne Schleife

*räusper* Delphi-Referenz durchsuchenMove *hust*


Alle Zeitangaben in WEZ +1. Es ist jetzt 01:09 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz