Einzelnen Beitrag anzeigen

HaTe

Registriert seit: 3. Feb 2004
Ort: Trier
14 Beiträge
 
Delphi 6 Enterprise
 
#8

Re: Programm: Wort Rückwärts schreiben

  Alt 4. Feb 2004, 15:14
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
  Mit Zitat antworten Zitat