Как реализовать задуманное

[Shouldercannon]

Вот неплохо

procedure TForm1.FormCreate(Sender: TObject);
begin
  StringGrid1.Cells[0, 0] := 'Номер';
  StringGrid1.Cells[1, 0] := 'Приём';
  StringGrid1.Cells[2, 0] := 'Выдача';
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  IniFile: TIniFile;
  I, I2: Integer;
begin
  try
    IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'test.ini');
    try
      for I := 1 to StringGrid1.RowCount - 1 do // Цикл с 1, Fixed row не нужен
      begin
        for I2 := 0 to StringGrid1.ColCount - 1 do
        begin
          IniFile.WriteString('Row' + IntToStr(I), 'Item' + IntToStr(I2), StringGrid1.Cells[I2, I]);
        end;
      end;
    except
    end;
  finally
    FreeAndNil(IniFile);
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  IniFile: TIniFile;
  SL: TStringList;
  Col, Row, I, I2: Integer;
begin
  // Очистка таблицы
  for Col := 0 to StringGrid1.ColCount - 1 do
    for Row := 1 to StringGrid1.RowCount - 1 do StringGrid1.Cells[Col, Row] := ''; // Цикл с 1, Fixed row не трогаем
  try
    IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'test.ini');
    SL := TStringList.Create;
    try
      IniFile.ReadSections(SL);
      StringGrid1.RowCount := SL.Count + 1; // + 1 из-за Fixed row
      StringGrid1.ColCount := 3;
      Col := 0;
      Row := 1;
      for I := 0 to SL.Count - 1 do
      begin
        for I2 := 0 to 2 do
        begin
          StringGrid1.Cells[Col, Row] := IniFile.ReadString(SL.Strings[I], 'Item' + IntToStr(I2), '');
          inc(Col);
        end;
        Col := 0;
        inc(Row);
      end;
    except
    end;
  finally
    FreeAndNil(IniFile);
    FreeAndNil(SL);
  end;
end;

[min@y™]

Я сделал всё, что мог. Умываю руки...

https://coub.com/view/70r5

[northener]

Сообщение от Shouldercannon

Всё не так просто.

Опять вы чего-то умалчиваете.