请赐教。
解决方案 »
- 如何用ADOQUERY1和ADOCONNECTION来做一个远程的备份
- ▲▲▲▲关于日期时间范围内查询记录问题???▲▲▲▲
- ===============Delphi win32的工程 升级到 Delphi .NET出现的问题=====================
- 愤怒!印尼媒体诬中方救灾食品过期。
- 分组报表统计功能怎样做,我出100分求助,用fastreport和rmreport两种报表都试过了
- socket通讯例子
- 晕!!!!!!!!!晕!!!!!!!!!晕!!!!!!!!!晕!!!!!!!!!晕!!!!!!!!!晕!!!!!!!!!晕!!!
- 访问远端服务器上的数据库!!!用什么方法,怎样连接。再线等待
- Dcu与Pas 的不解
- DELPHI做的COM如何返回数组?
- 发布一个用于 UBB代码转HTML的 程序
- 欢迎上传资料,永久性FTP
你这是检验一个串是否为数字串?
错了吧
这是将一字符转换成整型!
function StrToInt(const S: string): Integer;
var
Value, Code: Integer;
begin
Val(AStr, Value, Code);
Result := Code = 0;
end;function IsFloat(AStr: string): Boolean;
var
Value: Real;
Code: Integer;
begin
Val(AStr, Value, Code);
Result := Code = 0;
end;
function StrToCurr(const S: string): Currency;
把字符串转换成货币型!StrToFloat()
function StrToFloat(const S: string): Extended;
把字符串转换成浮点型!
/////////////////////////
Val exampleuses Dialogs;
var I, Code: Integer;
begin
{ Get text from TEdit control }
Val(Edit1.Text, I, Code);
{ Error during conversion to integer? }
if Code <> 0 then
MessageDlg('Error at position: ' + IntToStr(Code), mtWarning, [mbOk], 0, mbOk);
else
Canvas.TextOut(10, 10, 'Value = ' + IntToStr(I));end;
StrToInt(S);
ShowMessage('是');
Except
ShowMessage('不是');
end;
这不就是现成的函数吗?一个是判断是否整形的,一个是判断是否浮点型。function IsInt(AStr: string): Boolean;
var
Value, Code: Integer;
begin
Val(AStr, Value, Code);
Result := Code = 0;
end;function IsFloat(AStr: string): Boolean;
var
Value: Real;
Code: Integer;
begin
Val(AStr, Value, Code);
Result := Code = 0;
end;
TryStrToInt(S)
TryStrToTime(S)
TryStrToFloat(S)
Try...To...(S)