如何取得Query中某个字段(string)的所有数据的最长长度
解决方案 »
- 如何使一段语句执行完后再执行下面语句?
- cxgrid 怎么用count 一个字段,要distinct count
- ADO控件的过程
- 我用delphi作了一个ocx控件,但是在其它的机器上不能正常显示,请大侠们帮忙看看啊
- DELPHI交流群 欢迎大家交流
- !!!!!!!!!!!!!!!!!!!!急问:如何用delphi做"向导"页!!!!!!!!!!!!!!!!
- 怎么Pchar不能Dispose呀?
- TStack的问题
- 关于穷举算法
- 在Tedit中的KeyPress(var Key: char)函数,如何判断输入的是汉字?
- 请教一个web service 用类做参数出现的问题!
- 你好!帮帮小弟吧 !我愿意出200分
--------------------------------------------------------------------
看尽悲伤,庸人自扰不平事。叹尽荒凉,海阔天空谁人知。狂风劲兮,百花飘
扬乱舞香。捏花一笑,海不扬波断肠心!
广告:http://delphicode.yeah.net
var
i:Integer;
begin
i:=0;
with ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('select aa from aa');
Open;
First;
while not Eof do
begin
if length(Fields[0].AsString)>i then
i:=length(Fields[0].AsString);
Next;
end;
end;
ShowMessage(IntToStr(i));
end;