Ergebnis der Suchanfrage

• Forum: Datenbanken

  Re: [Delphi] MatchesMask für EditMask

   
    by himitsu, 9. Dez 2009
  OK, man könnte noch diese Zeile anhängen
  if data.TAukopfAUKVERSNR.Value <> s then data.TAukopfAUKVERSNR.Value := '';
  
  procedure SetNewMask(Feld: KeineAhnungWas; Mask: String);
  var s: String;
  begin
  s := Feld.Value;
  Feld.Value := '';
  Feld.EditMask := '000/00/000000000;1;_';
  Feld.Value := s;
• Forum: Datenbanken

  Re: [Delphi] MatchesMask für EditMask

   
    by himitsu, 9. Dez 2009
  Würde sows ausreichen?
  s := data.TAukopfAUKVERSNR.Value;
  data.TAukopfAUKVERSNR.Value := '';
  data.TAukopfAUKVERSNR.EditMask := '000/00/000000000;1;_';
  data.TAukopfAUKVERSNR.Value := s;