Registriert seit: 27. Apr 2011
242 Beiträge
Delphi 6 Enterprise
|
AW: Suche String->Hex Funktion
7. Mär 2012, 14:48
@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?
Coffeecoder
|