Suche String->Hex Funktion

[Sir Rufo]

@DeddyH

Warum so umständlich?

Delphi-Quellcode:

function StrToHex( const s: string ): string;
var
  i : integer;
begin
  for i := 1 to Length( s ) do
    Result := Result + Format( '%.*x', [SizeOf( Char ) * 2, Ord( s[i] )] );
end;

[Coffeecoder]

Zitat von Sir Rufo:

@DeddyH

Warum so umständlich?

Delphi-Quellcode:

function StrToHex( const s: string ): string;
var
  i : integer;
begin
  Result := ''; // <----
  for i := 1 to Length( s ) do
    Result := Result + Format( '%.*x', [SizeOf( Char ) * 2, Ord( s[i] )] );
end;

Muss nicht noch vorher Result initialisiert werden?

[DeddyH]

Bei Strings nicht, aber Du darfst das natürlich tun.

[Coffeecoder]

Zitat von DeddyH:

Bei Strings nicht, aber Du darfst das natürlich tun.

Gut dann packe ich einige Funktionen aus, wo ich das immer gemacht habe

[DeddyH]

Lass es doch drin, und wenn es nur dem besseren Verständnis dient

[himitsu]

Zu 99% geht es auch ohne Initialisierung, aber darauf verlaß dich besser mal nicht.

Das Result ist leider ein ganz blöder Sonderfall, denn die automatisch Initialisierung von String, dyn. Array und Interface liegt nicht in der Methode, so wie bei den lokalen Variablen, sondern beim Aufrufer und da gibt es ganz nette Seiteneffekte, welche dafür sorgen, daß das Result nicht mit '' vorbelegt sein könnte.

[gammatester]

99% scheint mir eine mutige Schätzung, gerade für Delphi 6, denn

Delphi-Quellcode:

function dummy: string;
begin
  result := result + ' oder so';
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  s: string;
begin
  s := '42';
  s := dummy;
  showmessage(s);
end;

zeigt zB zuverlässig '42 oder so' an. Und im Assembler ist nix zu sehen vom Vorherlöschen.

[himitsu]

OK, dann maximal 50%?

Mir war das bisher nur in Schleifen aufgefallen.


Aber das Fazit ist ganz einfach.
Result-Variablen müssen/sollten immer initialisiert werden, wenn mit ihnen gerechnet wird.
Also immer dann, wenn das Result, innerhalb der Funktion, ausgewertet und nicht nur stur gesetzt wird.

Mam muß bedenken, daß bei diesen gemanagten Result-Typen vom Compiler eine Prozedur daraus gemacht wird.
Aus function dummy(i: Integer): string; wird procedure dummy(i: Integer; var Result: string); , was man im Assembler gut erkennen kann.

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