| sleepes | Дата: Пятница, 06.06.2008, 12:51 | Сообщение # 1 |
|
Сержант
Группа: Пользователи
Сообщений: 27
Статус: Offline
| вот делаю самостоятельную и столкнулся с трудностями:
мне нужно найти в строке слово и перенести первую букву в конец этого слова,
оно первое слово обрабатует а дальше не хочет(
в чем может быть проблема?
Code var str,s1: string; nach,fin,dlin: integer; i: integer; begin str:=Edit1.Text; dlin:=length(str); Insert(' ',str,dlin+1); Insert(' ',str,1); if RadioButton1.Checked=true then repeat nach:=pos(' ',str); delete(str,nach,1); insert('+',str,nach); fin:=pos(' ',str); Insert(str[nach+1],str,fin); Delete(str,nach+1,1); until nach<dlin+2; заранее спасибо
|
| |
| |
| Ivin | Дата: Пятница, 06.06.2008, 13:17 | Сообщение # 2 |
 Admin
Группа: Администраторы
Сообщений: 46
Статус: Offline
| sleepes, вот это until nach<dlin+2; замени на это until nach>dlin+2; . Должно работать, если правильно написанны внутриности цикла.
|
| |
| |
| sleepes | Дата: Пятница, 06.06.2008, 16:09 | Сообщение # 3 |
|
Сержант
Группа: Пользователи
Сообщений: 27
Статус: Offline
| чот комп зависает((
прога запускаеться и виснет сразу как только жму кнопку обработать(
|
| |
| |
| Ivin | Дата: Воскресенье, 08.06.2008, 00:04 | Сообщение # 4 |
|
Admin
Группа: Администраторы
Сообщений: 46
Статус: Offline
| sleepes, попробуй это
Insert(str[nach+1],str,fin);
Delete(str,nach+1,1);
заменить на это
Insert(str[fin+1],str,fin);
Delete(str,fin+1,1);
|
| |
| |
