إخواني محترفي الدالفي

[Talbedro]

السلام عليكم
أريد مساعدة في دالفي 7 عن كيفية استخراج المعلومات من Dbgrid إلى Excel 2007
وبارك الله فيكم

[S0FIANE]

و عليكم السلام
هناك عدة طرق يمكنك تثبيت مكوانات خاصة بعمل ذالك لكن أحسن طريقة و بدون مكون هي باستعمال مكون memo


procedure TForm1.Button1Click(Sender: TObject);
begin
while not adotable1.Eof do
begin
memo1.Lines.Append(adotable1['Nom']+';'+adotable1['Prenom']+';'+adotable1['Specialite']);
adotable1.Next;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
SaveDialog.FileName := 'excel.csv';
SaveDialog.Execute;
Memo1.Lines.SaveToFile(SaveDialog.FileName);

end;