ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / двойное условие
31 сообщений из 31, показаны все 2 страниц
  все  
двойное условие
    #39707606
VladimirVVP
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladimirVVP
Гость
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
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;



как правельно записать?

Код: pascal
1.
if ini.WriteString ('Options', 'server', s) AND ini.WriteString ('Options', 'DBMS','sqlite' ) then begin
...
Рейтинг: 0 / 0
25.09.2018, 12:39
| Ответить | Цитировать | Написать  
двойное условие
    #39707613
Фотография Кроик Семён
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кроик Семён
Участник
Думаю вот что: если первое условие, т.е. ini.WriteString ('Options', 'server', s), окажется FALSE, то выполнение IF дальше не пойдет и ini.WriteString ('Options', 'DBMS','sqlite' ) даже не произойдет. Или так и было задумано? Если нет, следует ввести промежуточные переменные
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
var
   bServerOptionsSaved : boolean;
   bSqliteOptionsSaved : boolean;
begin
   bServerOptionsSaved  := ini.WriteString ('Options', 'server', s);
   bSqliteOptionsSaved  := ini.WriteString ('Options', 'DBMS','sqlite');
   
   if bServerOptionsSaved  and  bSqliteOptionsSaved  then ...
...
Рейтинг: 0 / 0
25.09.2018, 12:53
| Ответить | Цитировать | Написать  
двойное условие
    #39707615
Фотография defecator
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
defecatorПривилегированный пользователь
Модератор форума
VladimirVVP
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
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;




как правельно записать?

Код: pascal
1.
if ini.WriteString ('Options', 'server', s) AND ini.WriteString ('Options', 'DBMS','sqlite' ) then begin



Правильно вообще весь этот код переписать
Если не вникать в смысл кода, то как-то так

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
procedure frmAdmin_bStartSQLiteServer_OnClick (Sender: TObject; var Cancel: boolean);
var
   ini : TInifile;
   Test : Boolean ;
begin
    s := '';
    SelectDirectory('Caption', '', s);
    ini:= TIniFile.Create(ExtractFilePath (ParamStr (0))+'settings.ini');
    try
       Test := ini.WriteString ('Options', 'server', s)
       if not Test then Exit ;
       Test := ini.WriteString ('Options', 'DBMS','sqlite' ) ;
    finally
      ini.Free;
      frmLogin.Close;
    end ;

    if Test then
     begin
          showmessage('Подключение выполнен успешно, программа будет перезагружена.');
          OpenFile('start.bat');
     end else
      showmessage('Ошибка, Подключение не выполнено.');
end;
...
Рейтинг: 0 / 0
25.09.2018, 12:54
| Ответить | Цитировать | Написать  
двойное условие
    #39707616
Dimitry Sibiryakov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dimitry Sibiryakov
Участник
VladimirVVPкак правельно записать?

Просто убери if, AND и then.

RTFM try-finally/except.
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
25.09.2018, 12:54
| Ответить | Цитировать | Написать  
двойное условие
    #39707628
Dimitry Sibiryakov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dimitry Sibiryakov
Участник
Кроик Семёнini.WriteString ('Options', 'server', s), окажется FALSE

Вас не смущает, что WriteString это процедура или в свежих версиях её перековали в функцию?..
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
25.09.2018, 13:00
| Ответить | Цитировать | Написать  
двойное условие
    #39707678
Фотография wadman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wadman
Участник
Dimitry SibiryakovКроик Семёнini.WriteString ('Options', 'server', s), окажется FALSE

Вас не смущает, что WriteString это процедура или в свежих версиях её перековали в функцию?..
Пока еще процедура. Но вдруг ТС наследника наваял?
...
Рейтинг: 0 / 0
25.09.2018, 13:46
| Ответить | Цитировать | Написать  
двойное условие
    #39707698
Фотография Кроик Семён
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кроик Семён
Участник
Dimitry SibiryakovКроик Семёнini.WriteString ('Options', 'server', s), окажется FALSE

Вас не смущает, что WriteString это процедура или в свежих версиях её перековали в функцию?..

это упустил из внимания, если честно :)
отвечал на вопрос:

