Programm: Wort Rückwärts schreiben

[Xnoow]

Hallo Freaks


Ich will in delphi ein Programm schreibe.

So soll es aussehen:

__________________________________________________ ______

edit1: wort eingeben bsp: delphi

button1: Wort rückwärts anzeigen (onclick ins edit 2 das wort aus edit 1 rückwärts angeben)

edit2: wort ausgabe bsp: ihpled

__________________________________________________ ______

Also ich komm net drauf wie ich das machen könnnte irgendwie mit fpr Schleifen aber wie weiß ich nicht

danke für eure hilfe.


Gruß Xnoow

[choose]

Hallo Xnoow,

herzlich willkommen bei der Delphi-PRAXiS!

Sieh mal in der Delphi Online-Hilfe (OH) zur Unit StrUtils nach der Funktion AnsiReverseString nach.

[Xnoow]

Zitat von choose:

Hallo Xnoow,

herzlich willkommen bei der Delphi-PRAXiS!

Sieh mal in der Delphi Online-Hilfe (OH) zur Unit StrUtils nach der Funktion AnsiReverseString nach.

danke für die nette brgrüßung...


sry aber wo finde ich die delphi online hilfe ?



Gruß Xnoow

[Dagon]

Klick inerhalb der IDE einfach auf F1.

[Edit]
Das sollte Drück inerhalb... nicht Klick heissen
[/Edit]

[MCeddy]

Hi, das ist eigendlich ganz einfach. Einfach den String Zeichen für Zeichen auseinanderflücken und verkehrtrum mit einer SChleife wieder zusammensetzten

Hier die Procedure dazu, die dir weiterhelfen kann:

Code:

PROCEDURE kehre_um (wort: string; VAR neuwort: string);
{kehrt die Buchstabenreihenfolge um}
VAR
  i : integer;
BEGIN
  neuwort := '';
  FOR i := length(wort) DOWNTO 1 DO
    neuwort := neuwort + wort[i]
END; {of kehre um}

viele liebe Grüße

MCeddy02

[Xnoow]

ok danke dort habe ich jetzt das: function AnsiReverseString(const AText: AnsiString): AnsiString;


gefunden aber ich bin echt noch en totaler anfänger und hab kein plam wie ich das jetzt einsetzten kann..

edit:


ahh ok ich gucks mir jetzt mal an vielen dank leite... wenns noch probs gibt meld ich mich...

[Dagon]

Wenn du's so machst, wie von MCeddy02 könntest du den Code auch in eine Funktion stecken:

Delphi-Quellcode:

function kehre_um (wort: string): String; 
{kehrt die Buchstabenreihenfolge um} 
var 
  i: integer; 
begin
  Result := ''; 
  for i := length(wort) downto 1 do
    Result := Result + wort[i] 
end; {of kehre um}

[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

[Xnoow]

mh sry aber ich raffs echt net

ich hab mich erst seit 2 wochen mit delphi beschäftigt kenne aber garnix von function oder so wo kommt denn der ganze quelltext hin der oben gepostet wurde usw.. ?

[Dagon]

Zitat von Xnoow:

wo kommt denn der ganze quelltext hin der oben gepostet wurde usw.. ?

In den Implementations-Abschnitt der Unit.