Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by himitsu,
11. Dez 2009
Nein, beim Result ist es was Anderes, der wird nicht automatisch initialisiert, so wie es bei normalen Variablen der Fall ist.
Wie gesagt, probier es einfach mal aus.
1. Aufruf: Result/S=321
2. Aufruf: Result/S=321321
3. Aufruf: Result/S=321321321
4. Aufruf: Result/S=321321321321
5. Aufruf: Result/S=321321321321321
6. Aufruf: Result/S=321321321321321321
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by himitsu,
11. Dez 2009
Vielleicht, weil dein Code nicht wirklich gut arbeitet?
Und weil er über 20 Mal langamer ist, als mein Pascal-Code? :angel2:
Also inkl. dem Result:=''; ansonsten bremst es je Aufruf natürlich noch extremer ab, da ja der Resultstring immer größer wird.
(der Code von jfheins ist dagegen 3 Mal schneller, bei einem 10 Zeichen langem String, wärend dein Code eine expotentiell steigende Zeit zur...
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by himitsu,
11. Dez 2009
Function ReverseString(Const Text: String): String;
Var L: Integer;
S, D: PChar;
Begin
L := Length(Text) - 1;
SetLength(Result, L + 1);
S := PChar(Text);
D := PChar(Result) + L;
For L := L downto 0 do Begin
D^ := S^;