Forum: Object-Pascal / Delphi-Language
Delphi
by moelski,
20. Apr 2009
Moin !
Danke das hilft mir erstmal.
Forum: Object-Pascal / Delphi-Language
Delphi
by moelski,
20. Apr 2009
Moin !
Das bringt leider auch nix
Forum: Object-Pascal / Delphi-Language
Delphi
by moelski,
20. Apr 2009
Die MessageBox war ja nur damit der Compiler das nicht gleich verwirft.
Ich habe mir das im Debugger angesehen. Und da kann man eben sehen das kein replace statt findet :-(
Forum: Object-Pascal / Delphi-Language
Delphi
by moelski,
20. Apr 2009
Moin nochmal ..
Kann es sein das StrngReplace ein Problem mit $00 hat ?
Denn das geht nicht:
Data := HexStrToString('001901DBDC');
Aber das geht :
Data := HexStrToString('1901DBDC');
Forum: Object-Pascal / Delphi-Language
Delphi
by moelski,
20. Apr 2009
Moin !
Also entweder habe ich gerade ne Blockade, oder mein Compiler mag mch nimmer. :gruebel:
function HexStrToString(const value:string):string;
begin
SetLength(Result, Length(value) div 2); // es wird halber Platz benötigt
if Length(value) > 0 then
HexToBin(PChar(value), PChar(Result), Length(value));