Delphi-Quellcode:
function ToString(var param; size : byte):ansistring;
var i:integer;
begin
setlength(result,size);
for i:=0 to size-1 do
result[i+1] := (pansichar(@param))[i];
end;
Sorry es war wohl was "selbstgestricktes" (nicht von mir). Die Maus hat es bei mir leider nicht gebracht.
Aber vielen Dank fürs Fachsimpeln, das hilft beim Durchhalten!
Grüße in die Runde
Martin