авторкак правельно записать?

Код: pascal
1.
if ini.WriteString ('Options', 'server', s) AND ini.WriteString ('Options', 'DBMS','sqlite' ) then begin
...
Рейтинг: 0 / 0
25.09.2018, 14:03
| Ответить | Цитировать | Написать  
двойное условие
    #39707712
Фотография _Vasilisk_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_Vasilisk_
Участник
VladimirVVPкак правельно записать?А что хотелось сделать?
...
Рейтинг: 0 / 0
25.09.2018, 14:20
| Ответить | Цитировать | Написать  
двойное условие
    #39707714
Олег Третьяков
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Олег Третьяков
Участник
Все не правильно!
Вообще не понятно, что хочет проверить автор. Права на запись или наличие ini?
А как же ini.UpdateFile?
...
Рейтинг: 0 / 0
25.09.2018, 14:24
| Ответить | Цитировать | Написать  
двойное условие
    #39707715
Фотография defecator
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
defecatorПривилегированный пользователь
Модератор форума
Олег ТретьяковВсе не правильно!
Вообще не понятно, что хочет проверить автор. Права на запись или наличие ini?
А как же ini.UpdateFile?

defecatorЕсли не вникать в смысл кода
...
Рейтинг: 0 / 0
25.09.2018, 14:25
| Ответить | Цитировать | Написать  
двойное условие
    #39707724
Фотография Квейд
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Квейд
Участник
Олег ТретьяковА как же ini.UpdateFile?Это актуально для TMemIniFile, но не для обычного TIniFile
...
Рейтинг: 0 / 0
25.09.2018, 14:44
| Ответить | Цитировать | Написать  
двойное условие
    #39707743
VladimirVVP
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladimirVVP
Гость
Я только учусь... по немного вникаю

1. прочитать setting.ini
2. если запись 'Options', 'server' и 'Options', 'DBMS' есть, то сообщит об этом пользователю
3. если нет то вывести диалог выбора папки
4. записать выбранный адрес в 'Options', 'server' и 'Options', 'DBMS', 'sqlite'
5. вывести сообщение (настройки изминены, программа будет перезагружена)
6. если записать не получилось то сообщить пользователю (ошибка)
7. перезагружаем программу

может типа
if запись нет then
{условия
либо if либо case}
else
showmessage('такая запись уже есть')
...
Рейтинг: 0 / 0
25.09.2018, 15:03
| Ответить | Цитировать | Написать  
двойное условие
    #39707752
Фотография wadman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wadman
Участник
1. Прочитал настройки.
2. Если они пустые, то вывести диалог настроек.
2.1. ОК = Сохранить настройки. Отмена = выход из приложения.
3. Соединиться.
4. Если ошибка соединения, то пункт 2.
...
Рейтинг: 0 / 0
25.09.2018, 15:15
| Ответить | Цитировать | Написать  
двойное условие
    #39707757
schi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
schi
Участник
VladimirVVPЯ только учусь...

Плохому, судя по коду

Учиться следует по содержимому папки Demos в Delphi
...
Рейтинг: 0 / 0
25.09.2018, 15:21
| Ответить | Цитировать | Написать  
двойное условие
    #39707766
Олег Третьяков
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Олег Третьяков
Участник
Квейд,
Да, точно. В какой-то старой версии приходилось это делать.
...
Рейтинг: 0 / 0
25.09.2018, 15:32
| Ответить | Цитировать | Написать  
двойное условие
    #39708215
VladimirVVP
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladimirVVP
Гость
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
procedure frmAdmin_bBeackSQLite_OnClick (Sender: TObject; var Cancel: boolean);
var
    ini : TInifile;
begin
    ini:= TIniFile.Create(ExtractFilePath (ParamStr (0))+'settings.ini');
    if ini.ValueExists('Options', 'server') AND ini.ValueExists('Options','DBMS') then
    begin
         try
           ini.DeleteKey('Options', 'server');
           if ini.ValueExists('Options', 'server') then Exit ;
           ini.WriteString ('Options', 'DBMS','sqlite');
           if ini.ValueExists('DBMS','sqlite') then Exit ;
           showmessage('Возврат к использованию SQLite выполнен, программа будет перезагружена.');
           ini.Free;
           frmLogin.Close;
           OpenFile('start.bat');
           finally
           showmessage ('Ошибка записи!');
        end;
    end else
   showmessage ('Программа уже подключена к SQLite.');
 end;



