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

Question

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的，必有重谢。

Answer 1

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