Schreibe morgen Klausur

[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];