Einzelnen Beitrag anzeigen

Klaus01

Registriert seit: 30. Nov 2005
Ort: München
5.755 Beiträge
 
Delphi 10.4 Sydney
 
#11

AW: Operator ist auf diesen operatortyp nicht anwendbar

  Alt 16. Jun 2010, 21:08
".. if schleife .."
???




Delphi-Quellcode:
procedure TFormrechtschreibung.Rechtschreibungpruefen;
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 (...) 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;
Habe es mal mit einrücken versucht.
Solltest Du dir auch einmal angewöhnen.

Grüße
Klaus
Klaus
  Mit Zitat antworten Zitat