давайте доработаем, в принцепе этот вариант работает..
только я не пойму как мне сделать проверку ключа ini.ValueExists('Options','DBMS', 'mysql')
...
Рейтинг: 0 / 0
26.09.2018, 10:19
| Ответить | Цитировать | Написать  
двойное условие
    #39708224
goldmi45
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
goldmi45
Участник
VladimirVVPтолько я не пойму как мне сделать проверку ключа ini.ValueExists('Options','DBMS', 'mysql')
Функция ValueExists возвращает true, если в секции Options имеется значение DBMS. Вы же хотите проверить, равно ли значение DBMS mysql. Для это нужно взять значение из [Options] DBMS, к примеру поместив в переменную, и сравнить значение переменной с 'mysql'.
...
Рейтинг: 0 / 0
26.09.2018, 10:26
| Ответить | Цитировать | Написать  
двойное условие
    #39708235
Фотография defecator
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
defecatorПривилегированный пользователь
Модератор форума
VladimirVVP
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
procedure frmAdmin_bBeackSQLite_OnClick (Sender: TObject; var Cancel: boolean);
var
    ini : TInifile;
begin
    ini:= TIniFile.Create(ExtractFilePath (ParamStr (0))+'settings.ini');
    if ini.ValueExists('Options', 'server') AND ini.ValueExists('Options','DBMS') then
    begin
         try
           ini.DeleteKey('Options', 'server');
           if ini.ValueExists('Options', 'server') then Exit ;
           ini.WriteString ('Options', 'DBMS','sqlite');
           if ini.ValueExists('DBMS','sqlite') then Exit ;
           showmessage('Возврат к использованию SQLite выполнен, программа будет перезагружена.');
           ini.Free;
           frmLogin.Close;
           OpenFile('start.bat');
           finally
           showmessage ('Ошибка записи!');
        end;
    end else
   showmessage ('Программа уже подключена к SQLite.');
 end;




давайте доработаем, в принцепе этот вариант работает..
тебе уже вчера сказали использовать try-finally
...
Рейтинг: 0 / 0
26.09.2018, 10:34
| Ответить | Цитировать | Написать  
двойное условие
    #39708261
schi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
schi
Участник
VladimirVVP try
....
finally
showmessage ('Ошибка записи!');
end;
[/src]

давайте доработаем

Давайте лучше закопаем поглубже и будем писать правильно, изучая, в том числе Demos
...
Рейтинг: 0 / 0
26.09.2018, 11:01
| Ответить | Цитировать | Написать  
двойное условие
    #39708343
VladimirVVP
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladimirVVP
Гость
schi,
Извените, но я в отличии от вас хотя бы пытаюсь написать а вот вы строите из себя супер пупер, а сами даже попытку сделать не можете, я то же могу посоветовать вам книги читать и что?
я же писал уже что учусь только а вы сразу (плохому ), знаете лучше, так покажите, не знаете, так зачем вообще комментируете..
...
Рейтинг: 0 / 0
26.09.2018, 12:11
| Ответить | Цитировать | Написать  
двойное условие
    #39708348
Фотография defecator
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
defecatorПривилегированный пользователь
Модератор форума
VladimirVVPschi,
Извените, но я в отличии от вас хотя бы пытаюсь написать а вот вы строите из себя супер пупер, а сами даже попытку сделать не можете, я то же могу посоветовать вам книги читать и что?
я же писал уже что учусь только а вы сразу (плохому ), знаете лучше, так покажите, не знаете, так зачем вообще комментируете..

ты бы учился по книжке основам паскаля, а не на форуме
...
Рейтинг: 0 / 0
26.09.2018, 12:13
| Ответить | Цитировать | Написать  
двойное условие
    #39708349
VladimirVVP
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladimirVVP
Гость
goldmi45,
Проверка, существует ли заданный ключ в указанной секции:

