Помогите с boolean!!!
 

Прошу помочь! Я знаю что более нормальная программа работает при использовании булеанов. Тоесть
procedure Init;
begin
...
end;

procedure h;
begin
init:=true;
end;

В чём вопрос? У меня подобное компилит без проблем, но на эмуляторе и телефоне тупо вылетает. Я буду очень благодарен если мне обьяснят как осуществить:
1) Прорисовка картинки)
2) При нажатии на обьект (к примеру) иконку, init=true;
3) Init "живёт", пока не нажмут на что-то другое. Заранее спасибо.

Ответ: Помогите с boolean!!!
 

Пиши на j2me, тогда подскажу.:p

Ответ: Помогите с boolean!!!
 

эм, компилиться???
инит - процедура, ты ей присваиваешь тру и оно компилится???
полный бред...

var init:boolean;

т.е. просто переменную создаем, процедуре нельзя ниче присвоить

Ответ: Помогите с boolean!!!
 

Нет, это не то. Вот код:

Program test;
Var intro, paint:boolean;

procedure intro;
begin
прорисовка картинки;
ожидание нажатия на координаты;
{при нажатии на нужные координаты paint=true};

procedure paint;
begin
прорисовка картинок;
delay(-1);
end;

Procedure data;
begin
intro:=true;
paint:=false;
end;

Procedure intro;
Begin
data;
end.

Что тут неправильно???

Ответ: Помогите с boolean!!!
 

delay(-1); Улыбнуло

Ответ: Помогите с boolean!!!
 

Ответ: Помогите с boolean!!!
 

люди...мне кто-то поможет???

Ответ: Помогите с boolean!!!
 

Во первых ты куда-то дел главный цикл + у тебя 2 раза повторяется процедура intro + количество end-ов не совпадает с количеством begin-ов + delay (-1) уже само собой должно насторожить, ты пытаешься сказать программе чтобы она ждала -1 секунду (вообщем эта строчка чоть и откомпилится но будет запорывать твою программу)

Ответ: Помогите с boolean!!!
 

но прога компилится...а в приложении белый экран..=(

Ответ: Помогите с boolean!!!
 

нет она не компилится

Ответ: Помогите с boolean!!!
 

Я 1 энд тут не дописал. Но у меня в исходнике есть. Что за цикл? И ещё...ты почем на свой сайт не заходишь?

Ответ: Помогите с boolean!!!
 

Захожу, смотрю кто что написал, ты первый кто что-то написал вообще

Ответ: Помогите с boolean!!!
 

Program test;
Var intro, paint:boolean;

procedure p_intro;
begin
прорисовка картинки;
ожидание нажатия на координаты;
{при нажатии на нужные координаты paint=true};
end;
procedure p_paint;
begin
прорисовка картинок;
delay(1000);
end;

Procedure data;
begin
intro:=true;
paint:=false;
end;

Begin
data;
end.

Ответ: Помогите с boolean!!!
 

Слушай! Огромное спасибо! Я тебя не забуду хД Я хочу тебе помочь с сайтом и прогой! Если есть время давай займемся серьёзно этим! Ещё рас спасибо!

Ответ: Помогите с boolean!!!
 

Пиши в личку