一个有关全局的字符串列表的问题！ ( 积分: 20 )

dragon1983 · 2005-11-29

if OpenFile.Execute then begin    for i:=0 to OpenFile.Files.Count-1 do begin      Memo1.Lines.Add(ExtractFileName(OpenFile.Files.Strings));     { strList.Add(OpenFile.Files.Strings);//这句话有问题吗?}    end;  end else exit; 如上代码，如果把上句话加入到程序中去则Memo1中的内容就会全部一样，如下！ 116.txt 116.txt 116.txt 116.txt 116.txt 116.txt 如果不要那句话则结果正常 111.txt 112.txt 113.txt 114.txt 115.txt 116.txt 求教各位大虾！

dragon1983 · 2005-11-29

if OpenFile.Execute then begin    for i:=0 to OpenFile.Files.Count-1 do begin      Memo1.Lines.Add(ExtractFileName(OpenFile.Files.Strings));     { strList.Add(OpenFile.Files.Strings);//这句话有问题吗?}    end;  end else exit; 如上代码，如果把上句话加入到程序中去则Memo1中的内容就会全部一样，如下！ 116.txt 116.txt 116.txt 116.txt 116.txt 116.txt 如果不要那句话则结果正常 111.txt 112.txt 113.txt 114.txt 115.txt 116.txt 求教各位大虾！

icewaiter · 2005-11-29

语句不全，不过这里看不出什么问题来， 检查一下你的程序，在其他地方Memo1 与strList　有什么关系？应该在其他地方有问题

dragon1983 · 2005-11-29

procedure TfrmChangeFileName.BtnListClick(Sender: TObject); var  i : integer; begin  If FileList=nil then FileList := TStringList.Create else FileList.Clear;  MemoFileList.Lines.Clear;  OpenFile.FileName := '*.*';  OpenFile.Filter   := '*.*';  if OpenFile.Execute then begin    for i:=0 to OpenFile.Files.Count-1 do begin      MemoFileList.Lines.Add(ExtractFileName(OpenFile.Files.Strings));      FileList.Add(OpenFile.Files.Strings);      end;  end else exit;  EditFileName.Text := ExtractFileName(OpenFile.Files.Strings[0]);  EditNumEnd.Text   := inttostr((MemoFileList.Lines.Count-strtoint(EditNumStart.Text))-1);  if MemoFileList.Lines.Count>=2 then begin    BtnUp.Visible   := True;    BtnDown.Visible := True;  end; end;

Genl · 2005-11-29

很健康的语句光看这些看不出来验证通过 procedure TForm1.Button1Click(Sender: TObject); var i:integer;    strList:TStringList; begin strlist:=TStringList.Create; if Form1.OpenDialog1.Execute then begin    for i:=0 to OpenDialog1.Files.Count-1 do begin      Memo1.Lines.Add(ExtractFileName(OpenDialog1.Files.Strings));      strList.Add(OpenDialog1.Files.Strings);      memo2.Lines.Add(StrList.Strings);    end;  end else exit; end;

dragon1983 · 2005-11-29

忘说了，我程序当中的var FileList : TStringList 是个全局变量，楼上的你再试试，我死活都搞不过来，快疯了，最后我想了一招绝的，问题是摆平了，但我想知道我先前的倒底问题出在哪里？自己改后的代码如下！ var  FileList : TStringList; implementation ...... procedure TfrmChangeFileName.BtnListClick(Sender: TObject); var  i : integer; begin  If FileList=nil then FileList := TStringList.Create else FileList.Clear;  MemoFileList.Lines.Clear;  FileList.Clear;  OpenFile.FileName := '*.*';  OpenFile.Filter := '*.*';  if OpenFile.Execute then begin    for i:=0 to OpenFile.Files.Count-1 do begin      MemoFileList.Lines.Add(ExtractFileName(OpenFile.Files.Strings));     // FileList.Add(OpenFile.Files.Strings);//有了这一句上一句就不正常了    end;  end else exit;  EditFileName.Text := ExtractFileName(OpenFile.Files.Strings[0]);  for i:=0 to OpenFile.Files.Count-1 do begin  //隔一条语句再给FileList赋值    FileList.Add(OpenFile.Files.Strings);  end;  EditNumEnd.Text := inttostr((MemoFileList.Lines.Count-strtoint(EditNumStart.Text))-1);  if MemoFileList.Lines.Count>=2 then begin    BtnUp.Visible := True;    BtnDown.Visible := True;  end; end; 大家帮忙看看！

dragon1983 · 2005-11-30

没人知道吗？还是没人看贴啊！

SupermanTm · 2005-12-03

不管出了什么问题，首先这样的效率就不高 为什么不做一个中间变量  S:= OpenFile.Files.Strings;  MemoFileList.Lines.Add(S);  FileList.Add(S); ... String 是内联对象，这样的引用基本不消耗资源，至少不需要在两次的 Add 方法中重新计算Strings

dragon_man2002 · 2005-12-06

同意楼上的！ 我测试了一下你的代码！ 用一个中间变量就可以解决问题了！！！！！！

dragon1983 · 2005-12-06

接受答案了.

一个有关全局的字符串列表的问题！ ( 积分: 20 )

dragon1983

Unregistered / Unconfirmed

dragon1983

Unregistered / Unconfirmed

icewaiter

Unregistered / Unconfirmed

dragon1983

Unregistered / Unconfirmed

Genl

Unregistered / Unconfirmed

dragon1983

Unregistered / Unconfirmed

dragon1983

Unregistered / Unconfirmed

SupermanTm

Unregistered / Unconfirmed

dragon_man2002

Unregistered / Unconfirmed

dragon1983

Unregistered / Unconfirmed

Similar threads