???
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