ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / двойное условие
6 сообщений из 31, страница 2 из 2
  2  все
двойное условие
    #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
| Ответить | Цитировать | Написать  
6 сообщений из 31, страница 2 из 2
  2  все
Форумы / Delphi [игнор отключен] [закрыт для гостей] / двойное условие
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&msg=39708514&tid=2040359]:
 0ms
get settings:
 9ms
get forum list:
 18ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 168ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 53ms
get tp. blocked users:
 2ms
others: 251ms
total:  519ms
созд. / загр.: 519ms
x
x
Закрыть


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