Пользователь
Добро пожаловать,
Регистрация или вход
Потеряли пароль?
Ник:
Пароль:
Меню сайта
Главная
Аккаунт
Пользователи
Опросы
Поиск по сайту
Новости RSS
Форум
Отправить другу
Связаться с нами
Книги
Самоучители
Каталог софта
Исходники
Компоненты
Обработки 1С
CMS-центр
Шаблоны сайтов
Наборы иконок
Статьи и обзоры
Вопросы и ответы
Скрипты
Нетематичное
Ваше мнение
Как вы узнали о нашем сайте?
От друга, знакомого
Из печатных источников
Из поисковой машины
По ссылке с другого сайта
Случайно
Не знаю
Результаты
Другие опросы
Всего голосов:
1031
Комментарии:
4
Error: Incorrect password!
Наши партнеры
Статистика
Поиск
Во всех отделах
Каталог файлов
Статьи и обзоры
Сохранение и чтение TStringGrid
Дата: 09.05.2024
Модуль:
Категория:
Delphi и TurboPascal
Как мне сохранить целый 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
Преобразование BMP в JPEG в Delphi
Дата: 09.05.2024
Модуль:
Категория:
Delphi и TurboPascal
Используя Delphi, как мне сохранить BMP-изображение в JPEG-файле?
Допустим, Image1 - компонент TImage, содержащий растровое изображение. Что дальше?
Используйте следующий фрагмент кода для конвертации вашего изображения в JPEG-файл:
Код
var
MyJpeg: TJpegImage;
Image1: TImage;
begin
Image1:= TImage.Create;
MyJpeg:= TJpegImage.Create;
Image1.LoadFile('TestImage.BMP'); // Чтение изображения из файла
MyJpeg.Assign(Image1.Picture.Bitmap); // Назначание изображения объекту MyJpeg
MyJpeg.SaveToFile('MyJPEGImage.JPG'); // Сохранение на диске изображения в формате JPEG
end;
Разместил:
admin
Всего 32 на 3 страницах по 15 на каждой странице
<<
1
2
3
[
Назад
|
Начало
|
Наверх
]
Внимание! Если у вас не получилось найти нужную информацию, используйте
рубрикатор
или воспользуйтесь
поиском
.
книги
по
программированию
исходники
компоненты
шаблоны
сайтов
C++
PHP
Delphi
скачать