不熟Delphi，麻烦改成BCB，取Bios信息的代码

[有哥]

with Memo1.Lines do
begin
Add('MainBoardBiosName:'+^I+string(Pchar(Ptr($FE061))));
Add('MainBoardBiosCopyRight:'+^I+string(Pchar(Ptr($FE091))));
Add('MainBoardBiosDate:'+^I+string(Pchar(Ptr($FFFF5))));
Add('MainBoardBiosSerialNo:'+^I+string(Pchar(Ptr($FEC71))));
end;

[cplusc]

Memo1.Lines.Add("MainBoardBiosName:"+^I+string(Pchar(Ptr($FE061))));
Memo1.Lines.Add("MainBoardBiosCopyRight:"+^I+string(Pchar(Ptr($FE091))));
Memo1.Lines.Add("MainBoardBiosDate:"+^I+string(Pchar(Ptr($FFFF5))));
Memo1.Lines.Add("MainBoardBiosSerialNo:"+^I+string(Pchar(Ptr($FEC71))));

[Format_CIH]

Memo1->Lines->Add("MainBoardBiosName:"+^I+string(Pchar(Ptr($FE061))));
Memo1->Lines->Add("MainBoardBiosCopyRight:"+^I+string(Pchar(Ptr($FE091))));
Memo1->Lines->Add("MainBoardBiosDate:"+^I+string(Pchar(Ptr($FFFF5))));
Memo1->Lines->Add("MainBoardBiosSerialNo:"+^I+string(Pchar(Ptr($FEC71))));

[alexxing]

楼上的有意思，C++和Delphi混合，呵呵

[alexxing]

你这段Delphi程序本身好像就有问题：
^I 是什么？
你最好把 I 的变量声明一道帖出来，才好判断
姑且假设 I 是指针，那么取内容应该是 I^，对应的C写法是 *I

Memo1->Lines->Add( AnsiString("MainBoardBiosName:") + *I + AnsiString((const char *)0xFE061) );
Memo1->Lines->Add( AnsiString("MainBoardBiosCopyRight:") + *I + AnsiString((const char *)0xFE091) );
Memo1->Lines->Add( AnsiString("MainBoardBiosDate:") + *I + AnsiString((const char *)0xFFFF5) );
Memo1->Lines->Add( AnsiString("MainBoardBiosSerialNo:") + *I + AnsiString((const char *)0xFEC71) );

[alexxing]

而且 I 的变量定义也要一起翻译成 C++，你的程序才能用啊

[rockhard]

{
Memo1->Lines->Add("MainBoardBiosName:"+I+(char *)0xFE061));
Memo1->Lines->Add("MainBoardBiosCopyRight:"+I+(char *)0xFE091));
Memo1->Lines->Add("MainBoardBiosDate:"+I+(char *)0xFFFF5));
Memo1->Lines->Add("MainBoardBiosSerialNo:"+I+(char *)0xFEC71));
}

不知道对不？Delphi中Ptr 已不知道是什么意了，是不是指针 ？

[rockhard]

调试通过 ，假设I为char *

{
Memo1->Lines->Add("MainBoardBiosName:"+(AnsiString)I+(AnsiString)(char *)0xFE061));
Memo1->Lines->Add("MainBoardBiosCopyRight:"+(AnsiString)I+(AnsiString)(char *)0xFE091));
Memo1->Lines->Add("MainBoardBiosDate:"+(AnsiString)I+(AnsiString)(char *)0xFFFF5));
Memo1->Lines->Add("MainBoardBiosSerialNo:"+(AnsiString)I+(AnsiString)(char *)0xFEC71));
}