Query1.sql.Add('select name from table');
Query1.open;
ShowMessage(Query1.FieldByname('name').AsString);
Query1.open;
ShowMessage(Query1.FieldByname('name').AsString);
解决方案 »
- 我在程序中使用了clipboard,其它程序使用剪贴板就出问题
- 如何将一个delphi的.exe文件及一些所需的文本再打包为另一个.exe文件(急在线等)
- delphi 循环变量的问题
- 招Delphi高手!
- delphi打包
- 初学者高分提问:在一个panel里,有 6 个edit框输入的数据,分别代表3个时间值和3个电压值。如何根据着6个数据在一个坐标里画出曲线??
- 大家来讨论一下!关于异常的问题!来者有分!
- 请问那里有sql server 7.0的下载链接,急!急!急!急!在线等。。。
- 菜鸟级的问题
- 用DELPHI怎样开发EMAIL系统
- Dream Outbar ???再问
- sony PCG-GR3F/BP 键盘布局
Query1.open;
while not query1.eof do begin
str:=str+Query1.FieldByname('name').AsString+#13;
query1.next;
end;
ShowMessage(Str);
str:string;
begin
str:='';
with query1 do
begin
close;
sql.clear;
sql.add('select name from table1');
prepare;
open;
end;
query1.First;
while Not query1.eof do
begin
str:=str+ query1.Fieldbyname('name').asstring+#13;
query1.next;
end;
ShowMessage(str);
end;