Пустые функции

← →
Анатолий Ксюндзский (2004-04-10 22:50) [0]

Можно ли как-нибудь сделать чтобы Delphi не убирала из редактора пустые функции, типа:

procedure tform1.onshow1(Sender: TObject); begin <здесь ничего нет> end;
??

← →
DrPass © (2004-04-10 22:55) [1]

1. Оставляй в теле пустой комментарий
procedure tform1.onshow1(Sender: TObject);
begin
//теперь здесь что-то есть
end;
... или ...
2. Объявляй ее в секции public (private, protected - на выбор)

← →
Jack128 © (2004-04-10 22:56) [2]

Напиши в теле метода пустой коментарий...
procedure tform1.onshow1(Sender: TObject);
begin
//
end;
или отключи оптимизацию (но не желательно)

← →
Анатолий Ксюндзский (2004-04-10 22:58) [3]

оставлять комментарий — это способ класса "через задницу"

ладно, пасиб, понятно что нармального способа(кроме оптимизации) нету

← →
YurikGl © (2004-04-10 23:02) [4]

Я, обычно, ";" ставлю.

← →
DrPass © (2004-04-10 23:02) [5]

> или отключи оптимизацию (но не желательно)

А причем здесь оптимизация?
type
TForm1 = class
...
procedure OnShow1;//эта процедура находится в published-секции, и Delphi ее удалит без кода
public
...
end;type

TForm2 = class
...
public
procedure OnShow1;//а эту не станет
...
end;

← →
Jack128 © (2004-04-10 23:15) [6]

> [5] DrPass © (10.04.04 23:02)
>
> > или отключи оптимизацию (но не желательно)
>
> А причем здесь оптимизация?

при том.. Попробуй и увидешь ;-)
А вообще твой способ, думаю, автором тоже не будет одобрен ибо требует переноса декларации из published в public

← →
TButton © (2004-04-10 23:20) [7]

ну, во-первых убирает он перед сохранением. т.е. не сохраняй и не уберет. а во-вторых способ "через задницу" весьма популярен и распространен как среди программистов, так и среди большей часть работающего населения РФ.

← →
DrPass © (2004-04-10 23:21) [8]

Отключил. И что? Как удалялось, так и удаляется - что вполне логично, т.к. настройки компилятора к Code Insight ни малейшего отношения не имеют.

← →
Jack128 © (2004-04-10 23:27) [9]

> Отключил. И что? Как удалялось, так и удаляется - что вполне
> логично

{$o-}
procedure TForm1.FormCreate(Sender: TObject);
begin

end;
{$o+} У мя не удаляется D5

← →
Fay © (2004-04-10 23:29) [10]

>> У мя не удаляется D5
Панель управления -> Установка и удаление программ
8)

> {$o-}
> procedure TForm1.FormCreate(Sender: TObject);
> begin
>
> end;
> {$o+}

Оригинал:) А ты убери директиву {$o+}, и посмотри. Логика Delphi в данном случае проста: если убрать процедуру, получится бред {$o-}{$o+}, поэтому лучше не трогать

> [11] DrPass © (10.04.04 23:55)

Блин, ну вот так

unit Unit1;
{$o-}
interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
b: boolean;
begin
b := True;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin

end;

{$o+}

end. // убрав FormCreate - бреда не получиться, ан все равно не убирает..

А нафинг {$O+} перед end. ? 8)

А ну да, если убрать {$o+} , то действительно удаляет... Но логику я понять не могу..

А теперь только {$O+} перед end.

Пустые функции Найти похожие ветки