# -*- mode: snippet -*-
# contributor: Alexander Sulfrian <alexander@sulfrian.net>
# name: function
# key: func
# condition: (not (delphi-in-class-definition))
# --
function ${1:$$(yas/choose-value (let (value) (dolist (element (delphi-get-classes) value) (setq value (cons (concat element ".") value)))))}${2:Name$(upcase-initials text)}($3): $4;
begin
$0
end;