var mylist:tstringlist;
procedure TForm2.FormCreate(Sender: TObject);
begin
database1.Connected:=true;
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select pi from yj');
query1.Open;
mylist:=tstringlist.Create;
query1.First;
while not query1.Eof do
begin
mylist.Add(query1.fieldbyname('pi').Value);
query1.Next;
end;
end;
procedure TForm2.Timer1Timer(Sender: TObject);
var i:integer;
begin
randomize;
i:=random(mylist.count);
image1.Picture.LoadFromFile(mylist);
image1.Update;
end;
报错!!!!怎么办啊?
en
procedure TForm2.FormCreate(Sender: TObject);
begin
database1.Connected:=true;
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select pi from yj');
query1.Open;
mylist:=tstringlist.Create;
query1.First;
while not query1.Eof do
begin
mylist.Add(query1.fieldbyname('pi').Value);
query1.Next;
end;
end;
procedure TForm2.Timer1Timer(Sender: TObject);
var i:integer;
begin
randomize;
i:=random(mylist.count);
image1.Picture.LoadFromFile(mylist);
image1.Update;
end;
报错!!!!怎么办啊?
en
解决方案 »
- [color=#FF0000][Updated on Wed, 14 Nov 2007 13:28:39 GMT]CodeGearDelphi2007[/color]
- 哪位使用过“天大天财”的高校学生收费系统?
- 一些界面编程的问题,恳请各位前辈帮帮忙
- SQL語句
- dll文件操作
- 请教下载的TGIFImage控件出现的问题
- 我来问一下大家,一般在做网络连接的话,是怎么处理c/s端始终连接状态的?比较通用.....
- 请问各位是怎么做自已程序的登路窗口的。
- 谁知道哪里有DELPHI6。0下载
- 如何实现真正意义的代码重用?
- 调用 Dll 的问题: 打开例子(就是调用)程序,调用都没有问题,就是在关闭程序是出现内存只读的错误
- 在开发企业级应用程序的时候,请问数据库连接信息放在哪里比较好!给个例子吧!
按你的意思,应该是
image1.Picture.LoadFromFile(mylist.strings[i]);
image1.Picture.LoadFromFile(这是路径啊);
image1.Picture.LoadFromFile(mylist.strings[i]);