Извините, ничего не найдено.

Не расстраивайся! Лучше выпей чайку!
Регистрация
Справка
Календарь

Вернуться   www.boolean.name > Программирование игр для мобильных телефонов > MidletPascal > Основной форум

Основной форум Сюда все проблемы связанные с программированием.

Ответ
 
Опции темы
Старый 25.01.2013, 20:37   #1
9ik
Оператор ЭВМ
 
Регистрация: 19.10.2010
Сообщений: 22
Написано одно полезное сообщение
при использовании 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.
(Offline)
 
Ответить с цитированием
Старый 25.01.2013, 22:01   #2
ViNT
Модератор
 
Регистрация: 03.04.2007
Сообщений: 2,252
Написано 597 полезных сообщений
(для 817 пользователей)
Ответ: при использовании showAlert вылетает

Судя по всему, либо дело не в ShowAlert, либо проблема с загрузкой icon.png.
Точнее сказать без полного проекта сложно.
(Offline)
 
Ответить с цитированием
Старый 26.01.2013, 11:13   #3
9ik
Оператор ЭВМ
 
Регистрация: 19.10.2010
Сообщений: 22
Написано одно полезное сообщение
Ответ: при использовании showAlert вылетает

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

вот проект:BSUIRaspisanie.rar
(Offline)
 
Ответить с цитированием
Ответ


Опции темы

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


Часовой пояс GMT +1, время: 19:04.


vBulletin® Version 3.6.5.
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Перевод: zCarot
Style crйe par Allan - vBulletin-Ressources.com