|
|
|
Počet slov
|
05.12.2009
|
Úvod
Funkce zjistí počet slov v texu a zobrazí ho v tabulce.
Prvky
Button1
Memo1
Kód
procedure TForm1.Button1Click(Sender: TObject);
var
Ct1, Ct2: Integer;
Sum: Integer;
Tst: Boolean;
Tmp: String;
begin
Sum := 0;
for Ct1 := 0 to Memo1.Lines.Count - 1 do begin
tmp := trim(Memo1.Lines[Ct1]) + ' ';
Tst := False;
for Ct2 := 1 to Length(Tmp) do
if not Tst then begin
if copy(Tmp, Ct2, 1) = ' ' then begin
Inc(Sum);
Tst := True;
end;
end else begin
if copy(Tmp, Ct2, 1) <> ' ' then Tst := False;
end;
end;
ShowMessage('Počet slov: ' + IntTostr(sum));
end;
|
|
|
