Probleme mit Vergleich

[MisterNiceGuy]

In der Funktion gibts nen seltsamen Fehler. Ne Exception an der marklierten Stelle.

Code:

function TForm1.is_there_a_similarity(any_text:string):boolean;
var i,j:integer;
    zeile, neue_zeile:string;
begin
for i:=0 to memo1.Lines.Count-1 do
begin
     zeile := memo1.Lines[i];
     if zeile[1]='$' then
     begin
-->          neue_zeile := tausche(zeile);
          if neue_zeile = any_text then
          begin
                result := true;
                answer_in_line_x := j;
          end;
     end;
if not result = true then result := false;
end;
end;

die function tausche funktoinoniert einwandfrei!!
Also wenn einer den Fehler findet, immer her mit der Lösung *g*
THX

[dizzy]

Dann zeig doch trotzdem mal den Code von "tausche". Wäre sicherlich nicht hinderlich ;)

[kiar]

tausche zeile liefert einen string?

[MisterNiceGuy]

Ohm ja, der entfernt den ersten Buchstaben aus einem String.

Bsp:

Aus $Geld wird Geld.

[himitsu]

Zeig doch mal die Funktion, denn an der Zuweisung selber kann es wohl nicht liegen.

Und dann noch was anderes. Was ist das?

Delphi-Quellcode:

if not result = true then result := false;

entspricht

Delphi-Quellcode:

if result = false then result := false;

wenn result = true, dann bleibt das Ergebnis
und wenn result = false, dann wird result auf false gesetzt - also bleibt auch unverändert