forum.boolean.name - при использовании showAlert вылетает

forum.boolean.name (http://forum.boolean.name/index.php)

- Основной форум (http://forum.boolean.name/forumdisplay.php?f=49)

- - при использовании showAlert вылетает (http://forum.boolean.name/showthread.php?t=17791)

при использовании showAlert вылетает

При вставке showAlert программа сразу вылетает, вот код:

Код:

program BSUIRaspisanie;

uses resloader;

uses parse;



var



  temp, s: string;

  res: resource;

  form,day,today,i: integer;

  week: char;





function NumberOfWeek: string; //Функция для определения номера учебной недели

const

START1213=1346011201;

END1213=1372622401;

START1314=1377460801;

END1314=1404158401;

START1415=1409515201;

END1415=1435694401;



begin



 if (today>START1213) and (today<END1213) then

  NumberOfWeek:=integerToString((((today-START1213)/604800) mod 4)+1);

 else

  if (today>START1314) and (today<END1314) then

    NumberOfWeek:=integerToString((((today-START1314)/604800) mod 4)+1);

  else

    if (today>START1415) and (today<END1314) then

      NumberOfWeek:=integerToString((((today-START1415)/604800) mod 4)+1);

    else

      showAlert('Ошибка', 'Не удалось прочитать время', loadImage('/icon.png'), ALERT_ERROR);

end;



begin

  today:=getCurrentTime;

  day:=getWeekDay(today)-2;

  week :=getChar(NumberOfWeek,0);



  OpenRes('test.txt');

  temp := ReadLinesBlock('140102.txt',day,1,1);

  closeRes;

  parse.line(temp, "/");



  i := 2;



  

  while (i < parse.len) do

  begin

  if (week = parse.get(i)) or (parse.get(i) = 'a') or (week =

      getChar(parse.get(i), 0)) or (week = getChar(parse.get(i), 1)) then

    s :=s + parse.get(i-2)+ chr(10) + parse.get(i-1) + chr(10);

    i := i + 3;

  end;

  ShowForm;

  form := FormAddString(s);

  //SetColor(255,0,0);

  //drawText(s+chr(13)+'Hello',0,0);

  //repaint;

  Delay(30000); // Небольшая задержка

end.

Ответ: при использовании showAlert вылетает

Судя по всему, либо дело не в ShowAlert, либо проблема с загрузкой icon.png.
Точнее сказать без полного проекта сложно.

Ответ: при использовании showAlert вылетает

Цитата:

Сообщение от ViNT (Сообщение 250713)

пробовал другие картинки вместо этого использовать, ничего не помогало

вот проект:Вложение 18534