فتح الملف النصي لـ Virement CCP في StringGrid
#11
وعليكم السلام

جرب الكود لأني كتبته دون تجريب وأخوك مبتدئ
كود :
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);
الرد
#12
(21-05-2020, 07:22 PM)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);


تحاج إلى إدراج حقل و حفظه
كود :
dbgrid.DataSource.DataSet.insert
//...
//...
dbgrid.DataSource.DataSet.post
الرد
#13
بارك الله فيكم
ينقصنا
تغيير الكود المتعلق بتلوين الخانة حسب الشرط الذي وضع سابقا على stringrid
كيف يتم تغييره حتى يتلائم مع dbgrid
واقصد كل الأكواد التي كانت تخص المكون stringrid
يجب تغييرها الى المكون dbgrid
جزاكم الله عما كل خير
الرد
#14
(21-05-2020, 11:43 PM)medreg كتب : بارك الله فيكم
ينقصنا
تغيير الكود المتعلق بتلوين الخانة حسب الشرط الذي وضع سابقا على stringrid
كيف يتم تغييره حتى يتلائم مع dbgrid
واقصد كل الأكواد التي كانت تخص المكون stringrid
يجب تغييرها الى المكون dbgrid
جزاكم الله عما كل خير

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


التنقل السريع :


مستخدمين يتصفحوا هذا الموضوع: 1 ضيف