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:

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
:dp:

[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.. :gruebel:

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* :-D

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:

Delphi-Quellcode:

edit2.text:=invertstr(edit1.Text);

lol, 2 mins zu lahm :stupid:

[Xnoow]

mh sry aber ich raffs echt net :wall: :roll:

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.. ? :wiejetzt:

[Dagon]

Zitat:

Zitat von Xnoow

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

In den Implementations-Abschnitt der Unit.

[Xnoow]

Zitat:

Zitat von the_master

Zitat:

Zitat von Xnoow

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

In den Implementations-Abschnitt der Unit.

ja dann auf onclick beim button unter procedure oder wo sry aber bin echt 0 in delphi... :roll: :oops:


die bezeichnungen der buttons und der editfelder sind wie schon am anfang...

[BungeeBug]

Hi,

so gehts.

[choose]

Ähem :hi:
Du musst gar keine Funktion selbst schreiben, weil es bereits die fix und fertige Lösung mit AnsiReverseString gibt. Hinterlege in der Ereignisbehandlungsroutine des OnClick-Ereignisses eines Buttons einfach einen Code, der den Text eines Editfeldes (hier: Edit1) an die Funktion AnsiReverseString übergibt und das Ergebnis in die Eigenschaft Text des anderen Feldes (hier: Edit2) schreibt.

Beispiele, wie Du eine Ereignisbehandlungsroutine mithilfe des Objektinspektors (OI) erstellst sollten in Deinen Delphi-Handbüchern zu finden sein, in den mitgelieferten Demos und bestimmt zahlreichen Tutorials im Netz...

[Xnoow]

Danke!!!


puh ich habs echt net gerafft jetzt kann ich mirs genau anguggen wie du es gemacht hast vielen dank!







Gruß Xnoow


Danke an alle :dp: :dp:

[BungeeBug]

Ich denk aber mal nich das das die Aufgabe war ne Funktion dafür zufinden oder?
Sowas schreibt man im Info Unterricht selbst :)

[Pseudemys Nelsoni]

jo, wieso einfach, wenns auch schwer geht...

[HaTe]

naja "schwer".... :roll:

[Xnoow]

edit: für mich wars nunmal schwehr da ich keine programmierkenntnisse besitze... :wall: aber ich guck dass ich mir auch mal en buch kauf usw...

Zitat:

Zitat von BungeeBug

Ich denk aber mal nich das das die Aufgabe war ne Funktion dafür zufinden oder?
Sowas schreibt man im Info Unterricht selbst :)

wir sind ganz am anfang und ham sau viele in der klasse die halt echt noch weniger als ich aufnehmen...

und da ich halt gucken will das ich irgendwie voran komme (selber) mach ichs halt so... :oops:

[HaTe]

war net bös gemeint, jeder hat ja mal so angefangen (vermut ich ma) und grösstenteils durchblick ich die codes hier im forum selbst auch net :wink: