Как правильно выгрузить StringGrid в структурированный файл - Lazarus - Ответ 10689259

procedure TForm1.BitBtn7Click (Sender: TObject);
var
  i: integer;
  s: string;
begin
  {----------инициализируме файлы-------------------}
  dest := TStringList.Create;
  {-------заполняем файл для импорта, заголовок------------}
  dest.Add ('<?xml version="1.0" encoding="Windows-1251"?>');  //начало файла...
  dest.add ('<ФайлПФР>');
  dest.add ('<ИмяФайла>' + edit1.Text + '</ИмяФайла>');
  dest.add ('<ДатаФормированя>' + DateEdit1.Text + '</ДатаФормированя>');    //Дата создания
  dest.add ('<ВерсияФормата>' + ComboBox1.Text + '</ВерсияФормата>');
  //версия формата
  dest.add ('<ТипФайла>' + ComboBox2.Text + '</ТипФайла>');
  dest.add ('<КоличествоЗаписейВфайле>' + Edit5.Text + '</КоличествоЗаписейВфайле>');
  dest.add ('<Валидация_запрос>');
  {-------------Заполняем дальше-----------------}
 
  for i := 1 to StringGrid1.RowCount - 1 do
  begin // <--- Вот этот begin был не на своем месте
    dest.Add ('<ИдентификаторЗапроса>' + StringGrid1.Cells[0, i] + '</ИдентификаторЗапроса>');
    dest.Add ('<СНИЛС>' + StringGrid1.Cells[1, i] + '</СНИЛС>');
    dest.Add ('<Фамилия>' + StringGrid1.Cells[2, i] + '</Фамилия>');
    dest.Add ('<Имя>' + StringGrid1.Cells[3, i] + '</Имя>');
    dest.Add ('<Отчество>' + StringGrid1.Cells[4, i] + '</Отчество>');
    dest.Add ('<ДатаРождения>' + StringGrid1.Cells[5, i] + '</ДатаРождения>');
    dest.Add ('<Пол>' + StringGrid1.Cells[6, i] + '</Пол>');
    dest.Add ('</Валидация_запрос>');
  end;
  //закрываем документ и сохраняем в файл
  dest.Add ('</ФайлПФР>');
 
  s := dest.Text;
  dest.Text := UTF8ToCP1251 (s); // <--- Вот оно, для записи файла в кодировке Win1251. В uses надо добавить LConvEncoding
 
  dest.SaveToFile (Edit3.Text);
  dest.Destroy;
end;