Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Нужна помощь начинающему

Автор: LuberZ 13.7.2004, 12:37

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

Автор: Pakshin A. S. 13.7.2004, 12:41

Файл:

Код


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;

Автор: LuberZ 14.7.2004, 10:35

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

Автор: <Spawn> 14.7.2004, 11:09

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

Автор: LuberZ 14.7.2004, 11:22

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

Автор: <Spawn> 14.7.2004, 12:39

Код

WriteLn(IntToStr($FFAAFF));

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

Автор: Jey_k 14.7.2004, 17:03

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

Автор: Pakshin A. S. 14.7.2004, 18:37

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