Suche String->Hex Funktion

[Jumpy]

Die erste Variante mit .2 war schon OK. Ausgangspunkt wird ja wahrsch. ein Ansi-String sein. Daher kann die Gegenseite, der das als Command später geschickt wird, mit "2B3439..." wahrscheinlich mehr anfangen als mit "002B00340039...".

Kleines Rätsel für Gelangweilte: Was wird da wohl verschickt werden?

Und nochmal danke für die Beteiligung.

[Neutral General]

IntToHex gibt es um eure Verwirrung mal aufzuheben

[shmia]

Siehe Code-Library: http://www.delphipraxis.net/39740-he...aerstring.html
Diese Funktionen sind viel schneller als das Zeichenweise anhängen wie im Beispiel oben.

[p80286]

Zitat von shmia:

Siehe Code-Library: http://www.delphipraxis.net/39740-he...aerstring.html
Diese Funktionen sind viel schneller als das Zeichenweise anhängen wie im Beispiel oben.

Aber obacht, D2010 hat als Standard 16Bit Chars und da könnte es Probleme geben.
(sizeof statt length nutzen?)

Gruß
K-H

[DeddyH]

Besser beides: Length * SizeOf(Char)
Nee, Quatsch, es sind ja beides Strings.

[Sir Rufo]

Zitat von p80286:

Zitat von shmia:

Siehe Code-Library: http://www.delphipraxis.net/39740-he...aerstring.html
Diese Funktionen sind viel schneller als das Zeichenweise anhängen wie im Beispiel oben.

Aber obacht, D2010 hat als Standard 16Bit Chars und da könnte es Probleme geben.
(sizeof statt length nutzen?)

Gruß
K-H

Du meinst eher Length( s ) * SizeOf( s[1] ) * 2

[p80286]

Wenn ich ehrlich bin ist mir diese "Length(x)*sizeof(x[1])" etwas suspect.
Da bei der Umwandlung irgendwas_Hex immer ein Byte in 2Zeichen umgewandelt wird sollte byteweise gelesen werden und mit char geschrieben werden, also ungefähr so

setlength(dest,sizeof(source)*2);
for i:=1 to sizeof(source) do
dest[i]:=machwas(source[i]);

Gruß
K-H

[DeddyH]

Lass Dir mal SizeOf(string) ausgeben.

[edit] Schon selbst gemacht:

Delphi-Quellcode:

var
  s: string;
begin
  s := 'Hallo Welt';
  ShowMessage(Format('%d - %d - %d', [SizeOf(s), Length(s), Length(s) * SizeOf(Char)]));
end;

Ergibt unter XE 4 - 10 - 20, unter Delphi 2007 4 - 10 - 10 [/edit]