Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by Amateurprofi,
12. Dez 2009
Und nochmal @himitsu:
Die Systemroutinen kannst du mit z.B.
CALL System.@LStrSetLength
aufrufen.
Zu deiner Assembler Routine:
Hast du die mal getestet ?
Bei Längen im Bereich 1 bis 3 gibts Probleme.
Warum?:
ECX enthält Length(Text).
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by Amateurprofi,
12. Dez 2009
@Himitsu:
So ähnlich wollte ich auch antworten.
Ich hab mal getestet wie schnell/langsam die Routinen sind und habe auch noch eine eigene Routine dazu gestellt.
PROCEDURE ReverseStr(var s:string);
var p1,p2:PChar; c:Char;
begin
if s='' then exit;
p1:=@s;
p2:=p1+Length(s)-1;