摘要:
var myrecord:integer;myopensql('Select * From cx_consumable');if datamod.ADOQuery1.Bof and datamod.ADOQuery1.Eof then//这里是无记录时进行的操作else begin combobox1.Clear; for myrecord:=1 to datamod.ADOQuery1.Reco... 阅读全文
摘要:
function IsNum(str: string): Boolean; var i: Integer; begin Result := True; for i := 1 to Length(str) do if not (str[i] in ['0'..'9']) then begin Result := False; Break; end; end; 阅读全文