[quote="Aya"]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;
Hier habe ich aber das Problem, dass auch Leerzeichen mitgezählt werden. Ich habe den Quelltext vollgender Maßen ergänzt:
Var i,count:integer; text:string;
Delphi-Quellcode:
count:=0;
Text:=Rich.Text ;
for i:=1 to length(Text) do
if Text[i]=' ' then if (Text[i+1]<>' ') then inc(count);