Hallo,
ich habe eine Procedure geschrieben um die Wortanzahl in einem RichEdit zubestimmen, allerdings scheint sie nicht die korrekte Anzahl der Wörter zu ermitteln. Wenn ich die Wortanzahl eines Textes in Word ermittle fällt diese höher aus als jene welche meine Procedure ermittelt.
Delphi-Quellcode:
var Text : PChar;
WortAnzahl : Integer;
begin
WortAnzahl:=0;
Text:=RxRichEdit1.Lines.GetText;
while (Text^ <> #0) do
if Text^ in [#1..#64,#91..#96,#123..#127] then inc(Text)
else begin
while not (Text^ in [#1..#64,#91..#96,#123..#127]) do inc(Text);
inc(WortAnzahl);
end;
Label1.Caption:='Wörter: '+inttostr(WortAnzahl);
end;
Könnte mir jemand bitte sagen was ich falsch gemacht habe bzw. was ich nicht beachtet habe.
Tschüß Markus