regex - RegExpを使用したマスク付きの入力ダイアログ

Question

Delphi Xe で正規表現マスクを使用して入力ダイアログを作成する方法。たとえば、3 つの番号のみを制限します。

Answer 1

Delphi には、入力マスクの正規表現（regex）を受け入れるテキスト入力がありません。ただし、かなり簡単に同様のことを行うことができます。

の を使用するか、のTMaskEditと のをEditMaskセ​​ットして、独自のフォームを作成します。2 つのボタン (および)を追加し、それぞれ および に設定します。000;1;_TSpinEditMinValue100MaxValue999OkCancelModalResultmrOKmrCancel

StrToInt(MaskEdit1.Text);次のように、使用するコントロール (またはSpinEdit1.Value)の値を読み取るプロパティを追加します。

property Value: Integer read GetValue;

はGetValue単純に次のとおりです。

procedure TNumberInputForm.GetValue: Integer;
begin
  Result := SpinEdit1.Value;  // or Result := StrToInt(MaskEdit1.Text);
end;

次に、コードを使用します。

Value := 0;
NumberInputForm := TNumberInputForm.Create;
try
  if NumberInputForm.ShowModal = mrOK then
    Value := FrmNumberInput.Value;
finally
  NumberInputForm.Free;
end;