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