[bajge]

Дано предложение. Вывести на экран длины всех слов строки.

[Страдалецъ]

Разбить на слова и посчитать длину каждого из слов.
Использовать класс TStringList и функцию StringReplace

[bajge]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
 str, st: string;
begin
 str:= Edit1.Text;
 while length(str)<>0 do
   begin
    if Pos(' ', str)<> 0 then
     begin
       st:= Copy(str,1,Pos(' ', str)-1);
       delete(str, 1, Pos(' ', str));
       Memo1.Lines.Add('Длина слова : '+ st +'  '+InttoStr(Length(st))+'  знак.');
     end;
    if Pos(' ', str)= 0 then
      begin
       st:= Copy(str,1,Length(str));
       delete(str, 1, Length(str));
       Memo1.Lines.Add('Длина слова : '+ st +'  '+InttoStr(Length(st))+'  знак.');
      end;
   end;
end; 

lmikle: Пользуемся тегами!!!

так ?? а как вывести это в форму?

[Страдалецъ]

Можно конечно все написать руками, но у вас Delphi а не Pascal, а потому грех не использовать его средства.

Код:

Var
  T: String;
  i: Integer;
begin
T := 'Дано предложение. Вывести на экран длины всех слов строки.';
with TStringList.Create
do begin
    Text := StringReplace(T,#32,#13,[rfReplaceAll]);
    for i := 0 to Count - 1
    do Memo1.Lines.Add(Strings[i] + ' ' + IntToStr(Length(Strings[i])));
    Free;
    end;
end;

[bajge]

cпасибо , о мудрый человек, а то у меня с этим делом все очень туго =(