Programm: Wort Rückwärts schreiben

[HaTe]

in der schule lernt ma doch noch was *andasprogerinner*

Delphi-Quellcode:

function tform1.invertstr(const s: string): string;
var
  i, l: Integer;
begin
  l := Length(s);
  SetLength(Result, l);
  for i := l downto 1 do
  begin
    Result[l - i + 1] := s[i];
  end;
end;

und in button1click kommt:

edit2.text:=invertstr(edit1.Text); lol, 2 mins zu lahm