c++builder与delphi的翻译， 在线等待 (0分)

S

sukun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-15

• #1

void __fastcall TForm1::Button29Click(TObject *Sender)
{
char chErrMsg[40],chCardType[40],State[3];
short ret;

memset(chErrMsg,'/0',40);
memset(chCardType,'/0',40);
memset(State,'/0',3);

strcpy(chCardType,ComboBox4->Text.c_str());

StatusBar1->Panels->Items[1]->Text = "当前操作：设置卡类型";
ret = gSetCardType(chCardType,chErrMsg);
sprintf(State,"%d",ret);
Edit38->Text = State;
Edit5->Text = chErrMsg;
}
将这段c++builder的代码翻译成delphi的，必有重谢。

 

T

takashiki

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-15

• #2

procedure TForm1.Button29Click(Sender:TObject);
var chErrMsg:array [0..40] of char;
chCardType:array[0..40] of char;
State:array[0..3] of char;
begin
ComboBox4.Text:=string(chCardType);
Edit5.text:='';
Edit16.text:='';
...
Statusbar1.Panels[1].Text:='当前操作：设置卡类型';
ret := gSetCardType(chCardType,chErrMsg);
edit38.text:=ret;
edit5.text:=string(chErrMsg);
end;

 

S

sukun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-15

• #3

上面的错误呀

 

G

gydldfw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-15

• #4

内存设置用zeromemory，具体用法查帮助。
其余翻译自己做。

 

S

sukun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-15

• #5

gydldfw 这位朋友留个邮箱好吗，急死我了，项目快到时间了

 

S

sukun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-15

• #6

strcpy(chCardType,ComboBox4->Text.c_str());
memset(chErrMsg,'/0',40);
这两句怎样翻译呀

 

G

gydldfw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-15

• #7

还有啥问题啊？

 

S

sukun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-15

• #8

没了，这两个是一个问题，大侠，帮忙呀

 

G

gydldfw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-15

• #9

copymenory(@chCardType[0],PChar(控件字符),Length(控件字符));
zeromemory(@chErrMsg[0], 40);
不是让你查帮助了吗？

 

S

sukun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-16

• #10

接受答案了.