Сохранить (загрузить) TStringGrid в (из) файл(а)
Сохранить (загрузить) TStringGrid в (из) файл(а)
Сохранить (загрузить) TStringGrid в (из) файл(а) procedure SaveGrid(Grid:TStringGrid;FileName:string); var f: textfile; x, y: integer; begin assignfile(f,Filename); rewrite(f); writeln(f, grid.colcount); writeln(f, grid.rowcount); for X := 0 to grid.colcount - 1 do for y := 0 to grid.rowcount - 1 do writeln(F, grid.cells[x, y]); closefile(f); end;