Suche String->Hex Funktion

[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]

[p80286]

Zitat von DeddyH:

Lass Dir mal SizeOf(string) ausgeben.

Delphi-Quellcode:

type
 mystr : string[255];

sizeof(mystr) liefert 256 !

Wenn ich mich richtig erinnere gab es bei Ansi Strings da auch eine Möglichkeit.
und um die 16Bitter kümmer ich mich wenn's notwendig wird.

Aber ist schon recht, man muß wissen was man da anstellt, und nicht ungeprüft übernehmen was man irgendwo liest.

Gruß
K-H

[DeddyH]

ShortStrings und Strings (also AnsiString oder UnicodeString, je nach Version) sind ja 2 vollkommen verschiedene Paar Schuhe.

[Bummi]

ich vermute es war folgendes gemeint

Delphi-Quellcode:

var
 s:String;
begin
 s := 'Nasenbär';
 Showmessage(IntToStr(SizeOf(s)));
end;

[DeddyH]

Japp, siehe mein Edit in #23.

[himitsu]

Delphi-Quellcode:

var
  S: String;

Label1.Caption := Format('%s %s', [SizeOf(Char), SizeOf(S[1]), StringElementSize(S)]);

[Bummi]

'%d %d %d'

[DeddyH]

Und mein Delphi 2007 kennt kein StringElementSize.