Hi,
ich hab gradmal was versucht...
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
cnt, i: Integer;
begin
cnt:=0;
for i:=1 to Length(RichEdit1.Text) do
if RichEdit1.Text[i] = ' ' then
Inc(cnt);
ShowMessage(IntToStr(cnt));
end;
Das ist wahnsinnig langsam... aber diese version:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
S: String;
cnt, i: Integer;
begin
cnt:=0;
S:=RichEdit1.Text;
for i:=1 to Length(S) do
if S[i] = ' ' then
Inc(cnt);
ShowMessage(IntToStr(cnt));
end;
ist rasend schnell... bei nem 1mb Text dauert es keine 10tel Sekunde (Also klick auf Button und sofort isses ausgezählt!)
Hoffe das hilft dir ein wenig
Au'revoir,
Aya~