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

In welcher Zeile?

wortende:=wortende+1; und
i:=i+1;

Wo ist i deklariert?
WEs sollte so reichen
   if Zeile[wortende] in [char( 32)..char( 64)] or Zeile[wortende] in [char( 91)..char( 96)] ... Aber ich vermute der Fehler ist woanders

@mkinzler:i ist eine globale veriable
und ich will ja alles was kein buchstabe ist abdecken...

edit: danke @himitsu, funktioniert jetzt, aber beim dem end; ganz am ende der procedure krieg ich jetzt ein '.' erwartet aber ';' gefunden
edit2 (tut mir leid für die vielen edits): hab ein end zu viel, habs rausgelöscht un bekomme jetzt bei dem else von der ganz großen if schleife ein "end erwartet aber else gefunden"

Zitat:

@mkinzler:i ist eine globale veriable

Aud derartige globale Variablen sollte man verzichten. Übergebe den Index als Parameter der Prozedur/Funktion

Zitat:

und ich will ja alles was kein buchstabe ist abdecken...

Dann würde ich die Abfragelogik umdrehen

PS: Wo wird woerterbuch eigentlich wieder freigegeben?
(ich sehe da ein nettes Speicherleck und von Resourcenschutzblöcken ala Try-Finally dagegen nichts)

Zitat von Demon666:

aber beim dem end; ganz am ende der procedure krieg ich jetzt ein '.' erwartet aber ';' gefunden

Stichwort Codeformatierung (vorallem die Einrückung).
Zähle mal deine BEGIN und die jeweils zugehörigen END durch.

Wobei eine gute Codeformatierung das Durchzählen eigentlich überflüssig machen würde, da man solche Fehler oftmals sofort erkennen würde.

Zitat von Demon666:

".. if schleife .."

???

zusammenfalten · markieren

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

Zitat:

if ... or if ... or if ... then

Tja, die liebe Delphi-Syntax.
Was machen denn die vielen IFs mitten drin?
Und nicht die Klammern vergessen.

zusammenfalten · markieren

Delphi-Quellcode:

if (Zeile[wortende] in [char( 32)..char( 64)])
  or (Zeile[wortende] in [char( 91)..char( 96)])
  or (Zeile[wortende] in [char(123)..char(126)])
  or (Zeile[wortende] in [char(128)..char(137)])
  or (Zeile[wortende] in [char(143)..char(153)])
  or (Zeile[wortende] in [char(160)..char(191)])
  or (Zeile[wortende]=char(139))
  or (Zeile[wortende]=char(141))
  or (Zeile[wortende]=char(155))
  or (Zeile[wortende]=char(157))
  or (zeile[wortende]=char(215))
  or (zeile[wortende]=char(247)) then

markieren

Delphi-Quellcode:

if Zeile[wortende] in [char( 32)..char( 64), char( 91)..char( 96),
  char(123)..char(126), char(128)..char(137), char(143)..char(153),
  char(160)..char(191), char(139), char(141), char(155), char(157),
  char(215), char(247)] then

Und ansonsten würde ich dir noch anraten, dich noch etwas um eine "vernünftige" Einrückung zu kümmern,
dann würden so Kommentare ala //von for erübrigen und man hätte etwas mehr Überblick.