![]() |
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
![]() |
Desktop_4 |
![]()
Сообщение
#1
|
Новичок ![]() Группа: Пользователи Сообщений: 20 Пол: Мужской Репутация: ![]() ![]() ![]() |
Как сохранить даные со StringGrid в текстовый файл. Если в него введена матрица
Например 1 2 3 4 5 6 7 8 9 В таком же виде надо что бы эти даные сохранились в текстовый файл 1 2 3 4 5 6 7 8 9 нашел процедуру сохранение, но она сохраняет одно число на строку, а это не подходит Код procedure SaveStringGrid(StringGrid: TStringGrid; const FileName: TFileName); var f: TextFile; i, k: Integer; begin AssignFile(f, FileName); Rewrite(f); with StringGrid do begin // Write number of Columns/Rows Writeln(f, ColCount); Writeln(f, RowCount); // loop through cells for i := 0 to ColCount - 1 do for k := 0 to RowCount - 1 do Writeln(F, Cells[i, k]); end; CloseFile(F); end; Тоесть примерно так 1 2 3 4 5 6 7 8 9 И как сделать что бы не сохранялись даные которые внесеные в ячейки позначеные серым цветом ? |
![]() ![]() |
![]() |
Текстовая версия | 12.07.2025 2:27 |