(18-05-2020, 07:49 PM)larbiparadox كتب : وعليك السلام
سأعطيك مثال لوضع الاصفار
مثال رقم الحساب : 11111 طوله خمس حروف و رقم الحساب كامل طوله 20 ، ننقص طول المفتاح بقي 18 حرف كيفية ملأ الاصفار متبقية
كود :edit1.Text := StringOfChar('0',18-length('11111')) + '11111'
استعملنا StringOfChar('0',18) معنها كرر الصفر 18 مرة ، كما يمكنك استعمالها في تكرار الفراغ StringOfChar(' ',18)
بارك الله فيك وجزاك الله خير
لقد حاولت سابقا ووضعت هذا الكوج ولكن لم يعمل بإضافة الأصفار يضيف الفرغات فقط لا أدري ما السبب أو هو يعمل مع الفرغات فقط
كود :
Cells[4, i],' ':27- length(Cells[4, i]),1);وهذا الكود الأخير
هل من أي إنتقادات أو الكود يعتبر جيد وأصبحت خبير
كود :
AssignFile(f,'d:\1.txt');
Rewrite(f);
with StringGrid1 do
begin
for i := 1 to RowCount - 1 do
begin
Write(F,'*00799999',stringofchar('0',10- length(Cells[2, i]))+Cells[2, i],cells[3, i],stringofchar('0',10- length(Cells[5, i]))+Cells[5, i],Cells[4, i],' ':27- length(Cells[4, i]),1);
writeln(f);
end;
end;
CloseFile(F);مع العلم سأحاول وضع شكل العرض للمبلغ لا أدري إن كان سيؤثر أم لا أي ستضتف الفواصل أقصد Format('0,0##.##',stringGrid.Cells[i,j])
في خانة المبلغ لل StringGrid إن كان هناك تأثير سأظطر إلى دالة تحذف الفواصل
بالفعل وقعت في مشكلة حذف الفواصل من المبلغ
