فتح الملف النصي لـ Virement CCP في StringGrid

[ALG2009]

وعليكم السلام

جرب الكود لأني كتبته دون تجريب وأخوك مبتدئ

كود :

var f: TextFile;
    LigneTexte:string;
begin
  AssignFile(f,'موقع الملف');
  Reste(f);
  while not eof(f)  do
  begin
     readln(F,fline);
      dbgrid.DataSource.DataSet.FieldByName('Field Name').AsString:=Copy(LigneTexte,10,10);
      dbgrid.DataSource.DataSet.FieldByName('Field Name').AsString:=copy(LigneTexte,20,2);
      dbgrid.DataSource.DataSet.FieldByName('Field Name').float:=strTOfloat(copy(LigneTexte,22,13))/100;
      dbgrid.DataSource.DataSet.FieldByName('Field Name').AsString:=Trim(copy(LigneTexte,35,27));
     
    end;
  CloseFile(F);

[larbiparadox]

وعليكم السلام

جرب الكود لأني كتبته دون تجريب وأخوك مبتدئ

كود :

var f: TextFile;
    LigneTexte:string;
begin
  AssignFile(f,'موقع الملف');
  Reste(f);
  while not eof(f)  do
  begin
     readln(F,fline);
      dbgrid.DataSource.DataSet.FieldByName('Field Name').AsString:=Copy(LigneTexte,10,10);
      dbgrid.DataSource.DataSet.FieldByName('Field Name').AsString:=copy(LigneTexte,20,2);
      dbgrid.DataSource.DataSet.FieldByName('Field Name').float:=strTOfloat(copy(LigneTexte,22,13))/100;
      dbgrid.DataSource.DataSet.FieldByName('Field Name').AsString:=Trim(copy(LigneTexte,35,27));
     
    end;
  CloseFile(F);

تحاج إلى إدراج حقل و حفظه

كود :

dbgrid.DataSource.DataSet.insert
//...
//...
dbgrid.DataSource.DataSet.post

[medreg]

بارك الله فيكم
ينقصنا
تغيير الكود المتعلق بتلوين الخانة حسب الشرط الذي وضع سابقا على stringrid
كيف يتم تغييره حتى يتلائم مع dbgrid
واقصد كل الأكواد التي كانت تخص المكون stringrid
يجب تغييرها الى المكون dbgrid
جزاكم الله عما كل خير

[ALG2009]

بارك الله فيكم
ينقصنا
تغيير الكود المتعلق بتلوين الخانة حسب الشرط الذي وضع سابقا على stringrid
كيف يتم تغييره حتى يتلائم مع dbgrid
واقصد كل الأكواد التي كانت تخص المكون stringrid
يجب تغييرها الى المكون dbgrid
جزاكم الله عما كل خير

هل ممكن الكود النهائي

[m.rabah83]

شكرا على الموضوع القيم
هناك مشكلة في الملفات المرفقة يبدو أنها معطوبة
Fichier endommagé