banland的两大软件的互译，c++builder与delphi,在线等待

[sukun]

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

[blueneo]

真服了你了，这段代码基本上不用怎么改，你只要改一下语法就行了。

[sukun]

memset(State,'\0',3);

strcpy(chCardType,ComboBox4->Text.c_str());
这两句对应的翻译是什么呀，说的轻松，你试试看，上面的朋友。

[zzzerg9000]

我也在等那位达人来解呀！！！！！！！！！！！！！！！！！！！！！
我都要疯了！！

[belllab]

问题点数： 0 ？？？

[sukun]

100份