Operator ist auf diesen operatortyp nicht anwendbar

**Demon666**

Hallo

ich muss bis morgen ein programm für die schule schreiben das die rechtschreibung eines textes überprüft, aber ich bekomme andauernd die meldung "Operator ist auf diesen operatortyp nicht anwendbar"

weiß jemand warum?
(ich würde mich über schnelle antworten freuen, ihr seht ja ich bin etwas unter zeitdruck

)

hier mein code:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TFormrechtschreibung.Rechtschreibungpruefen;

var woerterbuch: Tstringlist;

    Zeile: string;

    wort: shortstring;

   wortanfang, wortende, s, r : integer;

begin

  woerterbuch:=Tstringlist.create;

  woerterbuch.LoadFromFile('wörterbuch.txt');

  wortanfang:=1;

  wortende:=1;

  Zeile:=Form1.Memo.Lines[i];

  for r:=1 to Length(Zeile) do

  begin

  wort:='';

        if Zeile[wortende] in [char( 32)..char( 64)]

     or if Zeile[wortende] in [char( 91)..char( 96)]

     or if Zeile[wortende] in [char(123)..char(126)]

     or if Zeile[wortende] in [char(128)..char(137)]

     or if Zeile[wortende] in [char(143)..char(153)]

     or if Zeile[wortende] in [char(160)..char(191)]

     or if Zeile[wortende]=char(139)

     or if Zeile[wortende]=char(141)

     or if Zeile[wortende]=char(155)

     or if Zeile[wortende]=char(157)

     or if zeile[wortende]=char(215)

     or if zeile[wortende]=char(247)    then

      begin

        wort:=Copy(Zeile,Wortanfang,Wortende-1);

          for s:=0 to Woerterbuch.count-1 do

          begin

            if wort<>woerterbuch[s] then

            begin

              Edfalscheswort.Text:=wort;

              exit;

            end; //von if

            end; //von for

            end

          else

            wortende:=wortende+1;

            if wortende=Length(Zeile) then

              i:=i+1;

        end;//von if

   end; //von for

   end;

EDIT: ich benutze übrigens delphi 7

Operator ist auf diesen operatortyp nicht anwendbar

Operator ist auf diesen operatortyp nicht anwendbar

Forumregeln