Передвинуть символа в строке |

30.03.2010, 22:00
|
|
Познающий
Регистрация: 07.06.2009
Сообщений: 30
С нами:
8909709
Репутация:
0
|
|
Передвинуть символа в строке
Кто нибудь сталкивался с таким:
Вобщем допустим
в едит1 записано - 1101011110101110. Цель - в едит2 вводим допустим число 5
и у нас в едит3 должно получиться - 110101111010_1110
П.С. вместо 5-го символа должен вставиться любой символ/буква, главное чтобы отделить
П.П.С. чуть не забыл, желательно в дельфи )
|
|
|

30.03.2010, 22:19
|
|
Участник форума
Регистрация: 20.02.2010
Сообщений: 121
С нами:
8538012
Репутация:
60
|
|
Сейчас накатаю 5 мин)
|
|
|

30.03.2010, 22:27
|
|
Участник форума
Регистрация: 07.02.2010
Сообщений: 189
С нами:
8556802
Репутация:
79
|
|
Если правильно понял, то вот :
insert('_',edit1.Text,strtoint(Edit2.Text));
|
|
|

30.03.2010, 22:33
|
|
Постоянный
Регистрация: 29.10.2008
Сообщений: 306
С нами:
9227388
Репутация:
180
|
|
AnsiString s = Edit1->Text;
int i = Edit2->Text.ToInt();
Edit3->Text = s.Insert("_", s.Length() - i + 2);
|
|
|

30.03.2010, 22:34
|
|
Участник форума
Регистрация: 20.02.2010
Сообщений: 121
С нами:
8538012
Репутация:
60
|
|
insert(pos('_')+8); примерно так
|
|
|

30.03.2010, 22:35
|
|
Участник форума
Регистрация: 07.02.2010
Сообщений: 189
С нами:
8556802
Репутация:
79
|
|
M_script_, просили в дельфи как бы......  ))
|
|
|

30.03.2010, 23:13
|
|
Постоянный
Регистрация: 29.10.2008
Сообщений: 306
С нами:
9227388
Репутация:
180
|
|
Сообщение от fenixelite
M_script_, просили в дельфи как бы......  ))
Не совсем - " желательно в дельфи" 
|
|
|

30.03.2010, 22:39
|
|
Участник форума
Регистрация: 20.02.2010
Сообщений: 121
С нами:
8538012
Репутация:
60
|
|
Интерпретирую M_script
var s: String;
var i: Integer
begin
edit1.text := strtoint(edit2.text);
edit3.text := s.Insert("_", s.Length() - i + 2);
|
|
|

30.03.2010, 22:45
|
|
Постоянный
Регистрация: 06.01.2010
Сообщений: 785
С нами:
8602291
Репутация:
256
|
|
На паскале так:
Код:
s:=11111
a:=' '
insert(a, s, 5)
|
|
|

30.03.2010, 23:02
|
|
Познающий
Регистрация: 07.06.2009
Сообщений: 30
С нами:
8909709
Репутация:
0
|
|
Berman, сделал как ты сказал
var s: String;
var i: Integer
begin
edit1.text := strtoint(edit2.text);
edit3.text := s.Insert("_", s.Length() - i + 2);
что та ошибку выдает, могешь в кратце описать что делает что? )
Последний раз редактировалось Ss[x]dD; 30.03.2010 в 23:06..
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|