H
hying95
Unregistered / Unconfirmed
GUEST, unregistred user!
在窗体上有一个ListView1,一个Button1
procedure ListVToFiles(tmpListV: TListView);
var
i,J: integer;
s,Tmp: string;
Lis: TStringList;
begin
Lis:=TStringList.Create;
for i:=0 to tmpListV.ColumnS.Count-1 do
begin
s:=s+tmpListV.Columns.Items.Caption+' ';
end;
Lis.Add(s);
for i:=0 to tmpListV.Items.Count-1 do
begin
s:='';
tmp:='';
S:=S+tmpListV.Items.Item.Caption+' ';
for J:=0 to tmpListV.Items.Item.SubItems.Count-1 do
tmp:=tmp+' '+tmpListV.Items.Item.SubItems[J];
Lis.Add(s+' '+tmp);
end;
Lis.SaveToFile(datetostr(now)+'.txt');
Lis.Free;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ListVToFiles(ListView1);
end;
这个是我写的一个过程，现在我想把它改改。想把过程的参数不要。如何改？
procedure TForm1.Button1Click(Sender: TObject);
begin
ListVToFiles;//一样ListView的内容保存到文件中
end;
procedure ListVToFiles(tmpListV: TListView);
var
i,J: integer;
s,Tmp: string;
Lis: TStringList;
begin
Lis:=TStringList.Create;
for i:=0 to tmpListV.ColumnS.Count-1 do
begin
s:=s+tmpListV.Columns.Items.Caption+' ';
end;
Lis.Add(s);
for i:=0 to tmpListV.Items.Count-1 do
begin
s:='';
tmp:='';
S:=S+tmpListV.Items.Item.Caption+' ';
for J:=0 to tmpListV.Items.Item.SubItems.Count-1 do
tmp:=tmp+' '+tmpListV.Items.Item.SubItems[J];
Lis.Add(s+' '+tmp);
end;
Lis.SaveToFile(datetostr(now)+'.txt');
Lis.Free;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ListVToFiles(ListView1);
end;
这个是我写的一个过程，现在我想把它改改。想把过程的参数不要。如何改？
procedure TForm1.Button1Click(Sender: TObject);
begin
ListVToFiles;//一样ListView的内容保存到文件中
end;