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

[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