Mask Edit, Лишние символы

[tarakan1983]

Здравствуйте, помогите пожалуйста.
У меня на форме есть Mask Edit с маской "99/99/99;1;_" , т.е. маска типа " . . ". Если пользователь ввел только первые три цифры и нажал сохранить, то в БД сохраняется запись типа "01.1 . " или если 4 то "01.10. ", для меня это неудобно, так как потом использую left join в запросе. Как мне убирать лишние символы?
Спасибо.

[Прик]

Варианты от того что считается "лишними символами":
- если лишние - это все, кроме цифр, то в маске вместо 1 во втором поле поставить 0 (в этом случае в свойстве Text не будут сохраняться никакие посторонние символы, точки тоже);
- если лишние те, которые в конец после последней цифры, то перед тем как отправить в базу значение свойства Text, в цикле убрать концевые символы.

[tarakan1983]

Извените за долгое молчание, на работе завалили.

Сообщение от Прик

- если лишние те, которые в конец после последней цифры, то перед тем как отправить в базу значение свойства Text, в цикле убрать концевые символы.

w:='';
s:=masedit.text;
for i:=1 to length(s) do
  begin
     w:=w+s[i] if ... как мне оределить что это конец?
  end;

варианты могуть быть
"01.2 . "
"01.23. "
"01.23.4 "
"01.23.45"
вместо 12345 могут быть любые чила, но первые три цифры будут обязательно.

[Прик]

Так примерно:

var
  K : Integer;
  S : string;
begin
  S := masedit.Text;
  K := Length(S);
  while K > 4 do begin
    if S[K] in ['0'..'9'] then break;
    Dec(K);
  end;
  if K < Length(S) then
    S := Copy(S, 1, K);
end;

Где S - строка результата.

[tarakan1983]

У меня вышло чуть по другому

var
  s,w:string;
  i:Integer;
begin
  s:=mskEdit.Text;
  i:=1;
    repeat
      w:=w+s[i];
      Inc(i);
      if i=9 then Break;
    until s[i]=' ';
  if w[Length(w)]='.' then w:=Copy(w,1,Length(w)-1);

  ShowMessage('"'+w+'"')

Так правильно будет?

[Прик]

Правильно или нет, вам судить. Все детали задачи здесь мало известны.
Судя по результату, оба варианта выдают одно и тоже.

[tarakan1983]

Сообщение от Прик

Правильно или нет, вам судить. Все детали задачи здесь мало известны.
Судя по результату, оба варианта выдают одно и тоже.

Спасибо, вроде все нормально, еще маленький вопрос, не знаю правда стоит он внимания или нет. Защита от дурака, если Юзьверь введет "_1.__.__", как от этого защититься?

[Прик]

А что должно произойти в этом случае?
Запрет записи такой строки, например.
Или ввод можно подкорректировать и отправить в базу. Но в таком случае как корректная строка должна выглядеть?

[tarakan1983]

Если пользователь начал заполнять это поле, именно начал заполнять а не просто установил курсор в него, то программа ему должна сказать "Ослик - первые три символа надо заполнить обязательно", т.е. минимум "01.1_.__" иначе присвоить этому полю пустое значение

[Прик]

В MaskEdit есть событие OnChange. В процедуре обработки этого события можно проверять какие символы и как вводятся. При необходимости выдавать предупреждение. Менять значение свойства Text в этой процедуре напрямую нельзя (но если очень надо, то можно).