X
xinglong
Unregistered / Unconfirmed
GUEST, unregistred user!
function TListForm.GetFileExistsTString(var TS: TStringList): Boolean;
var
MyTS: TStringList;
i: integer;
begin
MyTS := TStringList.Create;
MyTS := TS;
TS.Clear
if MyTS.Count > 0 then
begin
for i:=0 to MyTS.Count -1 do
if FileExists(MyTS) then
begin
TS.Add(MyTS);
end;
Result := True;
end
else Result := False;
MyTS.Free;
end;
++++++++++++++++++++++++++++++++++
"TS"是一个存有文件名的TStringList
如TS里的内容为：
c:/aaa/bbb/aaa.txt
c:/aaa/bbb.txt
d:/abc/abc.mp3
等等。
但是我在Form的FormCreate事情中调用这个函数，编译可以通过，但是执行程序就出错。
var
MyTS: TStringList;
i: integer;
begin
MyTS := TStringList.Create;
MyTS := TS;
TS.Clear
if MyTS.Count > 0 then
begin
for i:=0 to MyTS.Count -1 do
if FileExists(MyTS) then
begin
TS.Add(MyTS);
end;
Result := True;
end
else Result := False;
MyTS.Free;
end;
++++++++++++++++++++++++++++++++++
"TS"是一个存有文件名的TStringList
如TS里的内容为：
c:/aaa/bbb/aaa.txt
c:/aaa/bbb.txt
d:/abc/abc.mp3
等等。
但是我在Form的FormCreate事情中调用这个函数，编译可以通过，但是执行程序就出错。