| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Работа с *.ini-файлом
ALFER © (2006-02-25 13:53:00)У меня 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;
***
Однако при запуске цвета какие-то непонятные !
Что делать, я уже замучался !
ALFER (2006-02-25 14:39:00) [1]
> TUser © (25.02.06 14:08) [1]
> TColor = это число. С ним не надо работать через ReadString/WriteString.
>
Thank you very much !
TUser (2006-02-25 14:08:00) [2]TColor = это число. С ним не надо работать через ReadString/WriteString.
| |
