字符串等几个问题 |
|
答題得分者是：dllee
|
|
bigdogchina
版主   發表：238 回覆：523 積分：312 註冊：2003-04-28 發送簡訊給我 |
大大们,小弟又要向您们请教了,请点拨一下我吧
void __fastcall TForm1::Button1Click(TObject *Sender)
{
if(StrScan(Edit1->Text.c_str(), '.exe'))
{
ShowMessage("有，搞定了");
}
else
ShowMessage("没有找到在这个字符串里有.exe");
}
但是我发现当字符串为: c:\test.exe 时是可以正确判断的，但当形为 c:\texe.ico时,它也判断为有.exe哦,我可是要知道该字符串的最后4个是否为.exe啊.我不知道有没有别的什么办法避免？
问题4:
TListItem和TStringList之间有关系吗？有什么办法可以转化:
(下面的ListView1的ViewStyle为vsReport;还有ListView1.Columns[0].Caption = "进程名称")
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TRegistry *Reg = new TRegistry;
AnsiString sCurrentPath;
sCurrentPath = "\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Run";
TStringList *str = new TStringList; try
{
Reg->RootKey = HKEY_LOCAL_MACHINE;
Reg->OpenKey(sCurrentPath,true);
Reg->GetValueNames(str); //得到所有自动运行的键值
}
__finally
{
Reg->CloseKey();
delete Reg;
} CheckListBox1->Items->AddStrings(str);
for(int i = 0; i < CheckListBox1->Items->Count; i )
{
TListItem *ListItem = ListView1->Items->Add(); //加一个空项就马上把自己加进去
ListItem->Caption = CheckListBox1->Items->Strings[i];
}
}
我绕了一个大圈子,建了一个CheckListBox在中间为ListView做中转,因为我不知道如何在TListItem和TStringList之间建立一个桥梁.
上述问题对大大您们来说是有点简单,但对我这个小菜鸟来说是有点难,恳请您们能指点一下我,好吗?谢谢了
------
人生在勤，不索何获？ |
|
dllee
站務副站長  發表：321 回覆：2519 積分：1711 註冊：2002-04-15 發送簡訊給我 |
哇，問題會不會太多了一點
void __fastcall TForm1::Button1Click(TObject *Sender)
{
if(ExtractFileExt(Edit1->Text).UpperCase()=="EXE")
{
ShowMessage("有，搞定了");
}
else
ShowMessage("副檔名不是 exe");
}
问题4:
TListItem和TStringList之间有关系吗？有什么办法可以转化:
(下面的ListView1的ViewStyle为vsReport;还有ListView1.Columns[0].Caption = "进程名称")
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TRegistry *Reg = new TRegistry;
AnsiString sCurrentPath;
sCurrentPath = "\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Run";
TStringList *str = new TStringList; try
{
Reg->RootKey = HKEY_LOCAL_MACHINE;
Reg->OpenKey(sCurrentPath,true);
Reg->GetValueNames(str); //得到所有自动运行的键值
}
__finally
{
Reg->CloseKey();
delete Reg;
}
我绕了一个大圈子,建了一个CheckListBox在中间为ListView做中转,因为我不知道如何在TListItem和TStringList之间建立一个桥梁.
上述问题对大大您们来说是有点简单,但对我这个小菜鸟来说是有点难,恳请您们能指点一下我,好吗?谢谢了
------
http://www.ViewMove.com |
|
bigdogchina
版主 發表：238 回覆：523 積分：312 註冊：2003-04-28 發送簡訊給我 |
發表時間：2003-07-09 21:56:14
IP:211.162.xxx.xxx 未訂閱
系統時間：2024-06-29 16:41:39
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |