with — так делают?

← →
1Макс (2008-01-01 22:35) [0]

with MyForm do try MyForm := TMyForm.Create(Self); ShowModal; finally Free; end;
Вообще так делают, стоит так делать? Или это дурной тон?

← →
Zeqfreed © (2008-01-01 22:45) [1]

with TMyForm.Create(Self) do begin try ShowModal; finally Free; end; end;

← →
guav © (2008-01-01 22:52) [2]

Я бы не стал так делать, т.к. ожет и не прокатить:

If the interpretation of obj involves indexing arrays or dereferencing pointers, these actions are performed once, before statement is executed. This makes with statements efficient as well as concise. It also means that assignments to a variable within statement cannot affect the interpretation of obj during the current execution of the with statement.

← →
Sergey Masloff (2008-01-01 22:56) [3]

Zeqfreed © (01.01.08 22:45) [1]
begin и end для красоты или на случай построчной оплаты кода?

← →
{RASkov} © (2008-01-02 00:00) [4]

> [3] Sergey Masloff (01.01.08 22:56)

:)
Он просто скопировал код автора и исправил второпях видные явно ошибки, а на "мелоч" не посмотрел :) Я так думаю...)

← →
Джо © (2008-01-02 00:01) [5]

> [3] Sergey Masloff (01.01.08 22:56)
> Zeqfreed © (01.01.08 22:45) [1]
> begin и end для красоты или на случай построчной оплаты
> кода?

Вот и Маслов явился в тематическую конференцию...

← →
sniknik © (2008-01-02 00:34) [6]

> Вот и Маслов явился в тематическую конференцию...
скукотища однако...

← →
Германн © (2008-01-02 00:40) [7]

> скукотища однако...
>

Ещё раз соглашусь :)

← →
korneley © (2008-01-02 00:42) [8]

> with — так делают?

with MyForm do try MyForm := TMyForm.Create(Self); ShowModal; finally Free; end;

Чё-то "трай" рановато. Прям как из "вредных советов" А на строчечку пониже - и вроде ничего... Уж не знаю хорошего, плохого...

← →
korneley © (2008-01-02 00:50) [9]

А у экземпляра формы (ну, пытаюсь телепатировать) MyForm и поле есть MyForm, с типом TMyForm, от TForm унаследованной? Тогда да, делают. Но try всё-таки пониже надо переместить...

← →
Германн © (2008-01-02 00:57) [10]

Ладно. Тогда и я добавлю свои пять копеек. Ещё одна малюсенькая модификация кода из Zeqfreed © (01.01.08 22:45) [1]
with TMyForm.Create(nil) do try ShowModal; finally Free; end;

← →
Anatoly Podgoretsky © (2008-01-02 01:39) [11]

> Германн (02.01.2008 00:57:10) [10]

И последний штрих

with TMyForm.Create(self) do try

← →
Германн © (2008-01-02 01:53) [12]

> Anatoly Podgoretsky © (02.01.08 01:39) [11]
>
> > Германн (02.01.2008 00:57:10) [10]
>
> И последний штрих
>
> with TMyForm.Create(self) do try
>

А self-то зачем? Мы ведь тут идём по пути Тараса Бульбы. Сам породил, сам и убью!

← →
{RASkov} © (2008-01-02 01:56) [13]

> [12] Германн © (02.01.08 01:53)

А я уж приготовил было такой пост:
-------------------------------------------------

> [11] Anatoly Podgoretsky © (02.01.08 01:39)
> И последний штрих
>
> with TMyForm.Create(self) do try

Ну и на последок:
with TMyForm.Create(Self) do begin try ShowModal; finally Free; end; end;
------------------------------------------------
:)

> Германн (02.01.2008 01:53:12) [12]

Надеюсь ты не про Д3 говоришь, а хотя бы про Д7, а там он даже очень причем.
Он же не только роль убийцы выполняет, но и другие.
Подсказка - Position = poOwnerFormCenter или другое подходящее.
Нафиг нужна форма неизвестно где.

> Anatoly Podgoretsky © (02.01.08 01:58) [14]

Опа. Это я уже настолько отстал от жизни?
Или последние версии Дэлфи уже стараются всё делать за меня? Типа "Двоих из ларца, одинаковых с лица"?
Я лично, привык сам указывать Что, Где, Когда.

Поскольку построчное обсуждение, видимо, закончено, предлагается перейти к побуквенному.

> Юрий Зотов © (02.01.08 02:18) [16]
>
> Поскольку построчное обсуждение, видимо, закончено, предлагается
> перейти к побуквенному.
>

Я не против. С какой буквы начнём?

> Германн (02.01.2008 02:10:15) [15]

Отстал точно, теперь формы могут привязывать к гораздо большему количеству источников, не только по центру десктопа, но и по центру монитора или главной формы, или по собственнику формы.
Я не помню когда это появилось, вроде с Д7 и вот не указание собственника формы не позволит к ней привязаться. А удалению это никак не мешает.

> with TMyForm.Create(Self) do begin

может не скомпилиться)

with — так делают? Найти похожие ветки