用CBC 打开文件解决思路

2012-02-29

用CBC 打开文件我按照书上说的FileListBox FilterComboBox DirectoryListBox DriveComboBox Edit 这五个组

用CBC 打开文件
我按照书上说的
FileListBox FilterComboBox DirectoryListBox DriveComboBox Edit 这五个组件的链接最后用Button(确定)打开最后出现在Edit组件中出现的文件

我Button的语句是这么写的

Delphi(Pascal) code

void __fastcall TForm4::Button1Click(TObject *Sender){int i=FileOpen("ExtractFilePath(Edit1->Text)",fmOpenReadWrite|fmShareExclusive);}

[解决办法]

C/C++ code

void __fastcall TForm1::FormCreate(TObject *Sender){  DriveComboBox1->DirList =  DirectoryListBox1 ;  DirectoryListBox1->FileList =FileListBox1 ;}//---------------------------------------//选择FileListBox1的一个文件 然后单击按钮void __fastcall TForm1::Button1Click(TObject *Sender){  Edit1->Text = FileListBox1->FileName  ;}
[解决办法]
"ExtractFilePath(Edit1->Text)" ...这句不对,应该是:
Edit1->Text,而且也不应该带双引号...
你的程序是打开文件名为"ExtractFilePath(Edit1->Text)"的文件了,这个文件不存在,当然打不开.
[解决办法]
ExtractFilePath(Edit1->Text)得到的是文件路径，没有文件名当然打不开。

热点排行

C++ Builder

用CBC 打开文件解决思路