Обсуждение релиза 2020.01.18

[Develop-Soft]

[admin]

Это к чему?

[Develop-Soft]

Удалено из API: [...список "ненужных" классов, методов и свойств...]

[admin]

Что-то нужное удалил?

[Develop-Soft]

Application.Terminate - единственный способ закрыть программу чтобы не получить "флаг в руки".
Application.Terminated - единственный способ выйти по этому состоянию из управляемого цикла при закрытии программы.
TPicture - единственный способ получить DIB-структуру из буфера обмена в TBitmap.
остальные не проверял. TClipboard.Open/Close полагаю нужны были для обеспечения монопольного доступа к БО...

[admin]

Application.Terminate завершает программу в обход событий OnClose, OnCloseQuery, т. е. без корректного отключения от базы.
Соответственно и свойство Terminated не нужно.
Про TPicture не знал, что-нибудь придумаю вместо этого класса.
Нет никаких методов БО, которые должны вставляться между Open и Close. В AsText эти методы вызываются автоматически.
Некоторые типы вообще были ни с чем не связаны, попали в АПИ случайно, когда я стопкой их добавлял. Всплыли, когда я делал справочник по АПИ.

[Develop-Soft]

Application.Terminate завершает программу .. без корректного отключения от базы.

Именно это и требуется, когда нужно гарантировано закрыть программу (например - конкретноу пользователю запрет входа по условию).

Соответственно и свойство Terminated не нужно.

Ну я и говорю - это был единственный способ. Иначе "потушить" while или repeat цикл нечем.

Нет никаких методов БО, которые должны вставляться между Open и Close

Код: Выделить всё

procedure TForm1.FormCreate(Sender: TObject);

begin
   ClipBoard:=TClipboard.Create;
   ClipBoard.Open;
   ClipBoard.AsText := '123';
end;

// Копируем текст "Хрен" в блокноте

procedure TForm1.FormDestroy(Sender: TObject);
begin
  ShowMessage(ClipBoard.AsText);  // = 123
   ClipBoard.Close;
   ClipBoard.Free;
end;

Код: Выделить всё

procedure TForm1.FormCreate(Sender: TObject);

begin
   ClipBoard.AsText := '123';
end;

// Копируем текст "Хрен" в блокноте

procedure TForm1.FormDestroy(Sender: TObject);
begin
  ShowMessage(ClipBoard.AsText);  // = Хрен
end;


[admin]

Просто сохраняйте текст в переменную, а в Destroy присваивайте AsText. Можно вполне обойтись без Open, Close.

Именно это и требуется, когда нужно гарантировано закрыть программу (например - конкретноу пользователю запрет входа по условию).

Надо придумать правильный способ.

[Develop-Soft]

Просто сохраняйте текст в переменную, а в Destroy присваивайте AsText. Можно вполне обойтись без Open, Close.

Собственно TClipboard не панацея.

Именно это и требуется, когда нужно гарантировано закрыть программу (например - конкретноу пользователю запрет входа по условию).

Надо придумать правильный способ.

Для целей принудительного закрытия программы это он и был.

[admin]

Для целей принудительного закрытия программы это он и был.

При этом запись о пользователе оставалась в базе.