Developing.ru

Виктория01, Вы когда-нибудь научитесь заключать код в тэги?!

Вы б не могли мне подсказать одно задание??? Пожалуйста!

Нужно во 2й спиок вывести все слова с 1го,длина которых не привышает 7 символов.

Я думаю, нужно оставить вот эту часть (то что выше написано), а вот как просчитать длину слова или что-то в это роде - не пойму((((((((

[syntax="delphi"]
procedure TForm1.Button1Click(Sender: TObject);
var i,k:integer;
begin
k:=-1;//предначало отсчета
for i:=0 to Listbox1.Items.Count-1 do //смотрим все строки
if ??????????????????????????????
begin
k:=k+1; //считаем
Listbox2.Items[k]:=Listbox1.Items;//записываем
end;
end;
[/syntax]

ПОМОГИТЕ ПЛЗ!!!!!!!!!!!!!!!!!

[syntax=Delphi]
var
s, out:string;
...
s := Listbox1.Items;
end := Length(s);
if pos(' ', s) > 0 then begin
for i := Length(s) downto 1 do
if(s = ' ') then begin
out := Copy(s, i+1, end);
end := i;
if(Length(out) > 7) add...
end;
end else if(Length(Listbox1.Items) > 7) add...
[/syntax]

СПАСИБООООО!!!! Но правда ошибку вкидывает сразу((((((((((((((((((( На строке s:=Listbox1.Items; ошибка -
Incompatible types: 'Integer' and 'String'

Я от балды написал всё это, точно не помню забор строки из Listbox --> в поиск

Там нумерация строк с нуля.