كيغية أخذ لرقم بدون فراغات من مكون maskedit

[I3CT]

السلام عليكم و رحمة الله

يمكنك كتابة دالة بسيطة مثل TrimIt بهذه الطريقة:

PHP كود :

function TrimIt(const S: string): string;
var
  str: string;
  x: byte;
begin
  for x := 1 to Length(S) do
  begin
    if S[x] <> '-' then
      str := str + S[x];
  end;

  Result := str;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text := TrimIt(MaskEdit1.text);
end;