資料輸入超過欄位，如何寫一個警告訊息？ ---------------- 局局棋盤步步新， 變化無常平常待。 人生相處平常心， 無憂無慮心事成。 ----------------

if length(edit1.text) > query1.fieldbyname('empno').size then
begin 
 raise exception.create('超出資料欄資料長度 請重新輸入');
  exit;
end;

天行健 君子當自強不息~~@.@ 發表人 - T.J.B 於 2002/12/19 13:11:33

------
天行健
君子當自強不息~~@.@

在 Fields Editor 內有設該欄位的 Size 的話 user 是沒辦法輸入超過欄位 Size 的    -- Believe the unbelievable.

但是對非感知元件而言 如果沒有設定 maxlength 屬性 還是可以輸入超過Fields Editor 該欄位的 Size 的字元 天行健 君子當自強不息~~@.@

------
天行健
君子當自強不息~~@.@

一. 可以在DBEdit之onKeyUp檢查

type
  TTempMaskEdit=class(TCustomMaskEdit);
procedure TForm1.DBEditKeyup(Sender: TObject; var Key: Word; Shift: TShiftState);
var n1,sel1,sel2:Integer;
begin
  if (TDBEDit(Sender).Modified) and (TDBEdit(Sender).Field<>nil) then begin
    TTempMaskEdit(Sender).GetSel(sel1,sel2);
    n1 := TDBEDit(Sender).MaxLength;
    if sel1 >= n1 then begin
      showmessage('');
      TDBEdit(Sender).SetfocusControl;
    end;
end;

二. 可一次處理所有欄位 先寫好如上之method 在FormActive將所有DBEdit均hook上此method

procedure TBaseForm.FormCreate(Sender: TObject);
var i:integer;
begin
  for i:=0 to ControlCount-1 do 
    if Controls[i] is TDBEdit then
      TDBEdit(Controls[i]).DBEditdKeyUp;  
end;

三. 一勞永逸的方法 先寫一個BaseForm如上, 以後其他所有Form均繼承此Form.

TQuery元件我沒用，不知道TTable元件如何判斷？ ---------------- 局局棋盤步步新， 變化無常平常待。 人生相處平常心， 無憂無慮心事成。 ----------------

引言: TQuery元件我沒用，不知道TTable元件如何判斷？ ---------------- 局局棋盤步步新， 變化無常平常待。 人生相處平常心， 無憂無慮心事成。 ----------------

query改成Table 即可 天行健 君子當自強不息~~@.@