TEMPLATE. Как при создании события в редакторе кода сделать...

← →
Den (2012-12-23 05:36) [0]

delphi 2010
К примеру при нажатии на onclick вместо стандартного
procedure TForm1.Button2Click(Sender: TObject);
begin

end;

чтоб было

procedure TForm1.Button2Click(Sender: TObject);
var
i:integer;
begin

end;

← →
Юрий Зотов © (2012-12-23 11:03) [1]

Написать и установить в Delphi свой эксперт. Пример - CFPack от Сергея Орлика.

Только стоит ли одна строчка таких усилий и ресурсов?

← →
Den (2012-12-23 12:10) [2]

Видимо нет. Думал просто есть простой способ как это исправить. А так 90% всех процедур так или иначе требуют Integer, почему сразу его не вписывать.

← →
Юрий Зотов © (2012-12-23 12:26) [3]

> Den (23.12.12 12:10) [2]

Сделайте клавиатурный макрос (см. в справке: Keyboard macros)

← →
Den (2012-12-23 12:35) [4]

Юрий Зотов, Спасибо!

← →
O'ShinW © (2012-12-24 09:02) [5]

а в 7 есть, например, Code Templates
Возможно, в 2010 это тоже самое, что Keyboard macros, но если нет, то вот :)

т.е.
Печатаю "smf", нажимаю Ctrl+J, получаю "ShowMessageFmt(" | ",[]);"
Проблема одна - запомнить все свои "сокращалки"

← →
брат Птибурдукова (2012-12-24 09:44) [6]

> O"ShinW © (24.12.12 09:02) [5]
это не только в семёрке, они и в хе2 есть. непонятно только, насколько они соотносятся с хотелками автора.

← →
O'ShinW © (2012-12-24 10:38) [7]

> это не только в семёрке, они и в хе2 есть. непонятно только,
> насколько они соотносятся с хотелками автора.

повесить на "v:" Ctrl+J вставку

> var
> i:integer;

не?

← →
брат Птибурдукова (2012-12-24 11:22) [8]

> O"ShinW © (24.12.12 10:38) [7]
Насколько понял я, задача в том, чтоб среда при даблклике на батоне сама создала заготовку
> procedure TForm1.Button2Click(Sender: TObject);vari:integer;
> beginend;

← →
alexdn © (2012-12-24 22:39) [9]

> Den (23.12.12 12:10) [2]
> Видимо нет. Думал просто есть простой способ как это исправить.
> А так 90% всех процедур так или иначе требуют Integer,
> почему сразу его не вписывать.
у меня 90% всех процедур требуют real

← →
alexdn © (2012-12-24 22:40) [10]

буфер обмена не пробовал кстати использовать? очень удобная вещь.

← →
Den (2012-12-25 00:11) [11]

брат Птибурдукова -
1. Автор как раз в названии темы поставил слово TEMPLATE с целью узнать делал ли кто-то что-то подобное с помощью этих заготовок. Только чтото похоже создание событий не описано не в одном темплейте.
2. Насколько понял я, задача в том, чтоб среда при даблклике на батоне сама создала заготовку - именно так.

alexdn
1. у меня 90% всех процедур требуют real - вот и вам бы пригодилось чтоб в эдиторе сразу процедура с var real прописывалась.
2. буфер обмена не пробовал кстати использовать? очень удобная вещь. - можно поподробнее, что имеется в виду?

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

← →
Игорь Шевченко © (2012-12-25 00:25) [12]

> у меня 90% всех процедур требуют real

у тебя 90% процедур требуют Double

← →
брат Птибурдукова (2012-12-25 00:40) [13]

> Только чтото похоже создание событий не описано не в одном
> темплейте.
Правильно — для этого нужен эксперт, см. [1].

> кстати макрос работает на ура единственное что не вижу как
> его сохранить для последующего пользования и по всей видимости
> он только один.
Можно сделать таки темплейт, но это не "автоматически пропишет var i: integer", а "ты наберёшь имя темплейта в нужном месте и нажмёшь ctrl-j"

Примеры можно найти в C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\ObjRepos\en\Code_Templates

← →
Den (2012-12-25 00:58) [14]

брат Птибурдукова - ты наберёшь имя темплейта в нужном месте и нажмёшь ctrl-j" это я пользую, но хотелось изначально ничего не нажимать, к примеру вот как цикл for прописывается сам, только убрал оттуда слово list чтоб вписывало for i:=0 to .count-1 и все, но там была стандартная заготовка.

Правильно — для этого нужен эксперт, см. [1]. - а это я, после того как автор поста упомянул про усилия, даже смотреть не стал, потому как макрос более менее устраивает.

← →
Дмитрий С © (2012-12-25 02:27) [15]

У меня XE при написании for сам добавляет переменную в секцию var.

← →
Den (2012-12-25 05:00) [16]

У меня XE при написании for сам добавляет переменную в секцию var. - вот еслиб вы его view->templates->edit и сюда скопировали, от бы как хорошо было

<?xml version="1.0" encoding="utf-8" ?> <codetemplate xmlns="http://schemas.borland.com/Delphi/2005/codetemplates" version="1.0.0"> <template name="for" invoke="auto"> <script language="Delphi" onenter="false" onleave="false" onvalidate="true"> ValidateForTemplate; </script> <point name="index"> <text> I </text> <hint> loop counter </hint> </point> <point name="val"> <text> Low </text> <hint> loop low bound </hint> </point> <point name="count"> <text> High </text> <hint> loop high bound </hint> </point> <description> for (no begin/end) </description> <author> Embarcadero </author> <script language="Delphi" onenter="false" onleave="true"> DeclareVariable(|index|); </script> < code language="Delphi" context="methodbody" delimiter="|"><![CDATA[for |index| := |val| to |count| do |*||end| ]]> </ code> </template> </codetemplate>

← →
Den (2012-12-26 08:36) [18]

Спасибо! только чет я не вижу де оно тут переменную добавляет.

> Спасибо! только чет я не вижу де оно тут переменную добавляет.

val

← →
Den (2012-12-26 08:46) [20]

Нет, определенно не добавляет, добавляет только вот это

for I := 0 to High do

← →
Den (2012-12-26 08:49) [21]

не не яж не про эту переменную эту и у меня добавляет я думал у Дмитрия С оно ее сразу прописывает до begin типа было
procedure w;
begin
end;

а стало

procedure w;
var
i:integer;
begin
for i:=0 to high do
end;

TEMPLATE. Как при создании события в редакторе кода сделать... Найти похожие ветки