急！帮忙！谢谢！！

Question

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

Answer 1

报什么错
按你的意思,应该是
image1.Picture.LoadFromFile(mylist.strings[i]);

Answer 2

image1.Picture.LoadFromFile(mylist.strings[i]);

Answer 3

对啊，
image1.Picture.LoadFromFile(这是路径啊);

Answer 4

i:=random(mylist.count-1);
image1.Picture.LoadFromFile(mylist.strings[i]);