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

[mkinzler]

Zitat:

wie mach ich das?

procedure TFormrechtschreibung.Rechtschreibungpruefen( PruefString: string); Und dann PruefString statt
Zeile:=Form1.Memo.Lines[i]; verwenden.

Zitat:

was meinst du mit umdrehen?

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

[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

[himitsu]

'ne kleine Umformatierung meint da was Anderes:

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 ... then
    begin
      ...
    end
    else
      wortende := wortende + 1;
    if wortende = Length(Zeile) then
      i := i + 1;

  end; // von if  // nee, vom for
end; // von for   // und hier von der Prozedur

end;  // das hier gehört nicht mehr dazu

[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 =)