Работа с *.ini-файлом

← →
ALFER © (2006-02-25 13:53) [0]

У меня 2 формы.
в Первой есть мемо, во второй colorbox.
Во второй пишу :
***
procedure TForm2.ColorBox1Select(Sender: TObject);
var SFile:TIniFile;label ll;
begin

begin
if form2.radiobutton1.Checked then
begin
form1.memo1.Color:=form2.colorbox1.Colors[form2.colorbox1.ItemIndex];
goto ll;
end
else if form2.radiobutton2.Checked then
begin
form1.memo1.Font.Color:=form2.colorbox1.Colors[form2.colorbox1.ItemIndex];
goto ll;
end;
ll:begin
form1.memo1.Repaint;
form1.memo1.Refresh;
form1.memo1.Repaint;
end;

end;

begin
SFile:=Tinifile.Create("SFile_MoM.ini");
if form2.RadioButton1.Checked then begin
sfile.WriteString("Usercolor","Fon",(form2.ColorBox1.Items.Strings[form2.ColorBo x1.Itemindex]))

end else
begin
sfile.WriteString("Usercolor","Font",(form2.ColorBox1.Items.Strings[form2.ColorB ox1.Itemindex]));

end;
SFile.Free;
end;

end;
***

В первой :
***
procedure TForm1.FormCreate(Sender: TObject);
var SFile:Tinifile;
begin
try
SFile:=Tinifile.Create("SFile_MoM.ini");
memo1.color:=(tcolor(Sfile.readstring("Usercolor","Fon","")));
memo1.font.Color:=(Tcolor(Sfile.readstring("Usercolor","Font","")));
finally
sfile.Free;
end; end;
***
Однако при запуске цвета какие-то непонятные !
Что делать, я уже замучался !

← →
TUser © (2006-02-25 14:08) [1]

TColor = это число. С ним не надо работать через ReadString/WriteString.

> TUser © (25.02.06 14:08) [1]
> TColor = это число. С ним не надо работать через ReadString/WriteString.
>

Thank you very much !

Работа с *.ini-файлом Найти похожие ветки