ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
|
Передвинуть символа в строке |

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

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

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

30.03.2010, 22:33
|
|
Постоянный
Регистрация: 29.10.2008
Сообщений: 306
Провел на форуме: 1819761
Репутация:
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
Провел на форуме: 496930
Репутация:
60
|
|
insert(pos('_')+8); примерно так
|
|
|

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

30.03.2010, 22:39
|
|
Участник форума
Регистрация: 20.02.2010
Сообщений: 121
Провел на форуме: 496930
Репутация:
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
Провел на форуме: 1777031
Репутация:
256
|
|
На паскале так:
Код:
s:=11111
a:=' '
insert(a, s, 5)
|
|
|

30.03.2010, 23:02
|
|
Познающий
Регистрация: 07.06.2009
Сообщений: 30
Провел на форуме: 205687
Репутация:
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..
|
|
|

30.03.2010, 23:12
|
|
Участник форума
Регистрация: 20.02.2010
Сообщений: 121
Провел на форуме: 496930
Репутация:
60
|
|
Сделай как сказал CyberHunter, он определил.
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|