![]() |
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
![]() |
Борис |
![]()
Сообщение
#1
|
Новичок ![]() Группа: Пользователи Сообщений: 29 Пол: Мужской Репутация: ![]() ![]() ![]() |
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 |
![]() ![]() |
![]() |
Текстовая версия | 26.07.2025 20:57 |