вот собственно проблема, настройки не сохраняються/не загружаются
| Код |
procedure TFormMath.FormShow(Sender: TObject);
var fileInteger:file of Integer;
fileBoolean: file of Boolean;
pl,mi,X,de:Boolean;
I:Integer;
begin
AssignFile(fileinteger,'paramP.ini');
{$I-} // Отключаем контроль ошибок
Reset(fileinteger);
{$I+} // Включаем контроль ошибок
if IOResult<>0 then
begin p:=100;
ifPLUSuse:=True;
ifMinususe:=True;
Exit;
end; // Если ошибка то выходим
read(fileinteger,I);
p:=I;
CloseFile(fileinteger);
AssignFile(fileboolean,'OpEnable.ini'); {$I-}
reset(fileboolean); {$I+}
if IOResult<>0 then Exit; // Если ошибка то выходим
read(fileboolean,pl);
ifplususe:=pl;
read(fileboolean,mi);
ifminususe:=mi;
read(fileboolean,X);
ifXuse:=X ;
read(fileboolean,de);
ifdeluse:=De;
CloseFile(fileboolean);
end;
procedure TFormMath.FormClose(Sender: TObject; var Action: TCloseAction);
var fileInteger:file of Integer;
fileBoolean: file of Boolean;
pl,mi,X,de:Boolean ;
I:Integer;
begin
AssignFile(fileinteger,'paramP.ini');
{$I-} // Отключаем контроль ошибок
Reset(fileinteger);
{$I+} // Включаем контроль ошибок
if IOResult<>0 then Exit; // Если ошибка то выходим
i:=p;
write(fileinteger,i);
CloseFile(fileinteger);
AssignFile(fileboolean,'OpEnable.ini');
reset(fileboolean);
pl:=ifplususe;
write(fileboolean,pl);
mi:=ifminususe ;
write(fileboolean,mi) ;
X:=ifxuse ;
write(fileboolean,X) ;
de:=ifdeluse;
write(fileboolean,de) ;
end;
|
никаких ошибок нет |