摘要： Function GetStr(var Str:String;ADOQ:TADOQuery):TWbStr;var c,s,y,wb1,py1:AnsiString; i:Integer; a:integer; PR_WB:TWbStr;begin wb1:=''; py1:=''; s:=''; c:=trim(Str); a:=1; for i:=1 to Length(c) do begin... 阅读全文

摘要： procedure TForm1.Button1Click(Sender: TObject);var s:AnsiString; i:Integer; IsNumber:boolean;begin s:=Edit1.Text; if StrToIntDef(S, 0) = StrToIntDef(S, 1) then ShowMessage(S+' 是整数字符串 '); IsNumber := ... 阅读全文