求助Delphi编程
想实现用窗口显示一个变量的值: 这个变量值会变的, 第一行显示第一个变量的值,如果变量有变化时,再在第二行显示变化后的值,依此第三行,第四行...显示该变量值。感激不尽!
你的所有变量应该是存储在数据库或者某个ini/txt中吧。
Delphi(Pascal) code:
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select 姓名 from 用户清单 where 用户编号='''+edit1.Text+'''');
adoquery1.Open;
edit2.Text:=adoquery1.fieldbyname('姓名').AsString;
//其余变量以此类推
不知道是不是你的要求
memo1.lines.add('var1='+sdata1);
memo1.lines.savetofile(FileName);
2L给的方法就不错.
用listbox
谢谢各位的回答,让我增长了Dephi的认识。分太少,所以就只给2楼啦。呵呵。
相关问答:
select * from shuju.DB where 开盘价-收盘价<=0.02
开盘价 与收盘价 是数据库里的字段
select * from aTableName where ((开盘价-收盘价) <=0.02 )
开盘价比收盘价低两分以下的情况
Mark!!!!!!
se ......
xml := CreateOleObject('Microsoft.XMLHTTP');
xml.Open('GET','http://www.google.com', False);
xml.Send;
xml.responseText;
使用xml.responseText可以获取网页源码,但是再次 ......
var
FXmlDoc:IXMLDomDocument;
begin
使用FXmlDoc.save('文件路径');
结果发现保存后的该文件中文全部为乱码,如何解决
end;
参考这个
http://blog.csdn.net/jiangnanandi/archive/2008/11/28/3399804.aspx ......
就一个button事件
procedure TForm1.btn7Click(Sender: TObject);
Type
TMyArr = array of array of array of Integer; {定义一个三维动态数组类型}
Pint = ^TMyArr;
var
PArr: Pint; ......
下面是网上找的一个事例,但在本机报错.
请教下错误原因,或者给另外的事例更好!谢谢
//Server
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Form ......