Не думал не гадал он...

[sobomax]

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

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

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

-Maxim

[Stanislav]

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

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

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

-Maxim

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

[Speedline]

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

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

[spavel]

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

[sobomax]

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

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

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

-Maxm

[spavel]

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

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

[Stanislav]

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

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

[sz]

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

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

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

-Maxim

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

Много букв.

[CdR]

ADA FOREVA!