Каморка

...что придется опять на пасцале писать после пятнадцатилетьнего перерыва. А вот, понадобилось Inno Setup заюзать, а из тима никто фишку не рубит.

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
var
DirName: String;
begin
case CurUninstallStep of
usUninstall:
begin
DirName := ExpandConstant('{userappdata}\Digifonica');

Тьфу, гыдота!!! Не могли они туда питона встроить что ли?

-Maxim

sobomax писал(а):...что придется опять на пасцале писать после пятнадцатилетьнего перерыва. А вот, понадобилось Inno Setup заюзать, а из тима никто фишку не рубит.

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
var
DirName: String;
begin
case CurUninstallStep of
usUninstall:
begin
DirName := ExpandConstant('{userappdata}\Digifonica');

Тьфу, гыдота!!! Не могли они туда питона встроить что ли?

-Maxim

А что не так? Красиво и элегантно - только отступы надо делать!

Вспомнилось: "На Паскалі пишуть тільки москалі А наші усі - пишуть на Сі"

Пыс. Пятница. Не пора б? Или на следующей неделе?

Не хочу затевать войну, но должна же быть причина почему во всем мире алгоритмы преподают именно на паскале ?

spavel писал(а):Не хочу затевать войну, но должна же быть причина почему во всем мире алгоритмы преподают именно на паскале ?

Так мы тут не про алгоритмы а про программирование.

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

-Maxm

Так мы тут не про алгоритмы а про программирование.

а это разве не связанные вещи ?

sobomax писал(а):Пока вспомнил где в ем в конструкции if then else ставить точку с запятой чуть не долбанулся....
-Maxm

Ага!
А справку посмотреть типа нельзя?
А компилятор типа не чекает?
А гугл больше типа не работает?

Stanislav писал(а):

sobomax писал(а):...что придется опять на пасцале писать после пятнадцатилетьнего перерыва. А вот, понадобилось Inno Setup заюзать, а из тима никто фишку не рубит.

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
var
DirName: String;
begin
case CurUninstallStep of
usUninstall:
begin
DirName := ExpandConstant('{userappdata}\Digifonica');

Тьфу, гыдота!!! Не могли они туда питона встроить что ли?

-Maxim

А что не так? Красиво и элегантно - только отступы надо делать!

Много букв.

ADA FOREVA!