Topic: двойное условие
procedure frmAdmin_bStartSQLiteServer_OnClick (Sender: TObject; var Cancel: boolean);
var
s: string;
ini:TInifile;
begin
s := '';
SelectDirectory('Caption', '', s);
ini:= TIniFile.Create(ExtractFilePath (ParamStr (0))+'settings.ini');
if ini.WriteString ('Options', 'server', s) AND ini.WriteString ('Options', 'DBMS','sqlite' ) then begin
ini.Free;
showmessage('Подключение выполнен успешно, программа будет перезагружена.');
frmLogin.Close;
OpenFile('start.bat');
end else
showmessage('Ошибка, Подключение не выполнено.');
end;
что не так
if ini.WriteString ('Options', 'server', s) AND ini.WriteString ('Options', 'DBMS','sqlite' ) then begin