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

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

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

Помогите програмисты,это очень важно для меня [D6, XP]

Busik © (2006-10-23 22:15:00)
Как програмно сделать чтобы строка введённая в Edit1 к примеру
:)Goblen12345@nextmail.ru000000000000000000, читалась программой так
Goblen12345@nextmail.ru ? То есть программа должна игнорировать метку:) и
нули которые в конце.

Anatoly Podgoretsky (2006-10-24 12:30:00) [1]
А если можно, то зачем делать лишнию работу, с обратными циклами знаком.

Shirson (2006-10-24 09:57:00) [2]
Можно. Много чего можно.

Anatoly Podgoretsky (2006-10-24 09:13:00) [3]
А подумать, ведь можно и не разворачивать

Shirson (2006-10-24 09:10:00) [4]
Или еще вариант алгоритма.
Разворачиваем строку, находим первую не-цифру, отрезаем всё до неё, разворачиваем строку.

Gero (2006-10-24 00:12:00) [5]
> [9] Busik © (24.10.06 00:04)

Delete, цикл while, еще Delete.

Palladin (2006-10-24 00:09:00) [6]
но не до такой же степени... письменность не для профи придумали...

metalfan (2006-10-24 00:08:00) [7]
алгоритм:
ищем последнюю точку. от нее ищем первую цыфру. все что до цифры - адрес.
так? сами напишите я думаю?

Busik (2006-10-24 00:04:00) [8]
Все мы в чём-то новички.

Германн (2006-10-23 23:48:00) [9]

> Busik © (23.10.06 22:32) [4]
>
> ... (эта проблема не даёт мне жить уже неделю)
> <Цитата>
>
> Busik © (23.10.06 22:57) [5]
>
> with Edit1 do Text := Copy(Text, 3, 23);//что эта строка
> делает?
>

Так и хочется вспомнить "Каникулы в Простоквашино". :-)

TUser (2006-10-23 23:24:00) [10]
if Edit1.Text = ':)Goblen12345@nextmail.ru000000000000000000' then
Edit1.Text := 'Goblen12345@nextmail.ru';

Virgo_Style (2006-10-23 23:06:00) [11]
Busik © (23.10.06 22:57) [5]
что эта строка делает?

Ровно то, что про нее в справке написано, а что, есть сомнения?

Busik (2006-10-23 22:57:00) [12]
with Edit1 do Text := Copy(Text, 3, 23);//что эта строка делает?

--
Regards, LVT.//А что это?

Извиняюсь за тупость.

Busik (2006-10-23 22:32:00) [13]
Спасибо я попробую (эта проблема не даёт мне жить уже неделю)

Leonid Troyanovsky (2006-10-23 22:29:00) [14]

> Busik © (23.10.06 22:23) [2]

> Извините я начинающий можно пример на Delphi ?

with Edit1 do Text := Copy(Text, 3, 23);

--
Regards, LVT.

Busik (2006-10-23 22:23:00) [15]
Извините я начинающий можно пример на Delphi ?

Ketmar (2006-10-23 22:18:00) [16]
так взять, и вырезать. F1, "предметный указатель", "string handling routines".

Наверх

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