A amourz Unregistered / Unconfirmed GUEST, unregistred user! 2003-07-23 #1 有10张图片，要求按“向前”按钮显示前一张图片（如果当前是第一张，则显示第10张图片），按“向后”按钮显示后一张图片，（如果当前是第10张，则显示第1张图片）。请问如何通过编程实现？
P pihome Unregistered / Unconfirmed GUEST, unregistred user! 2003-07-23 #2 查找所有图片文件(FindFirst,FindNext,FindClose) 将查找到的图片存入TStrings中，根据下标读取图片。。。
I iseek Unregistered / Unconfirmed GUEST, unregistred user! 2003-07-23 #4 var ts:TStringList; i:integer; begin ts:=TStringList.Create; ts.Add(pic 1); …… ts.Add(pic 10); i:=0; //前进 begin if i=ts.Count then i:=0 else i:=i+1; image.picture.loadfromfile(ts.strings); end; 后退 begin if i=0 then i:=ts.Count else i:=i-1; image.picture.loadfromfile(ts.strings); end; ts.Free; end;
var ts:TStringList; i:integer; begin ts:=TStringList.Create; ts.Add(pic 1); …… ts.Add(pic 10); i:=0; //前进 begin if i=ts.Count then i:=0 else i:=i+1; image.picture.loadfromfile(ts.strings); end; 后退 begin if i=0 then i:=ts.Count else i:=i-1; image.picture.loadfromfile(ts.strings); end; ts.Free; end;
