Последние записи

made in programmersforum 3

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

19th
Май

Сохранение и чтение файла в StringGrid

Posted by Chas under Пост-обзор

Вообщем мне нужно заполнить 6 ячеек, сохранить, а после при загрузке чтобы всё читалось и редактировалось.

Anny_Apple:

Сохранение и чтение TStringGrid  
procedure SaveGrid;

var

  f: textfile;

  x, y: integer;

begin

  assignfile(f, 'Filename');

  rewrite(f);

  writeln(f, stringgrid.colcount);

  writeln(f, stringgrid.rowcount);

  for X := 0 to stringgrid.colcount - 1 do

    for y := 0 to stringgrid.rowcount - 1 do

      writeln(F, stringgrid.cells[x, y]);

  closefile(f);

end;
procedure LoadGrid;

var

  f: textfile;

  temp, x, y: integer;

  tempstr: string;

begin

  assignfile(f, 'Filename');

  reset(f);

  readln(f, temp);

  stringgrid.colcount := temp;

  readln(f, temp);

  stringgrid.rowcount := temp;

  for X := 0 to stringgrid.colcount - 1 do

    for y := 0 to stringgrid.rowcount - 1 do

    begin

      readln(F, tempstr);

      stringgrid.cells[x, y] := tempstr;

    end;

  closefile(f);

end;