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