var ch:char;... if ch in [0..9] then begin 数字 end else begin if ch in[a..z,A..Z] then begin 字母 end else begin 其他东西 end end;
好象就一个IsNumberic函数.. 这小东西自己写个也简单啊..
同意一楼的...var ch:char;... if ch in [0..9] then begin 数字 end else begin if ch in[a..z,A..Z] then begin 字母 end else begin 其他东西 end end;
type TCharType = (ctAlphabet, ctNumber, ctOther);function GetCharType(ch:Char):TCharType; begin Result:= ctOther; if ch in ['0'..'9'] then Result:= ctNumber; if ch in ['A'..'Z', 'a'..'z'] then Reault:= ctAlphabet; end;
ch:char;...
if ch in [0..9] then
begin
数字
end else
begin
if ch in[a..z,A..Z] then
begin
字母
end else
begin
其他东西
end
end;
这小东西自己写个也简单啊..
ch:char;...
if ch in [0..9] then
begin
数字
end else
begin
if ch in[a..z,A..Z] then
begin
字母
end else
begin
其他东西
end
end;
TCharType = (ctAlphabet, ctNumber, ctOther);function GetCharType(ch:Char):TCharType;
begin
Result:= ctOther;
if ch in ['0'..'9'] then Result:= ctNumber;
if ch in ['A'..'Z', 'a'..'z'] then Reault:= ctAlphabet;
end;