Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: Считывание файла на делфи  (Прочитано 4626 раз)
0 Пользователей и 1 Гость смотрят эту тему.
sasha3050
Гость
« : 13-09-2009 06:44 » 

Здраствуйте, помогите написать универсальную прогу на делфи, чтобы программа считывала любой файл dgt и рисовала рисунок в Image из файла (т.е. в этом файле будут координаты этого рисунка а прога должна их считывать). Я тут немного написал код, а дальше незнаю как...

System Assign (f, 'dgt');
Reset (f);
while not {Of(f)} do
begin
readln(f,model);



end
Записан
zubr
Гость
« Ответ #1 : 13-09-2009 10:34 » new

1. Устанавливаешь толщину и цвет пера: Image.Canvas.Pen.Width, Image.Canvas.Pen.Color.
2. Последовательно считываешь координаты из файла.
3. Последовательно по мере считывания координат вызываешь Image.Canvas.MoveTo для первой координаты и Image.Canvas.LineTo для последующих
Записан
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines