Добавить после каждой подстроки её порядковый номер, edit Опции

[Борис]

var
i,count:integer;
begin
count:=0;
for i:=1 to length(Edit1.text) do
begin
if (count=0) and (Edit1.text[i]<>' ') then
begin
inc(count);
label3.caption:=inttostr(count);
end;
 if (Edit1.Text[i]=' ') and (Edit1.Text[i+1]<>' ') and (i+1<=length(edit1.text))
 then begin
        inc(count);
        Edit2.Text:=Edit1.Text[i]+inttostr(count);
        end
        else Edit2.Text:=Edit1.text[i];
        end;
        end;

почему выводит только последню букву в началной строке? или с editom это не сделать?или ошибка в коде?*

Тегами не забываем пользоваться !

Сообщение отредактировано: volvo - 5.11.2006 19:01

[мисс_граффити]

я тебе написала, что надо сделать.
все работает.

[i] - это так не совсем корректно тэг курсива себя повел.

а "народ" не обязан тебе в ту же секунду кидаться отвечать - сам виноват, что вовремя не начал выполнять.