Stringgrid 数据判别问题！急！！

[iloveva]

我在Stringgrid的cell中输入一些数据（float型）读入数组中，请问如何判断这些数据是数字而非其他的字母符号等，并给出提示（不是系统报错）
谢谢大家！！！

[windindance]

try
StrToFloat(StringGrid.Cell[i][j]);
except
ShowMessage('...');
end;

[lanbada]

只有自己写个函数TRY了

[东部一绝]

在onSelectCell事件中判断
ACol：当前列
ARow：当前行
CanSelect：是否定位到当前的cell
刚离开的cell值为
stringgrid1.cells[stringgrid1.col,stringgrid1.row];//判断这值
可以用
try
strtofloat(stringgrid1.cells[stringgrid1.col,stringgrid1.row]);
except

end;

[东部一绝]

还是帮你写写好
try
strtofloat(stringgrid1.cells[stringgrid1.col,stringgrid1.row]);
except
showmessage('输入不是数值');
//或则用application.messagebox('输入不是数值','提示',MB_OK+MB_ICONERROR);
CanSelect:=false;
end;

[东部一绝]

哦，对了还要判断当前是否是你要判断的列。

[kplchx]

首先判断列，再检测键盘输入 onkeypress

if (not (key in ['0'..'9', #46, #8, #13])) then
key := #0;
if ((key in [#46]) and (pos('.', stringgrid1.Cells[stringgrid1.col, stringgrid1.row]) > 0)) then
key := #0;

在 onselectcell事件 或者你要进行数据处理的过程中 修正如‘.12’，‘12.’等问题
yourcol 是你要限制输入的列

for I := 1 to stringgrid1.RowCount - 1 do
begin
if pos('.', stringgrid1.cells[yourcol, i]) = 1 then
stringgrid1.Cells[yourcol, i] := '0' + stringgrid1.Cells[yourcol, i];
if pos('.', stringgrid1.cells[yourcol, i]) = length(stringgrid1.cells[yourcol, i]) then
stringgrid1.Cells[yourcol, i] := '0' + stringgrid1.Cells[yourcol, i] + '0';