Schreibe morgen Klausur

[gekmihesg]

Delphi-Quellcode:

function Reverse(str: string): string;
var
  i : integer;
begin
  setLength(result, Length(str));
  for i := 1 to Length(str) do
    result[Length(result) - i + 1] := str[i];
end

verbessert