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

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

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

MaskEdit [D7, WinXP]

Fath © (2004-08-10 14:44:00)
В maskedit1 цифры под маской XX-XXXX мне их надо скопировать в Maskedit2 но там маска XX.XXXX как это можно сделать? спасибо.

Андрей Сенченко (2004-08-10 19:00:00) [1]
А причем здесь слабая документированность МаскЭдита ?
Ваш вопрос касался исключительноопераций работы со строками.

Вот это if (maskedit2.text=' - - ') кстати тоже

Fath (2004-08-10 18:17:00) [2]
if (maskedit2.text=' - - ') and (maskedit3.text=' - - - ') then
//вот так надо =)

Кстати в букваре тока вроде русский алфавит, и для каждой буквы есть примеры написания. Подробного описания значения Строки я думаю там нету =), есть также у меян две книги толстых по делфи, но в них макседит очень бегло осматриваеться, практически нечего интересного, вот потом и думай, или я ламерок, или авторы не внесли вполне нужную инфу..

Fath (2004-08-10 18:11:00) [3]
=))) я уже разобрался в чем причина, просто я чтобы скопировать что у меня в maskedit.text я нажимал два раза на текст, и он открывал маску, надо было просто скопировать из Text значение

Андрей Сенченко (2004-08-10 18:07:00) [4]
Берешь короче букварь и айда читать раздел "Строки" - там много интересного.

Андрей Сенченко (2004-08-10 18:03:00) [5]
if (maskedit2.text='___-__-__')

вернет trueтолько в том случае, если пользователь введет комбинацию.
Три подчерка тире два подчерка тире два подчерка

Fath (2004-08-10 17:55:00) [6]
=))) до баз мне и правда далеко, эту прогу я для себя пишу. Еще с этими масками не работал не разу.

Андрей Сенченко (2004-08-10 17:47:00) [7]
Прикалываешься ?

Если нет - марш бегом методички по паскалю читать. Рановато Тебе в этом случае базы писать.

Fath (2004-08-10 17:45:00) [8]
Спасибо, заработало.
И вот еще одна проблема:
Нужно при нажатие клавиши проверить поля маскедитов, если хотябы одно не заполнено то вывести сообщение, только почему то игнорируеться это условие..

if (maskedit2.text='___-__-__') or (maskedit3.text='___-___-__-__') then
BEGIN
MessageDlg('Не заполнено одно из обязательных полей:'+ #10#13 +'Дом.телефон'+ #10#13+'Моб.телефон', mtError, [mbOk], 0);
end

Андрей Сенченко (2004-08-10 17:34:00) [9]
Ну конкретно для этой маски.

MaskEdit2.Text := concat(copy(maskedit1.Text,1,2),'.',copy(maskedit1.Text,4,4));

Проверил. Универсальности конечно никакой,, но работает

Fath (2004-08-10 16:24:00) [10]
что то не получаеться: из маскедит1 надо перенести числа в маскедит4 в первом маска XX-XXXX а в четвертом XX.XXXX, такая комбинация тока - пишет в четвертый =(

var
st: shortstring;
.....
st:=maskedit1.text ;
st[pos(St,'-')] := '.' ;
maskedit4.text:=st;

Андрей Сенченко (2004-08-10 14:57:00) [11]
стереть '-', записать '.'

Наверх

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