При вставке 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.