[Alegun]

Сообщение от serega6531

...при нажатии кнопки Играть программа уходит в "Не отвечает"...

Так будет логичнее

Код:

procedure IsSetFiles();
var count: integer;
    FilesIsSet: Array[1..14] of boolean;
begin
count:=1;
While (count < 15) do
begin
FilesIsSet[count]:=FileExists(FilesFullPatch[count]);
inc(count);
end;
ShowMessage(BooleanToStr(FilesIsSet[13]));
end;

З.Ы. И ещё, хорошо бы массив Files задать при объявлении, так проще

Код:

var

...

Files:Array[1..1{4}5] of string = (
  'bin\minecraft.jar',
  'bin\lwjgl_util.jar',
  'bin\lwjgl.jar',
  'bin\jinput.jar',
  'bin\natives\jinput-dx8.dll',
  'bin\natives\jinput-dx8_64.dll',
  'bin\natives\jinput-raw.dll',
  'bin\natives\jinput-raw_64.dll',
  'bin\natives\lwjgl.dll',
  'bin\natives\lwjgl64.dll',
  'bin\natives\OpenAL32.dll',
  'bin\natives\OpenAL64.dll',
  'mods\matmos_packaged.zip', // ошибка -> 13
  'mods\mod_worldeditcui_1.5.1_01_lite_mc1.5.1.litemod', // -> 13, одно из двух
  'additonal.zip');
...