B bital962464 Unregistered / Unconfirmed GUEST, unregistred user! 2006-06-18 #1 想实现一个图片播放的效果，单击控件， Image 加载下一图片，现图片名称已经记录在数组中，不知道如何处理了
Q qiuyan0519 Unregistered / Unconfirmed GUEST, unregistred user! 2006-06-19 #2 procedure TForm1.FormCreate(Sender: TObject); begin subpath('c:/aa/bb/cc/123.exe'); end; procedure TForm1.subpath(Apath: string); begin while pos('/',Apath)>0 do begin Apath:=copy(Apath, pos('/',Apath)+1,length(Apath)); end; showmessage(Apath); end;
procedure TForm1.FormCreate(Sender: TObject); begin subpath('c:/aa/bb/cc/123.exe'); end; procedure TForm1.subpath(Apath: string); begin while pos('/',Apath)>0 do begin Apath:=copy(Apath, pos('/',Apath)+1,length(Apath)); end; showmessage(Apath); end;
D dey-999 Unregistered / Unconfirmed GUEST, unregistred user! 2006-06-19 #3 文件名:=ExtractFileName(文件路径+文件名)
W wei0916 Unregistered / Unconfirmed GUEST, unregistred user! 2006-06-20 #4 var i:integer;//公共变量 pathstr:array of string;//存放图片的路径数组 点击过程 BEGIN I=I+1; image1.picture.loadfromfile(pathstr); if i=high(pathstr) then i:=0; END;
var i:integer;//公共变量 pathstr:array of string;//存放图片的路径数组 点击过程 BEGIN I=I+1; image1.picture.loadfromfile(pathstr); if i=high(pathstr) then i:=0; END;
F freebird_hrt Unregistered / Unconfirmed GUEST, unregistred user! 2006-07-23 #5 dey-999的方法是对的，其他人就不要想其他办法了，没这么复杂
