Hallo,
Wir arbeiten in der Schule an einem Programm, welches Palindrome erkennen kann. Allerdings funktioniert das Leerzeichenentfernen nicht. Ich habe die Suche bemüht, allerdings nur andere Wege gefunden, nicht aber den Weg mit einer If-Funktion.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var palindrom, palindrom2, neuwort:string;
laenge,i:integer;
begin
palindrom:=lowercase(edit1.Text);
laenge:=length(palindrom);
for i:=1 to laenge do
if palindrom[i] <> ' ' then
palindrom2:=palindrom2+palindrom[i];
for i:=laenge downto 1 do
neuwort:=neuwort+palindrom2[i];
label1.caption:=neuwort;
if palindrom2=neuwort then
showmessage('Palindrom!')
else
showmessage('Kein Palindrom!');
end;
Ich sehe meinen Fehler nicht? Kann mir jemand helfen? Danke!