[svensoft]

Cartmans,

Обьясните как правильно сделать скрипт фрииарка, что где прописать что бы не было ошибок при отмене установки и т.д. скрипт фрииакра(стандартный) у меня есть »

alex2010,

подскажите пожалуйста код, чтоб было как на скрине(подсчитывало свободное место на ЖД)

Вот скрипт с настроеным фриарком и реализованым подсчетом свободного места на жд : http://upwap.ru/757248

[South]

Подскажите пожалуйста, как работать в инно со множествами? »

есть смутное подозрение, что никак
хоть инно и определяет set как служебное слово, но свое множество я так и не смог определить
тоже самое в отношении in

[solvador]

South, такая же беда.
Написал такой код:

Код:

procedure DBBackup();
var
  C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z: String;
begin
CreateBackup; {вызов процедуры создания резервных копий}
C:= 'c'; D:= 'd'; E:= 'e'; F:= 'f'; G:= 'g'; H:= 'h'; I:= 'i'; J:= 'j'; K:= 'k'; L:= 'l'; M:= 'm'; N:= 'n'; O:= 'j'; P:= 'p'; Q:= 'q'; R:= 'r'; S:= 's'; T:= 't'; U:= 'u'; V:= 'v'; W:= 'w'; X:= 'x'; Y:= 'y'; Z:= 'z';
  if FindFirst(ExpandConstant('{app}\gamedata.db*'), FindFiles) then {ищем по маске файлы в директории}
  begin repeat
    Delete(FindFiles.Name, 1, 11); {режем строку до одной последней буквы}
    case FindFiles.Name of {сравнение и результат}
      C: CreateDBBackup; D: CreateDBBackup; E: CreateDBBackup; F: CreateDBBackup; G: CreateDBBackup; H: CreateDBBackup;
      I: CreateDBBackup; J: CreateDBBackup; K: CreateDBBackup; L: CreateDBBackup; M: CreateDBBackup; N: CreateDBBackup;
      O: CreateDBBackup; P: CreateDBBackup; Q: CreateDBBackup; R: CreateDBBackup; S: CreateDBBackup; T: CreateDBBackup;
      U: CreateDBBackup; V: CreateDBBackup; W: CreateDBBackup; X: CreateDBBackup; Y: CreateDBBackup; Z: CreateDBBackup;
//      else MsgBox(FindFiles.Name, mbCriticalError, mb_OK); {выводим имя пропущенного файла для проверки}
    end;
      until not FindNext(FindFiles);
      FindClose(FindFiles);
  end;
end;

Он рабочий, но хоть я ни капли не программист, но уж больно глаза режет. Как мне кажется, через множества он был бы намного проще и правильней.
По крайней мере для реализации её таким способом

[South]

Написал такой код: »

а так не проще?

Код:

procedure DBBackup();
var
//  C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z: String;
  FindFiles : TFindRec;
  LastChar  : Char;
begin
  CreateBackup; {вызов процедуры создания резервных копий}
//C:= 'c'; D:= 'd'; E:= 'e'; F:= 'f'; G:= 'g'; H:= 'h'; I:= 'i'; J:= 'j'; K:= 'k'; L:= 'l'; M:= 'm'; N:= 'n'; O:= 'j'; P:= 'p'; Q:= 'q'; R:= 'r'; S:= 's'; T:= 't'; U:= 'u'; V:= 'v'; W:= 'w'; X:= 'x'; Y:= 'y'; Z:= 'z';
  if FindFirst(ExpandConstant('{app}\gamedata.db*'), FindFiles) then begin {ищем по маске файлы в директории}
    repeat
//      Delete(FindFiles.Name, 1, 11); {режем строку до одной последней буквы}
      LastChar:=UpperCase(FindFiles.Name)[Length(FindFiles.Name)];
      if (LastChar<>'A') and (LastChar<>'B') then CreateDBBackup;
//      case FindFiles.Name of {сравнение и результат}
//        C: CreateDBBackup; D: CreateDBBackup; E: CreateDBBackup; F: CreateDBBackup; G: CreateDBBackup; H: CreateDBBackup;
//        I: CreateDBBackup; J: CreateDBBackup; K: CreateDBBackup; L: CreateDBBackup; M: CreateDBBackup; N: CreateDBBackup;
//        O: CreateDBBackup; P: CreateDBBackup; Q: CreateDBBackup; R: CreateDBBackup; S: CreateDBBackup; T: CreateDBBackup;
//        U: CreateDBBackup; V: CreateDBBackup; W: CreateDBBackup; X: CreateDBBackup; Y: CreateDBBackup; Z: CreateDBBackup;
        //else MsgBox(FindFiles.Name, mbCriticalError, mb_OK); {выводим имя пропущенного файла для проверки}
//      end;
    until not FindNext(FindFiles);
    FindClose(FindFiles);
  end;
end;

[solvador]

South, ну разумеется проще
Я же говорю, что ни капли не программист. Хотя и LastChar (хотел сказать аналогичный пример) всё время был на виду пока листал руководства, но использовать его ума не хватило
Спасибо!
Правда там есть архивы заканчивающиеся на 1...9. Но думаю это решается быстро.
Хм... посмотрел статьи Ерёмина, где как мне казалось видел аналогичный пример. Там такого нет, видимо ошибся...

[South]

кое-что смог сделать со множествами, оказывается они все-таки есть, только вот работать с ними как-то не очень удобно

Код:

var
  c:Char;
  b:byte;
  MySet1: set of char;
  MySet2: set of byte;
begin
  MySet1:=['a','b','x','y'];
  MySet2:=[byte(1),byte(2),byte(3),byte(4),byte(5),byte(6),byte(7),byte(8),byte(9)];
  c:='a';
  if c in MySet1 then MsgBox('c in MySet1; c = '+c, mbCriticalError, mb_OK);
  b:=0;
  if b in MySet2 then MsgBox('b in MySet2; b = '+IntToStr(b), mbCriticalError, mb_OK);
end;

[A1EXXX]

Inno ISCmplr Setup 5.3.8 build 100301 by Restools

[solvador]

South, ещё раз Спасибо. Пригодится.
Попробовал опираясь на ваш код слегка его подправить Получилось так:

Код:

const 
  Symbol = 'cdefghijklmnopqrstuvwxyz';

procedure DBBackup();
var
  FindFiles : TFindRec;
begin
  CreateBackup; {вызов процедуры создания резервных копий}
  if FindFirst(ExpandConstant('{app}\gamedata.db*'), FindFiles) then begin {ищем по маске файлы в директории}
    repeat
        if Pos(FindFiles.Name[Length(FindFiles.Name)],Symbol) > 0 then CreateDBBackup;
    until not FindNext(FindFiles);
    FindClose(FindFiles);
  end;
end;

Вроде робит... Правда нужно наверное вместо [Length(FindFiles.Name) поставить фиксированную цифру, чтобы исключить файлы типа gamedata.dbb.bak . так как они удовлетворяют маске поиска и содержат последнюю букву включённую в symbol.

[South]

solvador,
можно и так, только, если пишешь

Код:

Symbol = 'cdefghijklmnopqrstuvwxyz';

, то

Код:

Pos(FindFiles.Name[Length(FindFiles.Name)],Symbol)

лучше написать как

Код:

Pos(LowerCase(FindFiles.Name)[Length(FindFiles.Name)],Symbol)

. вдруг расширение в верхнем регистре будет написано

чтобы исключить файлы типа gamedata.dbb.bak »

попробуй задать маску "gamedata.db?", правда не знаю будет ли работать инно с такой маской

[Cartmans]

svensoft, мне нужен скрипт без наворотов))