Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

CCCatch © (2002-08-22 18:16:00)
Edit1 имеет следующее содержание "5476781678"
Как при клике на кнопку в Edit2 поместить три первых символа из Edit1, а
в Edit3 поместить 4 последних символа из Edit1??

Neox (2002-08-22 18:52:00) [1]
Edit2.Text := Copy(Edit1.Text, 1, 3);
Edit3.Text := Copy(Edit1.Text, Length(Edit1.Text)-3, Length(Edit1.Text));

Cr@sh (2002-08-22 18:51:00) [2]
edit3.text:=copy(edit2.text,length(edit2.text)-4,length(edit2.text));
Вроде так.

CCCatch (2002-08-22 18:46:00) [3]
Не могли бы вы подсказать полный код, хотя бы на то, как узнать последние четыре символа. И я отстану. :)

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

Neox (2002-08-22 18:46:00) [4]
да, а лучше Copy - быстрее и красивее :)

Neox (2002-08-22 18:45:00) [5]
for i:=1 to 4 do
edit2.text:=edit2.text+edit1.text[i];

CCCatch (2002-08-22 18:44:00) [6]
>Skier

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

for i:=0 to 5 do
...

MBo (2002-08-22 18:43:00) [7]
>не открывает файлы справок
????? И что, форум, как online-F1 теперь нужно использовать?

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

andy_prokofiev (2002-08-22 18:43:00) [8]
>CCCatch

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

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

Cr@sh (2002-08-22 18:41:00) [9]
Сори, опоздал...

Skier (2002-08-22 18:41:00) [10]
>CCCatch
ВАМ ещё про циклы хорошо бы почитать...

Cr@sh (2002-08-22 18:40:00) [11]
edit2.text:=edit1.text[1]+edit1.text[2]+edit1.text[3];
Дальше сам.

CCCatch (2002-08-22 18:39:00) [12]
т.е. так:

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

RV (2002-08-22 18:39:00) [13]
Edit1.Text[2] - это второй символ Edit1

CCCatch (2002-08-22 18:38:00) [14]
Вот так работает:

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

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

CCCatch (2002-08-22 18:36:00) [15]
>Neox

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

CCCatch (2002-08-22 18:35:00) [16]
>MBo
Хотел. И почитал бы обязательно. Только я так обрезал windows, что он не открывает файлы справок. Как говориться, сделал не подумавши :(

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

Neox (2002-08-22 18:34:00) [17]
Edit1.Text[1] - это первый символ Edit1
дальше разберешься

MBo (2002-08-22 18:32:00) [18]
Это уже не смешно. Почитай хоть хелп про работу со строками

CCCatch (2002-08-22 18:29:00) [19]
>Skier
:) Знаю, знаю - полный ламер. Но хочу учиться.
Так поможете?

Skier (2002-08-22 18:23:00) [20]
>CCCatch
Вы опять со своими примудрыми вопросами !
Когда же книжки-то будем читать !?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »