|
Написал такую штуку:
var
AppIni: TIniFile;
u:integer;
begin
AppIni := TIniFile.Create('d:/db.ini');
AppIni.ReadSections(SG.Cols[1]);
AppIni.ReadSection('field1',SG.Cols[2]);
AppIni.ReadSectionValues('field2',SG.Cols[3]);
AppIni.Free;
for u:=1 to SG.Rowcount do
SG.Cells[0,u]:=InttoStr(u);
end;
Но че-то криво открывается...все ряды сместились вправо и считываются только те, в которых были записи..а пустые я так понял и не сохранились
|