Inifiles

[IGoDoVaN]

Как записать номер курсора в ини файл? Знаю тока как свойства текста можно записать...

procedure TForm1.formClose(Sender: TObject; var Action: TCloseAction);   
var iniFile:Tinifile;   
var s:string;   
begin   
s:=application.ExeName;   
s:=ChangeFileExt(s,'.ini');   
IniFile:=Tinifile.create(s);   
  
IniFile.writeString('шрифт','имя',label1.font.name);   
IniFile.writeInteger('цвет','размер',label1.font.Size);   
IniFile.destroy();   
end;   
  
  
procedure TForm1.FormCreate(Sender: TObject);   
  
var iniFile:Tinifile;   
var s:string;   
begin   
s:=application.ExeName;   
s:=ChangeFileExt(s,'.ini');   
IniFile:=Tinifile.create(s);   
  
label1.font.name:=inifile.ReadString('шрифт','имя','Arial');   
label1.font.Size:=inifile.ReadInteger('цвет','размер',14);   
  
IniFile.destroy();   
  
end;

[mutabor]

Вид курсора это целочисленная константа, дальше объяснять? )

[IGoDoVaN]

Ну как бы ты написал в TForm1.FormCreate?

[mutabor]

writeInteger('цвет','размер',Form1.Cursor);

[IGoDoVaN]

а как название?
writestring('Cursor','Name',??????) ;

[IGoDoVaN]

Сделал через функцию CursorToString...

procedure TForm1.formClose(Sender: TObject; var Action: TCloseAction);
var iniFile:Tinifile;
var s,x:string;
begin
s:=application.ExeName;
s:=ChangeFileExt(s,'.ini');
IniFile:=Tinifile.create(s);
IniFile.writeInteger('cursor','numb er',Form1.Cursor);
x:=CursorToString(Form1.Cursor);
IniFile.writeString('cursor','name' ,x);
IniFile.destroy();
end;


procedure TForm1.FormCreate(Sender: TObject);

var iniFile:Tinifile;
var s,x:string;
begin
s:=application.ExeName;
s:=ChangeFileExt(s,'.ini');
IniFile:=Tinifile.create(s);
Form1.Cursor:=inifile.ReadInteger(' cursor','number',0);
x:=inifile.ReadString('cursor','nam e','crArrow');
IniFile.destroy();

end;