IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

> Добавить после каждой подстроки её порядковый номер, edit
Борис
сообщение 13.04.2006 18:55
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 29
Пол: Мужской

Репутация: -  0  +


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
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 11.07.2025 0:53
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"