Operator ist auf diesen operatortyp nicht anwendbar

[Klaus01]

Zitat von Demon666:

".. 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

[Demon666]

bin mir grade nicht sicher, muss vor ein else bei einer if (wie heißt denn das wenn nicht scheleife?) ein edn und dann nach der else-prozedur noch eins oder nur das nach der else-prozedur?

[Demon666]

Zitat von mkinzler:

Nicht die vielen abfragen, welche es sind sondern die wenigen, die es nicht sind ausschliessen

aber ich will ja alle sonderzeich wie äöü und die französischen teile alle auch dabei haben, das wäre genauso zerstückelt

[mkinzler]

Ich meinte in etwa so:

if Ziffer in [ 1, 2, 4, 5, 6, 8, 9] then ... ist das selbe wie

if ziffer not in [ 3, 7] then ...

[himitsu]

@mkinzler: Du meinst bestimmt:
if not (ziffer in [ 3, 7]) then ...

[Demon666]

@himitsu: oh mist, hab das end; das zuviel war an der falschen stelle gesucht (vor dem else). jetzt funktioniert alles, dnakeschön =)