Operator ist auf diesen operatortyp nicht anwendbar

[Demon666]

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

[mkinzler]

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

[Demon666]

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

[mkinzler]

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

[Demon666]

Zitat von mkinzler:

Übergebe den Index als Parameter der Prozedur/Funktion

wie mach ich das?

Zitat von mkinzler:

Dann würde ich die Abfragelogik umdrehen

was meinst du mit umdrehen?


@himitsu: wie freigeben? und die anzahl der ends und begins hab ich schon 10 mal gezählt, die stimmen

[himitsu]

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.

[mkinzler]

Oder man Verwendet einen AddIn der das farblich virtualisiert wie z.B. Castalia oder CnWizards

[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

[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

[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