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];
Ich hätte da noch eine...
Delphi-Quellcode:
function reku(wort:string;i:integer):string;
begin
if i<length(wort) then result:=reku(wort,i+1)+wort[i]
else result:='';
end;
Aufgerufen wird das dann über
reku(meinWort,1);
Is zwar nicht die beste Möglichkeit aber Lehrer mögen Rekursionen!
