Работа с тестом в Delphi

[IGoDoVaN]

Есть два memo поля: в одно вводится текст в другое пишется результат. Также есть button, которая запускает программу...
Требуется определить число слов в тексте, найти максимальную, минимальную и среднюю длину слова... Напишите текст программы очень прошу. Заранее преблагодарен, хотя бы за попытку...
П.с. программа пишется в Delphi

[Stilet]

А это что?
http://programmersforum.ru/showthrea...t=%F1%EB%EE%E2

[IGoDoVaN]

это другая задача..

[Stilet]

Может, но ответы на ключевые вопросы там есть.

[IGoDoVaN]

Может, но я так и не разобрался в той задаче.. Листбокс, деслимитер меня "пугают".. я что значит с "чистого листа" постигаю азы делфи... Лекции кот нам читают очень примитивный пару слов о pos, length и всё... Вот я не знаю как пропуская пробелы и знаки препинания вычислить длину слова, как вычислить максимальную и минимальную, просто min и max не обойдешься?

[Stilet]

Листбокс, деслимитер меня "пугают"

Я тоже раньше SQL не любил, потом попробовал и стало понятно.

Тебе тогда два цикла нужно делать, в одном выбирать строки в другом функцией POS отбирать пробелы.

[IGoDoVaN]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Label2: TLabel;
    Button4: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  S:string;
  i:byte;
  n,k,l,x,max,min,sl:integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
S:=' Красная армия всех сильней.';
memo1.Text:=s;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
S:='';
edit1.text:='';
edit2.text:='';
edit3.text:='';

Memo1.text:=s;

end;

procedure TForm1.Button4Click(Sender: TObject);
begin
application.Terminate;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
 a,b:integer;



begin
i:=1;
n:=length(s);
S:=Memo1.Text;
sl:=0;
if not (s[i] in [' ',#8, #13, #10, ',','.','!','?']) then
while i<n do
begin
if (s[i] in [' ',#8, #13, #10, ',','.','!','?']) and (not (s[i+1] in [' ',#8, #13, #10, ',','.','!','?'])) then
begin
sl:=sl+1;
end;
i:=i+1;
end

else
while i<n do
begin
if (s[i] in [' ',#8, #13, #10, ',','.','!','?']) and (not (s[i+1] in [' ',#8, #13, #10, ',','.','!','?'])) then
begin
sl:=sl+1;
end;
i:=i+1;
end;

begin
a:=0;b:=0;
i:=1;
n:=length(s);
S:=Memo1.Text;
if not (s[i] in [' ',#8, #13, #10, ',','.','!','?']) then
while i<n do
begin
if (s[i] in [' ',#8, #13, #10, ',','.','!','?']) and (not (s[i+1] in [' ',#8, #13, #10, ',','.','!','?'])) then
begin
For i:=1 to length(s) do
a:=a+1;
end;
i:=i+1;
end

else
while i<n do
begin
if (s[i] in [' ',#8, #13, #10, ',','.','!','?']) and (not (s[i+1] in [' ',#8, #13, #10, ',','.','!','?'])) then
begin
For i:=1 to length(s) do
a:=a+1;
end;
i:=i+1;
end;
end;

begin
edit1.text:=floattostr(min);
edit2.text:=floattostr(a);
edit3.text:=floattostr(sl);
end;
end;



end.

я так написал, тока хз почему все равно считаются пробелы между словами при вычислении длины строки

[А. Долматов]

not (s[i+1] in [' ',#8, #13, #10, ',','.','!','?'])

в это множество добавь пробел - ' ' вот таким образом. Тогда он и пробелы отбрасывать будет

[Stilet]

Вот смотри, подсказываю.

var e,s:string;a,b,c,i:integer;
begin
s:='ds fdf fsdsdajfg 2 sdf fsd';
caption:=s;
b:=1;c:=1;e:='';
for i:=1 to length(s) do begin
 if s[i]=' ' then begin inc(a);
  if length(copy(s,b,i-1))>c then begin
   c:=length(copy(s,b,i-1));
   e:=copy(s,b,i-b)
  end;
  b:=i;
 end;
end;
inc(a);

caption:=caption+' ('+inttostr(a)+' '+e+')';

end;

Здесь в строку s выбираеш очередную строку,
в результате "e" - Это самая максимальное по длине слово, а "а" - количество слов с втроке.

Понял что нужно делать?

[IGoDoVaN]

то есть "а" это "sl" у меня?