Leerzeichen im String entfernen

[schokoschnecke]

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!

[Muellermilchtrinker]

füg deinen code bitte in [delphi] [/ delphi] codes (ohne leerzeichen).

BTT: Schau dir mal die funktion stringreplace an

[Billa]

Wenn auch nur ein Leerzeichen in "palindrom" ist und deshalb "palindrom2" kürzer wird, muss dann "laenge" zwischendurch nicht neu berechnet werden?

[schokoschnecke]

Zitat von Billa:

Wenn auch nur ein Leerzeichen in "palindrom" ist und deshalb "palindrom2" kürzer wird, muss dann "laenge" zwischendurch nicht neu berechnet werden?

Stimmt... Aber müsste er dann nicht trotzdem ein Wort ausgeben?

[Billa]

Ungeprüft: eigentlich müsste das Programm abstürzen ...
oder einen Fehler ausgeben, weil palindrom2[i] ggf. ins Nirwana zeigt.

Der zweite Fehler: palindrom2 ist vielleicht zu Anfang gar nicht = '' ?

[schokoschnecke]

Zitat von Billa:

Ungeprüft: eigentlich müsste das Programm abstürzen ...
oder einen Fehler ausgeben, weil palindrom[i] ggf. ins Nirwana zeigt.

Ahh, jetzt geht es! Super, dankeschön!