怎樣限制APPEND的記錄數及DBMEMO中的文字數呀？ 當APPEND的記錄數多于五條時，便不充再新增記錄了，而且出現一個錯誤提示框？ 當在DBMEMO中輸入的文字多于80個字時，便不充再輸入文字，而且出現一個錯誤提示框：“注意：只充許輸入80個字，否則報表中將不能顯示余下的文字”？ 這兩個功能怎麼實現呀？ IMPROVE FOREVER

設定該 Field 的 Size 值為 80 -- 將進酒 杯莫停 與君歌一曲 請君為我傾耳聽

能不能給我一段在輸入的時候統計正在輸入的些dbedit的字符個數的代碼呀？ 不知這樣會不會更好一些實現在面的功能。 IMPROVE FOREVER

IF (Length(eDIT1.Text)<8)OR(Length(eDIT1.Text)=8) THEN SHOWmESSAGE('開始工作') ELSE IF (Length(eDIT1.Text)>8) THEN SHOWmESSAGE('停止工作');

我在dbedit1中輸入了100多個字符了沒有任何錯誤提框呀？ （應當是在dbedit1中剛準備輸入第81字時，它就出現一提示框） IMPROVE FOREVER

我在dbedit1中輸入了100多個字符了沒有任何錯誤提框呀？（并且再不充許再輸入文字了。） （應當是在dbedit1中剛準備輸入第81字時，它就出現一提示框） IMPROVE FOREVER

//限制幾個字元輸入 begin IF (Length(eDIT1.Text)<=8)THEN <===== SHOWmESSAGE('開始工作') ELSE IF (Length(eDIT1.Text)>=9) THEN <==== SHOWmESSAGE('停止工作'); end;

試試在 Fields Editor, 加入該欄位 在該欄位的 OnValidate 事件中判斷該欄位輸入的長度 ex:

begin
  if Length(DBMemo1.Lines.Text) > 80 then
    ShowMessage('Over 80 characters');
end;

或試試在 TDBMemo 的 OnChange 事件中判斷 -- 將進酒 杯莫停 與君歌一曲 請君為我傾耳聽 發表人 - hagar 於 2003/01/25 14:46:06

有一點兒問題呀！ 當我輸入到我限定的字數的時候，比方說是30個字時，再輸入第31個字，會出現一個提示框口，但再點一下MESSAGE框口，還可以輸入一個字呀！可不可以限制它一個字母都不能再輸入了呀？（如果如此點下去，還可以輸入好多字的呀） IMPROVE FOREVER

這時就在 TDBMemo 的 OnKeyPress 事件中 讓 Key := #0; -- 將進酒 杯莫停 與君歌一曲 請君為我傾耳聽

參考這段放入 onChange 中就會判斷了 procedure TForm1.Edit1Change(Sender: TObject); begin IF (Length(eDIT1.Text)>=9) THEN SHOWmESSAGE('停止工作'); end;

欄位不要用Memo欄位 用其他文字欄位可設限制字數 參考這段放入 onChange 中就會判斷了 procedure TForm1.Edit1Change(Sender: TObject); begin IF (Length(eDIT1.Text)>=9) THEN .... 跳離下一個焦點 end;

OnKeyPress 事件中 IF (Length(eDIT1.Text)<=8) THEN Edit1.Enabled:=FALSE; SHOWmESSAGE('開始工作'); .... 跳離下一個焦點 Edit1.Enabled:=TRUE; -----------------

試試 重整字串長度    function Str_(S:string;L:integer):string; var R:string; begin   R:=S;   if Length(R)>L then      begin        Result:=COPY(R,1,L);        exit;      end;   while Length(R)

hua2000你好:  

引言: hagar 這時就在 TDBMemo 的 OnKeyPress 事件中 讓 Key := #0; -- 將進酒 杯莫停 與君歌一曲 請君為我傾耳聽

是這樣的引述--這時就在 TDBMemo 的 OnKeyPress 事件中 banson1716 IF (Length(eDIT1.Text)<8)OR(Length(eDIT1.Text)=8) THEN SHOWmESSAGE('開始工作') ELSE IF (Length(eDIT1.Text)>8) THEN begin SHOWmESSAGE('停止工作'); key:=#0; end;

過年回剛回到公司，原來已有這麼多的回答了呀，真是感謝呀！    新年好！ IMPROVE FOREVER