function ValueExists(const Section, Ident: string): Boolean;

тоесть
ini.ValueExists('Options','DBMS')

а мне нужно проверить
('Options','DBMS', 'mysql')
...
Рейтинг: 0 / 0
26.09.2018, 12:14
| Ответить | Цитировать | Написать  
двойное условие
    #39708350
Фотография defecator
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
defecatorПривилегированный пользователь
Модератор форума
VladimirVVPgoldmi45,
Проверка, существует ли заданный ключ в указанной секции:

function ValueExists(const Section, Ident: string): Boolean;

тоесть
ini.ValueExists('Options','DBMS')

а мне нужно проверить
('Options','DBMS', 'mysql')

что тебе непонятно вот здесь
goldmi45Функция ValueExists возвращает true, если в секции Options имеется значение DBMS. Вы же хотите проверить, равно ли значение DBMS mysql. Для это нужно взять значение из [Options] DBMS, к примеру поместив в переменную, и сравнить значение переменной с 'mysql'.
?
...
Рейтинг: 0 / 0
26.09.2018, 12:15
| Ответить | Цитировать | Написать  
двойное условие
    #39708372
goldmi45
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
goldmi45
Участник
VladimirVVPа мне нужно проверить
('Options','DBMS', 'mysql')
если существует ini.WriteString, то существует и ini.ReadString. Считываете значение, проверяете и всё.
...
Рейтинг: 0 / 0
26.09.2018, 12:42
| Ответить | Цитировать | Написать  
двойное условие
    #39708377
Фотография X11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
X11
Участник
авторini.WriteString

Оберни процедуры ini.WriteString в свои функции, которые будут возвращать False или True и тогда всё получится
...
Рейтинг: 0 / 0
26.09.2018, 12:50
| Ответить | Цитировать | Написать  
двойное условие
    #39708435
schi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
schi
Участник
VladimirVVPschi,
Извените, но я в отличии от вас хотя бы пытаюсь написать а вот вы строите из себя супер пупер, а сами даже попытку сделать не можете, я то же могу посоветовать вам книги читать и что?
я же писал уже что учусь только а вы сразу (плохому ), знаете лучше, так покажите, не знаете, так зачем вообще комментируете..

А я Demos изучал, между прочим. Чего и советую уже в который раз.
...
Рейтинг: 0 / 0
26.09.2018, 13:54
| Ответить | Цитировать | Написать  
двойное условие
    #39708514
VladimirVVP
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladimirVVP
Гость
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
procedure Form1_bMySQL_OnClick (Sender: TObject; var Cancel: boolean);
begin
    SwitchDBMS('mysql');
end;

procedure Form1_bSQLite_OnClick (Sender: TObject; var Cancel: boolean);
begin
    SwitchDBMS('sqlite');
end;



function SwitchDBMS(DBMS: string): boolean;
var
    ini : TInifile;
begin
    result := False;
    ini:= TIniFile.Create(Application.SettingsFile);
    try

        if DBMS = 'sqlite' then
        begin
            if ini.ReadString('Options', 'DBMS', '') = 'sqlite' then ShowMessage ('Программа уже подключена к SQLite.')
            else begin
                try
                    ini.WriteString('Options', 'DBMS', 'sqlite');
                    result := true;
                    OpenFile('start.bat');
                    Form1.Close;
                except
                    ShowMessage('Ошибка записи в ini файл.');
                end;
            end;                                         
        end;

        if DBMS = 'mysql' then
        begin
            if ini.ReadString('Options', 'DBMS', '') = 'mysql' then ShowMessage ('Программа уже подключена к MySQL.')
            else begin
                try
                    ini.WriteString('Options', 'DBMS', 'mysql');
                    result := true;
                    OpenFile('start.bat');
                    Form1.Close;
                except
                    ShowMessage('Ошибка записи в ini файл.');
                end;
            end;
        end;

    finally
        ini.Free;
    end;
end;
...
Рейтинг: 0 / 0
26.09.2018, 15:00
| Ответить | Цитировать | Написать  
двойное условие
    #39708517
