Как вытащить первые и поледние символы из Edit1??

← →
CCCatch (2002-08-22 18:16) [0]

Edit1 имеет следующее содержание "5476781678"
Как при клике на кнопку в Edit2 поместить три первых символа из Edit1, а
в Edit3 поместить 4 последних символа из Edit1??

← →
Skier © (2002-08-22 18:23) [1]

>CCCatch
Вы опять со своими примудрыми вопросами !
Когда же книжки-то будем читать !?

← →
CCCatch (2002-08-22 18:29) [2]

>Skier
:) Знаю, знаю - полный ламер. Но хочу учиться.
Так поможете?

← →
MBo © (2002-08-22 18:32) [3]

Это уже не смешно. Почитай хоть хелп про работу со строками

← →
Neox © (2002-08-22 18:34) [4]

Edit1.Text[1] - это первый символ Edit1
дальше разберешься

← →
CCCatch (2002-08-22 18:35) [5]

>MBo
Хотел. И почитал бы обязательно. Только я так обрезал windows, что он не открывает файлы справок. Как говориться, сделал не подумавши :(

Ну пожалуйста, последний раз, ответьте на мой глупый "философский" вопрос :))

← →
CCCatch (2002-08-22 18:36) [6]

>Neox

Спасибо конечно за подсказку, но пока что думаю я дальше сам всё равно не разберусь :(

← →
CCCatch (2002-08-22 18:38) [7]

Вот так работает:

Edit2.Text:=Edit1.Text[1]+Edit1.Text[2]]+Edit1.Text[3]]+Edit1.Text[4];

Но, думаю, это наверное тупо и ламерски :))
Тем более, что как я тогда узнаю последние 4 символа :((

← →
RV © (2002-08-22 18:39) [8]

Edit1.Text[2] - это второй символ Edit1

← →
CCCatch (2002-08-22 18:39) [9]

т.е. так:

Edit2.Text:=Edit1.Text[1]+Edit1.Text[2]+Edit1.Text[3]+Edit1.Text[4];

← →
Cr@sh © (2002-08-22 18:40) [10]

edit2.text:=edit1.text[1]+edit1.text[2]+edit1.text[3];
Дальше сам.

← →
Cr@sh © (2002-08-22 18:41) [11]

Сори, опоздал...

← →
Skier © (2002-08-22 18:41) [12]

>CCCatch
ВАМ ещё про циклы хорошо бы почитать...

← →
andy_prokofiev © (2002-08-22 18:43) [13]

>CCCatch

>>Только я так обрезал windows, что он не открывает файлы справок.

Открывает но на www.delphi.mastak.ru

← →
MBo © (2002-08-22 18:43) [14]

>не открывает файлы справок
????? И что, форум, как online-F1 теперь нужно использовать?

Не нужно маразма.
Copy и Length.

← →
CCCatch (2002-08-22 18:44) [15]

>Skier

А про циклы что-то знаю :)
это вроде так:

for i:=0 to 5 do
...

for i:=1 to 4 do
edit2.text:=edit2.text+edit1.text[i];

да, а лучше Copy - быстрее и красивее :)

← →
CCCatch (2002-08-22 18:46) [18]

Не могли бы вы подсказать полный код, хотя бы на то, как узнать последние четыре символа. И я отстану. :)

P.S. И, если что, извините за спам

edit3.text:=copy(edit2.text,length(edit2.text)-4,length(edit2.text));
Вроде так.

Edit2.Text := Copy(Edit1.Text, 1, 3);
Edit3.Text := Copy(Edit1.Text, Length(Edit1.Text)-3, Length(Edit1.Text));

Как вытащить первые и поледние символы из Edit1?? Найти похожие ветки