请问如下代码有和错误？

[shawnyau]

void __fastcall TfrmMain::btnOpenClick(TObject *Sender)
{
if(OpenDialog->Execute()){
PlayList->Items->Clear();
PlayList->Items->BeginUpdate();
for(int i=0; i<OpenDialog->Files->Count; i++){
PlayList->Items->Add(ExtractFileName(OpenDialog->Files[i].Text));
}
PlayList->Items->EndUpdate();
EnableAll();
}
}

[halibut]

没看出来!有吗?指点一下!

[halibut]

!


ExtractFileName(OpenDialog->Files->Strings[i].Text);

[shawnyau]

编译无错，执行报错:
Access violation at address 00000000.Read of address 00000000

[tccsdn]

PlayList->Items->Add(ExtractFileName(OpenDialog->Files[i].Text));
该为：
PlayList->Items->AddStrings(ExtractFileName(OpenDialog->Files);

[AeLord]

这位朋友在做什么呀？

[shawnyau]

to tccsdn(BCB||乱码):
呵呵，谢谢关注，不过你的方法不对，因为OpenDialog的Files属性是一个
TString类型的，而ExtractFileName()函数需要的是一个AnsiString类型的参数，所以你的写法是不能通过编译的。

[tccsdn]

void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
if(OpenDialog1->Execute())
{
for(int i=0; i<OpenDialog1->Files->Count; i++)
{
ListBox1->Items->Add(ExtractFileName(OpenDialog1->Files->Strings[i]));
}
}
}

这样没问题了

[shawnyau]

呵呵，谢谢了。