X
xljm1025
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.Button2Click(Sender: TObject);
var
i:integer;
filename:string;
begin
for i:=0 to filelistbox1.Items.Count -1 do
begin
filename:=filelistbox1.Items.Strings;
if extractfileext(filename)='.dfm' then
‘写不下去了 请指点 谢谢。’
var
i:integer;
filename:string;
begin
for i:=0 to filelistbox1.Items.Count -1 do
begin
filename:=filelistbox1.Items.Strings;
if extractfileext(filename)='.dfm' then
‘写不下去了 请指点 谢谢。’