Вставка изменяющегося <условия>

[Iamloli]

Здравствуйте. Есть проблема. Мне надо, что бы в зависимости от переменных x и a вставлялось условие в if then. Вот вырезка:

var b,s:boolean; x,a,n,k:integer;
begin
 if x>a then
  begin b:=(x>a); k:=k*1 end
  else
  begin b:=(x<a); k:=k*(-1) end;
  while (b) do

ну и там пошло поехало.. а программа читает наверняка b:=true или false что и вставляет, а мне надо именно x>a или x<a. Что делать?

[mihali4]

Использовать неизвестный вам оператор case ... of

[Iamloli]

Что-то не вижу связи...
Так, наверно для лучшей наглядности, скину процедуру.

procedure tree3(p,x,a,y,c,m,l,k,n:integer);
var b,s:boolean;
begin
        with form1.canvas do
        begin
                sleep(p);
                if x>a then
                begin b:=x>a; k:=k*1 end
                else
                begin b:=x<a; k:=k*(-1) end;
                if y>c then
                begin s:=(y>c); n:=n*1 end
                else
                begin s:=(y<c); n:=n*(-1) end;
                while (b)or(s) do
                begin
                        Pen.Color:=clMaroon;
                        Pen.width:=l;
                        MoveTo(x,y);
                        if x-k=a then a:=a-1;
                        if y+n=c then c:=c-1;
                        if b then
                        begin
                                if s then x:=x-k else Break;
                        end
                        else
                                x:=x;
                        if s then
                        begin
                        if b then y:=y-n else Break;
                        end
                        else
                                y:=y;
                        LineTo(x,y);
                sleep(m);
                end;
        end;

end;

Как вы поняли, она создает примитивную анимацию растущей линии.. Понимаю, что критиковать можно код жестко, но я только начал учится. Так что если вы можете привести пример, как было бы более правильно это сделать, я буду благодарен. Но попрошу паралельно исправить мой код)

[mihali4]

"Хвост" - "не играет значения" (так любил выражаться один мой приятель...)
А по поводу... Я бы предложил (в лоб):

b:=x>a;
if not b then
k:=-k;
s:=(y>c);
if not s then
n:=-n;

Вроде покороче, чем

                if x>a then
                begin b:=x>a; k:=k*1 end
                else
                begin b:=x<a; k:=k*(-1) end;
                if y>c then
                begin s:=(y>c); n:=n*1 end
                else
                begin s:=(y<c); n:=n*(-1) end;

[Iamloli]

Хмм.. а что делать тогда с циклом? b также будет читаться как true или false, и программа просто зациклится.. А мне надо подставить именно неравенство в условие. Я конечно могу сделать четыре почти одинаковых процедуры.. но это ка-то, по ламерски

[Пепел Феникса]

для цикла while нет разницы переменая типа boolean или выражение условия.

[Iamloli]

А для переменной есть;

Нету, но здесь надо учитывать вводящиеся в программу значения x и a, y и c. Когда я приравниваю b:=x>a, программа правую сторону уравнения читает как true или false.
Это все попадает в цикл, под таким значением и остановится не может, вот мне и надо именно вставить место b x>a или x<a, аналогично с y и c.
Вот и вопрос, какой тип можно поставить вместо boolean, может тогда уберется этот каприз, или же может есть какай то функция.. или свежие соображения на этот счет.

Вы когда книжки читаете (если читаете) - там тоже вот так - все в "кашу", без знаков препинания и разделения на абзацы ?
Подправил. Старайтесь (на будущее) сделать ваш пост читабельным...

[Пепел Феникса]

так вам же цикл надо с каким то условием?
b присваивайте ваше условие(в зависимости от другого условия)
в цикле обновляйте значение по тому же принципу.

[Iamloli]

а просто вставить b, с этим условием, не как нельзя?

[Пепел Феникса]

while b do
это вы имели в виду?