[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;

[Burka]

IniFile.writeInteger('cursor','number',cursor_numb er);