Bremst weniger aus.
Delphi-Quellcode:
function GetString(Data : TBytes):String;
var
Temp: TBytes;
i : Integer;
begin
EnterCriticalSection(CS);
try
Temp := Copy(Data)
finally
LeaveCriticalSection(CS);
end;
Result := '';
for i := 0 to High(Temp) do
Result := Result + IntToHex(Temp[i], 2);
end;
Wobei ich mich immer frage, wie man auf soeine "kranke" Schleife kommt, mit soeiner Masse an langsamen Stringoperationen.
>
BinToHex
Abgesehn davon würde ich nicht den Data-Parameter auf dieser Seite absichern, sondern ich würde auf der aufrufenden Seite das absichern, welches man an Data übergibt.