VPF::Нужна помощь начинающему - Форум программистов

LuberZ

Дата 13.7.2004, 12:37 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

По точкам, которые вносят в StingGrid, строится график в Image. После выполнения я изменяю цвет графика. Затем я сохраняю координаты в .txt файле.
ВОПРОС: как там же сохранить выбранный цвет гафика и чтобы при загрузке из файла цвет был выбранным?

Pakshin A. S.

Дата 13.7.2004, 12:41 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61

Файл:

Код


Black
12 46
34 87

Обобщенно:

Код


цвет графика
координата Х  координата У

Принцип:

Код


var
 color:string;
(**)
begin
(**)
AssignFile(f, FileName);
reset(f);
readln(f, color);
(*Делаем установку цвета*)
while not Eof(f) DO
 begin
 (**)
 end;
(**)
end;

Это сообщение отредактировал(а) Pakshin A. S. - 13.7.2004, 12:42

LuberZ

Дата 14.7.2004, 10:35 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Во-первых, там скорее всего не readln, а Writeln, а во-вторых не первый не второй вариант не пашет

<Spawn>

Дата 14.7.2004, 11:09 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 44
Всего: 64

LuberZ Ты про какой второй вариант? Pakshin A. S. Дал тебе один вариант, причем, вполне логичный. Сохраняй сначала цвет файла, после чего пиши свои координаты.

--------------------

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

LuberZ

Дата 14.7.2004, 11:22 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

но ведь процедура записи write(ln), а он пишет read(ln). А как через шестнадцатиричное представление числа записать?

<Spawn>

Дата 14.7.2004, 12:39 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 44
Всего: 64

Код

WriteLn(IntToStr($FFAAFF));

Если тебе обязательно нужно в строку преобразовывать.

Это сообщение отредактировал(а) <Spawn> - 14.7.2004, 12:39

--------------------

Jey_k

Дата 14.7.2004, 17:03 (ссылка)

(нет голосов)

Загрузка ...

WEB-командир

Профиль
Группа: Комодератор
Сообщений: 4149
Регистрация: 16.11.2003
Где: Москва

Репутация: 1
Всего: 61

можно в строчном режиме clRed к примеру.

--------------------

Проверка IP

user posted image

Pakshin A. S.

Дата 14.7.2004, 18:37 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61

ЛЮДИ!!! Писал пример на чтение. Ошибки нет!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »