Antal ord i en linie

Word -> Funktioner -> Ordoptælling...

det sagde jeg bare ikke :)

:P Delphi tak ;)

?

Kan du ikke bare løbe strengen igennem og se hvor mange mellemrum som der er.

eksempelvis noget lignende

var
  iAntalOrd : integer;
begin
iantalord := 0;
For i := 0 to Length(din tekst) - 1 do
  begin
    i din streng[i] = ' ' then
      inc(iAntalOrd);
  end;

der skal bare lige tages højde for at den samtidig skal undersøge at de andre tegn ved siden af ikke også er mellemrum - det burde være rimeligt simpelt at lave.

så lav det :P...

der skal også tages højde for hvis der er mellemrum i starten og i slutningen...

procedure TForm1.Button1Click(Sender: TObject);
var
  L : TStringList;
begin
  L := TStringList.Create;
  L.Delimiter := ' ';
  L.DelimitedText :=  ' hej      med dig    hvad  ';

  ShowMessage('Der er ' + inttostr(l.Count) +' i strengen');
  l.Free;
end;

Stoney

Stony har lavet samme løsning som jeg i dit andet spørgsmål (http://www.eksperten.dk/spm/589797)

stoney->Virker det også selvom der er flere mellemrum ?

hvis ikke, så er det jo bare at lave en replace funktion

ja den gør, du kan jo prøve selv, med mindre du er bange for at koden
formaterer din disk :-)

Stoney

bahhh :P du får points så ;)