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