delphi代码转换为C++ Builder代码

2025-03-28 10:31:33

推荐回答（3个）

回答1：

Delph和BCB虽是一个公司,同为VCL框架,但是毕竟是两种语言,不会像楼上说的.换成->就可以的.
现假设楼主有一定的C++基础,能使用基本的BCB6,改写如下:
1.新建一新工程,加入一Memo和一Button,控件Name为Memo1和Button1(即默认的名字)
2.向Memo1中加入任意内容,双击Button1产生单击事件
3.加入如下代码:
//---------------------------------------------------------------------------

#include
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void txttojpeg(TMemo* Memo1,AnsiString filename,TColor brush_color,TFont* font,TColor font_color,int width, int height)
{
Graphics::TBitmap *temp=new Graphics::TBitmap();
temp->Height=height;
temp->Width=width;
temp->Transparent=true;
temp->Canvas->Brush->Color=brush_color;
temp->Canvas->Font=font;
temp->Canvas->Font->Color=font_color;

int i=0,j=0;
for (i=0;iLines->Count;i++){
j = j + 15;
temp->Canvas->TextOutA(10,j,Memo1->Lines->Strings[i]);
}
temp->SaveToFile(filename);
delete temp;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
txttojpeg(Memo1 ,"12.bmp", clWhite, Memo1->Font, clBlack, Memo1->Width, Memo1->Height);
}
//---------------------------------------------------------------------------
4.代码中重复的可省略,程序在BCB6 SP4下编译运行通过

回答2：

试试，这里面可能有不对的，再改改就差不多了（不知你里面引用的是什么），这是一个自定义函数。
void __fastcall TForm1::FTP_DeleteAllFiles(TIdFtp idFTP, String RemoteDir)

{
idFTP->ChangeDir(RemoteDir);
Form1->Memo1->Lines->Add("ChangeDir:" + idFTP->RetrieveCurrentDir);
idFTP->List(nil);
DirCount = idFTP->DirectoryListing->Count;
if (DirCount == 0 )
{
try
{
idFTP->RemoveDir(idFTP->RetrieveCurrentDir);
Form1->Memo1->Lines->Add("Success:" + idFTP->RetrieveCurrentDir);
}
finally
Form1->Memo1->Lines->Add("Failed:" + idFTP->RetrieveCurrentDir);

//上级
Temp = Form1->GetPrevDir(idFTP->RetrieveCurrentDir);
if (Temp != '/' )
FTP_DeleteAllFiles(idFTP, Temp);
}

for( i = 0 ;i== DirCount - 1;)
{
if (idFTP->DirectoryListing[i]->ItemType == ditDirectory)
//下级
FTP_DeleteAllFiles(idFTP, idFTP->DirectoryListing[i]->FileName);

if (idFTP->DirectoryListing[i]->ItemType == ditFile)
{
Temp = idFTP->DirectoryListing[i]->FileName;
try
{
idFTP->Delete(Temp);
Form1->Memo1->Lines->Add("Success:" + Temp);
}
finally
Form1->Memo1->Lines->Add("Failed:" + Temp);
}
}

}

回答3：

手动翻译吧

最新问答

品质部QE工程师如何开展工作？（主要供应商管理）

ps油漆桶工具为什么要点很多下一次次加深才能变成选的颜色我记得以前是点一下就行啊

正弦电流和电压用向量法表示时可以表示瞬时值吗

白条肉鸡注册商标属于哪一类？

杭州市到印尼巴黎岛飞机要多少时间

地表环境特征包括哪些方面