Сохранение цвета формы в ini-файлы

[саша40]

Привет. Я пишу программу с настройкой цвета формы и возникла проблема сохранения и открытием. Вот код сохранения:

if FileExists(ExtractFilePath(Application.ExeName) + 'Настройки/FormColor.ini') then
begin
DeleteFile(ExtractFilePath(Application.ExeName) + 'Настройки/FormColor.ini');
c:=Form1.Color;
assignfile(f, ExtractFilePath(Application.ExeName) + 'Настройки/FormColor.ini');
rewrite(f);
write(f, c);
closefile(f);
end
else
begin
c:=Form1.Color;
assignfile(f, ExtractFilePath(Application.ExeName) + 'Настройки/FormColor.ini');
rewrite(f);
write(f, c);
closefile(f);
end;

И открытия:

if FileExists(ExtractFilePath(Application.ExeName) + 'Настройки/FormColor.ini') then
begin
AssignFile(f, ExtractFilePath(Application.ExeName) + 'Настройки/FormColor.ini');
Reset(f1);
read(f1, c);
CloseFile(f);
Form1.Color:=c;
end;

Выдает ошибку: О несовместимости типо string и TColor. И обратно. Как сделать чтобы TColor переводился в String или Integer если надо?

[Stilet]

Watta*ukka...
Это что? Ты слышал про класс TIniFile специально предназначенный для INI файлов?
Если нет - рекомендую ознакомиться с его спецификацией.

[NaumOff]

TColor это обычное 4байтовое число.

Form1.Color:= StrToInt(c)

Ну и Стилет прав, так с ини не работают.

function ReadIni(ASection, AString: string): string;
                var
                   sIniFile: TIniFile;
                   sPath: string[60];
                const
                S = '0'; { стандартная строка для выдачи ошибок чтения }
            begin
                GetDir(0, sPath); { текущий каталог }
                sIniFile := TIniFile.Create(sPath + '\Settings.ini');
                Result := sIniFile.ReadString(ASection, AString, S); { [Section] String=Value}
                sIniFile.Free;
            end;

procedure WriteIni(ASection, AString, AValue: string);
                var
                sIniFile: TIniFile;
                sPath: string[60];
            begin
                GetDir(0, sPath); { текущий каталог }
                sIniFile := TIniFile.Create(sPath + '\Settings.ini');
                sIniFile.WriteString(ASection, AString, AValue); { [Section] String=Value }
                sIniFile.Free;
            end;

Как то так.

[саша40]

Сообщение от Stilet

Watta*ukka...
Это что? Ты слышал про класс TIniFile специально предназначенный для INI файлов?
Если нет - рекомендую ознакомиться с его спецификацией.

Нужно просто перевести цвет формы, а с сохранением я сам разберусь. Просто изменить тип TColor на String

я работаю по своему и всё робит

[саша40]

я просто сохраняю и читаю переменую. Вопрос можно ли её сохранить в типе TColor в ini, если f типа TextFile?

[Stilet]

Просто изменить тип TColor на String

IntToStr тебе в помошь. Именно наименования констант цветов ты врядли получишь - только их целочисленный эквивалент.

[саша40]

Всё проблему сам решил. Просто изменил тип String на TColor в переменой и всё заробила. Вот так:

var
...//переменые
c: TColor;
begin
...
end;

Тему можно закрыть.

[hacker_007]

На ciberforum`е забанили, ты сюда пришел)) Я же тебе кидал ссылку с подробным описанием работы с ini... Чё ты быдлокодерством занимаешься) ПОВТОРЮ