Сохранение stringgrid c многострочными ячейками

@ЦенительПрекрасного · Регистрация: 02.06.2016

Author24 — интернет-сервис помощи студентам

Подскажите как сохранить содержимое stringgrig в файл, чтобы потом обратно можно было его загрузить в том же виде.
изначально делал так,
но в ячейках одного из столбцов может быть многострочный текст, поэтому данный метод уже не подходит

@volvo · 21.08.2016, 00:32

Сообщение от ЦенительПрекрасного

но в ячейках одного из столбцов может быть многострочный текст, поэтому данный метод уже не подходит

А и не нужно. В Лазарусе в StringGrid есть специальный метод, позволяющий сохранять/загружать содержимое грида в одну строку кода:

Pascal

procedure TForm1.btnSaveClick(Sender: TObject);
begin
  StringGrid1.SaveToCSVFile('strgrid.txt');
end;
 
procedure TForm1.btnLoadClick(Sender: TObject);
begin
  StringGrid1.LoadFromCSVFile('strgrid.txt');
end;

, а чтобы нормально отображались многострочные ячейки - напиши вот такой обработчик в OnPrepareCanvas грида:

Pascal

procedure TForm1.StringGrid1PrepareCanvas(sender: TObject; aCol, aRow: Integer;
  aState: TGridDrawState);
var
  MyTextStyle: TTextStyle;
begin
  MyTextStyle := StringGrid1.Canvas.TextStyle;
  MyTextStyle.SingleLine := false;
  StringGrid1.Canvas.TextStyle := MyTextStyle;
end;

Только что проверил, записывается и подгружается совершенно нормально.

@ЦенительПрекрасного 0 / 0 / 0 Регистрация: 02.06.2016 Сообщений: 29
		1
	Сохранение stringgrid c многострочными ячейками 20.08.2016, 21:18. Показов 1266. Ответов 1 Метки нет (Все метки) Подскажите как сохранить содержимое stringgrig в файл, чтобы потом обратно можно было его загрузить в том же виде. изначально делал так, но в ячейках одного из столбцов может быть многострочный текст, поэтому данный метод уже не подходит 0

	21.08.2016, 00:32

Сохранение stringgrid c многострочными ячейками

Решение