ReversString oder Funktionen versteh ich nicht ;)

[DelphiNoob1.0]

Hey,
ich hab ein großes Problem, ich weiß einfach nicht wie ich es schaffen soll ein String mit dem gleichen String(umgedreht mit ReverseString zu vergleichen. Hoffe ihr könnt helfen :D

Code:

var
  Form1: TForm1;
  wort, ge: String;
implementation

{$R *.dfm}


procedure TForm1.Edit1Change(Sender: TObject);
begin
 wort:=edit1.Text;

 If ge = wort then Edit2.Text:='ja' else Edit2.Text:='nein';
end;

function ReverseString(ge: string): string;
begin
 ge:=wort;
end;
end.

So danke Leute :D und sorry für meine Unwissenheit

[Volker Z.]

Hallo,

versuch es doch mal mit der Funktion ReverseString in der Unit StrUtils.

Gruß

[DeddyH]

Delphi-Quellcode:

if StringVar = ReverseString(StringVar) then...

oder war etwas anderes gemeint?

[evilboy]

Zitat:

Zitat von DelphiNoob1.0 (Beitrag 1199268)

Hey,
ich hab ein großes Problem, ich weiß einfach nicht wie ich es schaffen soll ein String mit dem gleichen String(umgedreht mit ReverseString zu vergleichen. Hoffe ihr könnt helfen :D

Code:

function ReverseString(ge: string): string;
begin
 ge:=wort;
end;
end.

Das sieht schon mal ganz ganz schlecht aus, auch wenn du ReverseString selbst implementieren willst. Kennst du den Unterschied zwischen procedure und function? Functions geben einen Wert zurück. Wenn du eine Function schreibst, musst du der Variable Result das Ergebnis zuweisen…