Zitat von
jfheins:
Um auch die letzte Möglichkeit aufzuzählen:
Delphi-Quellcode:
procedure StrRev (var Str: String);
var
str2: String;
i: integer;
begin
str2 := str;
for i := length (str2) downto 1 do
str := str2[i];
Die dürfte wohl nicht ganz funktionsfähig sein. Das kann man aber schnell ändern, wenn man etwas nachbessert:
Delphi-Quellcode:
procedure StrRev2(var aStr: String);
var
str2: String;
i: integer;
begin
str2 := astr;
for i := length (str2) downto 1 do
astr[length(str2)-i+1] := str2[i];
end;
MfG
Binärbaum
[Edit]
@gekmihesg:
Die Zeichen eines Strings beginnen immer beim Index
1,
nicht bei null.
[/Edit]