Не могу прочитать без ошибки запись в INI файле. Данный код находиться на форме Form1, а Edit1 на форме Extract. И еще - после того как я закрываю форму, когда она развернута на весь экран, а потом снова открываю, и пытаюсь восстановить ничего не происходит - средняя кнопка Развернуть/Восстановить не работает.
| Код | //чтение данных из .INI файла
procedure TForm1.ReadIni;
Var
IniFile:TIniFile;
begin
IniFile := TIniFile.Create(ChangeFileExt(ParamStr(0),'.INI'));
Form1.Top:=IniFile.ReadInteger('Main Window','Top',Form1.Top);
Form1.Left:=IniFile.ReadInteger('Main Window','Left',Form1.Left);
Form1.Height:=IniFile.ReadInteger('Main Window','Height',Form1.Height);
Form1.Width:=IniFile.ReadInteger('Main Window','Width',Form1.Width);
//Edit1 находится на форме Extract
//не хочет читать, выдает ошибку типа "Access....." перед запуском проги
Extract.Edit1.Text:=IniFile.ReadString('Extract','Path',Extract.Edit1.Text);
IniFile.Free;
end; |
| Код |
//запись данных в .INI файл
procedure TForm1.WriteIni;
Var
IniFile:TIniFile;
begin
IniFile := TIniFile.Create(ChangeFileExt(ParamStr(0),'.INI'));
IniFile.WriteInteger('Main Window','Top',Form1.Top);
IniFile.WriteInteger('Main Window','Left',Form1.Left);
IniFile.WriteInteger('Main Window','Height',Form1.Height);
IniFile.WriteInteger('Main Window','Width',Form1.Width);
//пишиться, вроде, без проблем
IniFile.WriteString('Extract','Path',Extract.Edit1.Text);
IniFile.Free;
end; |
|
