Umwandlung - Ansistring in String;
Zitat:
function asString(value: Ansistring): String;
var
i,l: integer;
begin
l:=length(value);
setlength(result,l);
for i := 1 to l do result[i]:=char(value[i]);
end;
Die Funktion funktioniert tadellos und ist genau das Gegenstück zu der
Function ansistring(value: string): ansistring;
Performancemässig bin ich mit dieder Function nicht zufrieden.
Kann mir die evtl. einer in assembler umschreiben?
zu Info die
function string(value: ansistring): String
liefert nicht das gleiche Ergebnis