تبدیل از دلفی به سی بیلدر

[farah_sun]

حدود بیست خط کد به زبان دلفی دارم کسی هست که بتونه برای تبدیل اون به سی بیلدر کمک کنه؟؟؟؟؟؟

[alireza643]

خوب شما کدتون رو اینج قرار بدید تا کمک کنیم.

[farah_sun]

procedure ExportToExcel(ADO: TADOTable; ExcelApp: TExcelApplication);
var
Template: OleVariant;
S: String;
CRec, CField: Integer;
begin{1}
Template := 'C:\Template.xlt';
with ExcelApp do
begin{2}
Connect;
Caption := 'Export';
Workbooks.Add(Template, 0);
ADO.First;
for CField := 0 to ADO.FieldCount - 1 do
begin{3}
S := ADO.Fields[CField].DisplayLabel;
Range[char(CField+65) + '1',char(CField+65) + '1'].Select;
ActiveCell.FormulaR1C1 := S;
end;{4}
for CRec := 1 to ADO.RecordCount do
begin{5}
for CField := 0 to ADO.FieldCount - 1 do
begin{6}
S := ADO.Fields[CField].AsString;
Range[char(CField+65)+ IntToStr(CRec+1),char(CField+65)+ IntToStr(CRec+1)].Select;
ActiveCell.FormulaR1C1 := S;
end;{6}
ADO.Next;
end;{5}
Cells.Select;
Cells.EntireColumn.AutoFit;
Cells.EntireRow.AutoFit;
Range['A1','A1'].Select;
end;{2}
end;{1}

[farah_sun]

این برنامه رو از یکی از بچه ها تو قسمت برنامه نویسی به زبان دلفی گرفتم که اطلاعات رو به excel میفرسته کسی می تونه تو تبدیلش به cbuilder کمک کنه

[Inprise]

تبدیل کردنش که کار ساده ای است اما چه لزومی داره ؟ BCB کدهای دلفی رو هم کامپایل میکنه . تابعت رو در یک یونیت بگذار و داخل کد سی ازش استفاده کن ، تفاوتی نمیکنه .

[farah_sun]

اخه این تکه برنامه برای یه برنا مه ی حسابداری به زبان سی بیلدر مورد نیازه میشه بیشتر توضیح بدین تابع رو در یک یونیت بگذار و داخل کد سی ازش استفاده کن یعنی چی و چطور باید انجام داد مراحلش چطوره

[alireza643]

سلام
وقتی شما BDB رو باز کردید برید تو منوی File و بعد New اولین گزینه از زیر مجموعه ها
unit-c++builder هست.
به طور کلی یه یونیت از یه فایل .h و یه فایل cpp تشکیل شده.
موفق بایشد.