[ atlas @ 13.04.2005. 22:29 ] @
mozel pomoc oko ovog programa.........
zamislio sam ovako

da petlja ide od 1 do broj znakova recenice i kad naide na prazno mjesto da brojac postavi na nulu i od broja znakova oduzme broj na kom je prazno pa sve tako..
ali nikako da konstruisem program.......
kako biste ovo resili vi
[ reiser @ 13.04.2005. 22:39 ] @
Recimo da imas string sentence gde ti se nalazi recenica. Ovo pisem iz glave pa mozda ima neka sitna greska :

Code:

var
  C1  : Integer;
  tmp : String;
  ml   : Integer;
begin
  ml := 0;
  tmp := sentence;

  repeat
    If Pos(' ', tmp) - 1 > ml Then
      ml := Pos(' ', tmp) - 1;
    tmp := Copy(tmp, Pos(' ', tmp) + 1, Length(tmp) - Pos(' ', tmp));
  until Pos(' ', tmp) = 0;
end.
[ Srki_82 @ 13.04.2005. 23:01 ] @
Ne zaboravi da reci moze da razdvaja i samo , ili - ili ; ili : ili neki drugi znak.