财务软件版1楼: 各位高手帮帮忙，我输入一个字符串，我想判断里面是否掺杂字母，字符串里面都是数字形式，，至少13位，请问怎么实现？ 还有我想把一个字符串转换成日期时间类型，想先判断是否是合法的日期时间类型，如：20060220155025 2006年2月20日15点50分25秒，我想如何能判断字符串是否能装换成合法的日期时间类型，，如果能转换，用什么函数可以把字符串转换成时间日期类型？？？？

2楼: 判断是否是数字（是否是日期同理）
function IsNumber(Str : string) : boolean;
begin
result := False;
try
StrToInt(Str);
result := True;
except

end;
end; 如学校档案管理软件

3楼: 楼上的大哥,这个方法我试过拉,如果字符串过长,不行,如果十几位字符串,,会判断不是合法的整数,超出范围

4楼: 还有判断日期,我用strtodatetime(字符串格式必须为2006-02-01 12:00:00),我现在字符串格式是20060202120101,,但我不想一个一个截取然后变成2006-02-02 12:01:01,,有没有函数可以直接把20060202120101这种格式转换成DATETIME类型呀？？

5楼: function IfNum(sInput:string):Boolean;

var
fTemp : Double;
begin
Result := False;
if not TryStrToFloat(Trim(sInput),fTemp) then
begin
ShowMessage(＇＇输入内容不是数字＇＇);
end
else
begin
Result := True;
end;
end;

6楼: var
i:integer;
allnum:Boolean;
begin
allnum:=True;
for i:=1 to length(str) do begin
if not (str[i] in [＇＇0＇＇..＇＇9＇＇]) then allnum:=False;
end;
end;

字符转成DATETIME可以用 StrToDatetime() 函数.

财务软件版7楼: 没有直接用的函数吧，分成4位2位2位来判断日期

8楼: 判断是否是数字（是否是日期同理）
function IsNumber(Str : string) : boolean;
begin
result := False;
try
StrToInt64(Str);//////////////////////////////////////////////////
result := True;
except

end;
end;

9楼: 时间日期字符串我主要是判断输入的时间日期是否合法，如：20060230121212 这个是不合法的，因为2月没有31号这天，，我主要是想判断时间日期的合法性？？？

10楼: 判断是否是数字（是否是日期同理）
function IsNumber(Str : string) : boolean;
begin
result := False;
try
StrToDate(Str);//////////////////////////////////////////////////
result := True;
except

end;
end;

11楼: 谢谢各位拉，问题已经解决拉， 就是麻烦点，，呵呵

12楼: 多人接受答案了。 如零售管理软件