Фотография defecator
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
defecatorПривилегированный пользователь
Модератор форума
VladimirVVP
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
procedure Form1_bMySQL_OnClick (Sender: TObject; var Cancel: boolean);
begin
    SwitchDBMS('mysql');
end;

procedure Form1_bSQLite_OnClick (Sender: TObject; var Cancel: boolean);
begin
    SwitchDBMS('sqlite');
end;



function SwitchDBMS(DBMS: string): boolean;
var
    ini : TInifile;
begin
    result := False;
    ini:= TIniFile.Create(Application.SettingsFile);
    try

        if DBMS = 'sqlite' then
        begin
            if ini.ReadString('Options', 'DBMS', '') = 'sqlite' then ShowMessage ('Программа уже подключена к SQLite.')
            else begin
                try
                    ini.WriteString('Options', 'DBMS', 'sqlite');
                    result := true;
                    OpenFile('start.bat');
                    Form1.Close;
                except
                    ShowMessage('Ошибка записи в ini файл.');
                end;
            end;                                         
        end;

        if DBMS = 'mysql' then
        begin
            if ini.ReadString('Options', 'DBMS', '') = 'mysql' then ShowMessage ('Программа уже подключена к MySQL.')
            else begin
                try
                    ini.WriteString('Options', 'DBMS', 'mysql');
                    result := true;
                    OpenFile('start.bat');
                    Form1.Close;
                except
                    ShowMessage('Ошибка записи в ini файл.');
                end;
            end;
        end;

    finally
        ini.Free;
    end;
end;



В случае ошибки записи в файл форма Form1 никогда не закроется
...
Рейтинг: 0 / 0
26.09.2018, 15:03
| Ответить | Цитировать | Написать  
двойное условие
    #39708742
VladimirVVP
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladimirVVP
Гость
defecator,

программа должна перезагрузиться только в случае успешной записи записи, что бы новые настройки принять
...
Рейтинг: 0 / 0
26.09.2018, 18:18
| Ответить | Цитировать | Написать  
двойное условие
    #39708764
alekcvp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alekcvp
Участник
VladimirVVP,

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
 
SwitchDBMS('mysql');
...
SwitchDBMS('sqlite');
....
if DBMS = 'sqlite' then
....
                    ini.WriteString('Options', 'DBMS', 'sqlite');


Вот просто интересно, зачем столько текстовых констант?.. Почему бы не сделать типа
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
type
  TDBMS = (dbMYSQL, dbSQLITE);
...
SwitchDBMS(dbSQLITE);
...
if DBMS = dbSQLITE then
....
                    ini.WriteString('Options', 'DBMS', 'sqlite');
...
Рейтинг: 0 / 0
26.09.2018, 18:59
| Ответить | Цитировать | Написать  
двойное условие
    #39708768
alekcvp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alekcvp
Участник
Даже проще:

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
type
  TDBMS = (dbMYSQL, dbSQLITE);

const
  TDBMSText: array [TDBMS] of string = ('mysql', 'sqlite');
...
SwitchDBMS(dbSQLITE);
...
function SwitchDBMS(DBMS: string): boolean;
var
  ini : TInifile;
begin
  result := False;
  ini:= TIniFile.Create(Application.SettingsFile);
  try
    if ini.ReadString('Options', 'DBMS', '') = TDBMSText[DBMS] then 
      ShowMessage(Format('Программа уже подключена к %s.', [TDBMSText[DBMS]]))
    else try
      ini.WriteString('Options', 'DBMS', TDBMSText[DBMS]);
      result := true;
      OpenFile('start.bat');
      Form1.Close;
    except
      ShowMessage('Ошибка записи в ini файл.');
    end;
  finally
    ini.Free;
  end;
end;
...
Рейтинг: 0 / 0
26.09.2018, 19:06
| Ответить | Цитировать | Написать  
31 сообщений из 31, показаны все 2 страниц
  все  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / двойное условие
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?all=1&fid=58&tid=2040359]:
 0ms
get settings:
 6ms
get forum list:
 19ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 173ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 61ms
get tp. blocked users:
 1ms
others: 215ms
total:  494ms
созд. / загр.: 494ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]