Netspirit писал(а):
procedure BlaBlaBla;var
txt:string; handle:HWND;
begin
txt := 'test-test-test';
handle := GetHandle; // GetHandle - какая-либо пользовательская функция
if handle <> 0 then
SetWindowText(handle, PChar(txt));
else
MessageBox(.....);
end;
Допустим, что "procedure" будет контейнером со значком процедуры и именем "BlaBlaBla", переменные "var" будут точками наверху контейнера, которые можно будет добавлять и редактировать, "begin" и "end" не будет видна т.к. это тело процедуры и будет включена в её контейнер, if и прочее тоже можно в контейнер преобразовать со своим значком и точками либо просто поставить на него значок также с точками и в свойствах сделать ввод необходимых данных! И точка на процедуре с возвращающим значением! Получается вполне наглядный код!
------------ Дoбавленo в 20.32:
RinniX писал(а):
Допустим, что "procedure" будет контейнером со значком процедурыс возможностью изменения значка на свой по назначению процедуры!
Поиск
Друзья
Администрация