Пользователь
Добро пожаловать,
Регистрация или вход
Потеряли пароль?
Ник:
Пароль:
Меню сайта
Главная
Аккаунт
Пользователи
Опросы
Поиск по сайту
Новости RSS
Форум
Отправить другу
Связаться с нами
Книги
Самоучители
Каталог софта
Исходники
Компоненты
Обработки 1С
CMS-центр
Шаблоны сайтов
Наборы иконок
Статьи и обзоры
Вопросы и ответы
Скрипты
Нетематичное
Ваше мнение
Как вы оцените наш сайт?
Замечательный
Хороший
Обычный
Плохой
Отвратительный
Результаты
Другие опросы
Всего голосов:
846
Комментарии:
10
Наши партнеры
Статистика
Статьи и обзоры
Главная
Лучшие
Популярные
Список
Добавить
Сохране
ни
е и чте
ни
е TStringGrid
Как мне сохра
ни
ть целый Stringgrid со всеми ячейками в файле?
Код
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;
Разместил:
admin
| | Прочитано: 23589 | |
Смотрите также связанные новости
25.12.2024 -
Кроссворд на Delphi
25.12.2024 -
Рождение, жизнь и гибель формы
25.12.2024 -
Воспроизводим Flash-файл в своем приложении
25.12.2024 -
Работа с потоками в Delphi
25.12.2024 -
SQL-запросы в Delphi
25.12.2024 -
BlobField как Bitmap
25.12.2024 -
Запись и чтение чисел в BLOB-поле
Нет комментариев. Почему бы Вам не оставить свой?
Вы не можете отправить комментарий анонимно, пожалуйста
войдите или зарегистрируйтесь
.
Внимание! Если у вас не получилось найти нужную информацию, используйте
рубрикатор
или воспользуйтесь
поиском
.
Статьи
и
обзоры
Delphi
и
TurboPascal
Сохранение
и
чтение
TStringGrid
Как
мне
сохранить
целый
Stringgrid
со
всеми
ячейками
файле
Код
Procedure
SaveGrid
textfile
integer
begin
assignfile
&
#039
Filename&
rewrite
writeln
stringgrid
colcount
rowcount
colcount-1
rowcount-1