01-02-2017, 09:43 PM
(آخر تعديل لهذه المشاركة: 02-02-2017, 08:20 AM بواسطة محمد عبد العزيز.)
السلام عليكم
هذا مثال لمساعدتك، ولكن عليك أن تبذل جهدا...
وآمل أن يكون هذا الملف مساعد، لم أختبر تحت دلفي أنا أكتب مباشرة في المنتدى... شكرا
هذا مثال لمساعدتك، ولكن عليك أن تبذل جهدا...
كود :
var
list : tstringList;
begin
list := TstringList.create(nil);
table1.first ;
While Not table1.eof Do
begin
list.add(lignedevirement(table1['NCCP'],Table1['Montant'],Table1['Nom'] + ' '+ Table1['prenom']) );
Table1.next;
end;
list.items.savetofile('c:\virement.txt');
end;
حتى لو فشلت يكفيك شرف المحاولة....