602
社区成员
发帖
与我相关
我的任务
分享
void __fastcall TForm6::Button2Click(TObject *Sender)
{
TStringList *lst = new TStringList;
TResourceStream *rs;
bool bSucceed(false);
try
{
try
{
// 从资源中读取文本文件,注意这是从dll中读取,如果是从自身EXE,第一个参数用HInstance
rs = new TResourceStream(int(hDll), String("CrnTXT"), String("FILES").c_str());
bSucceed = true;
}
catch(...)
{
ShowMessage("资源读取失败");
}
if (bSucceed)
{
rs->Position = 0;
// 将文本文件内容装入TStringList
lst->LoadFromStream(rs);
// 如果有必要,显示在Memo中
Memo1->Lines->Assign(lst);
}
}
__finally
{
delete lst;
}
}