Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)
-   -   Передвинуть символа в строке (https://forum.antichat.xyz/showthread.php?t=191934)

Ss[x]dD 30.03.2010 22:00

Передвинуть символа в строке
 
Кто нибудь сталкивался с таким:

Вобщем допустим
в едит1 записано - 1101011110101110. Цель - в едит2 вводим допустим число 5
и у нас в едит3 должно получиться - 110101111010_1110

П.С. вместо 5-го символа должен вставиться любой символ/буква, главное чтобы отделить

П.П.С. чуть не забыл, желательно в дельфи )

Berman 30.03.2010 22:19

Сейчас накатаю 5 мин)

fenixelite 30.03.2010 22:27

Если правильно понял, то вот :

insert('_',edit1.Text,strtoint(Edit2.Text));

M_script_ 30.03.2010 22:33

AnsiString s = Edit1->Text;
int i = Edit2->Text.ToInt();
Edit3->Text = s.Insert("_", s.Length() - i + 2);

Berman 30.03.2010 22:34

insert(pos('_')+8); примерно так

fenixelite 30.03.2010 22:35

M_script_, просили в дельфи как бы...... :)))

Berman 30.03.2010 22:39

Интерпретирую M_script
Цитата:

var s: String;
var i: Integer
begin
edit1.text := strtoint(edit2.text);
edit3.text := s.Insert("_", s.Length() - i + 2);

CyberHunter 30.03.2010 22:45

На паскале так:
Код:

s:=11111
a:=' '
insert(a, s, 5)


Ss[x]dD 30.03.2010 23:02

Berman, сделал как ты сказал

var s: String;
var i: Integer
begin
edit1.text := strtoint(edit2.text);
edit3.text := s.Insert("_", s.Length() - i + 2);

что та ошибку выдает, могешь в кратце описать что делает что? )

Berman 30.03.2010 23:12

Сделай как сказал CyberHunter, он определил.


Время: 00:13