Пропуск условия if. Delphi 7

[Дикий]

допустим:

if d DIV 10 = 0 or d MOD 10 = 0 then begin

l3.Caption := '0'

end

else

вопросов несколько:
Можно ли использовать в данном случае or?
Then Begin правильно или надо просто Then?
Что надо написать после else что бы в том случае условие было пропущено?

[Air]

if (d DIV 10 = 0) or (d MOD 10 = 0) then
 l3.Caption := '0'
else
//иначе код. l3.Caption := '1'

Если в условии 1 оператор - то Begin не нужен, если 2 и более - надо.
Если Вам не нужно условие "Если нет - то", то Else не ставим.

if (d DIV 10 = 0) or (d MOD 10 = 0) then
 l3.Caption := '0';

or - значит или

[Дикий]

Всё гениальное - просто!

да... действительно

я, правда уж разобрался в случае с одним оператором... методом научного тыка

но всё равно спасибо... определение само тоже нужно, а то плохо когда понимаешь но не можешь объяснить...

[Дикий]

помогите оптимизировать, если возможно.

//na label3 (l3) vinosim 0

if d DIV 10 = 0 then              //Day

l3.Caption := '0';                //Day

if d MOD 10 = 0 then

l3.Caption := '0';

if m div 10 = 0 then              //Mounth

l3.Caption := l3.Caption + '0';   //Mounth

if m mod 10 = 0 then

l3.Caption := l3.Caption + '0';

if y div 10 = 0 then              //Year1

l3.Caption := l3.Caption + '0';   //Year1

if y mod 10 = 0 then

l3.Caption := l3.Caption + '0';

if z div 10 = 0 then

l3.Caption := l3.Caption + '0';

if z mod 10 = 0 then

l3.Caption := l3.Caption + '0';
// s poley vvoda

//s label'ov

if x1 mod 10 = 0 then                //x1

l3.Caption := l3.Caption + '0';

if x2 mod 10 = 0 then                //x2

l3.Caption := l3.Caption + '0';

if x3 mod 10 = 0 then               //x3

l3.Caption := l3.Caption + '0';

if x4 mod 10 = 0 then               //x4

l3.Caption := l3.Caption + '0';

if x5 mod 10 = 0 then               //x5

l3.Caption := l3.Caption + '(0)';

if x6 mod 10 = 0 then               //x6

l3.Caption := l3.Caption + '(0)';

[alexBlack]

А смысл операций словами.
Для чего этот код ? Будет проще "оптимизировать".

[Air]

Я бы организовал в отдельной процедуре, т.к. может ещё понадобиться.
Но задача не ясна, поэтому Вам решать.

procedure Command1(d,m,y,z:integer);
begin
if (d DIV 10 = 0) or (d MOD 10 = 0) then
 l3.Caption := '0';

if (m div 10 = 0) or (m mod 10 = 0) then
 l3.Caption := l3.Caption + '0';

if (y div 10 = 0) or (y mod 10 = 0) then
 l3.Caption := l3.Caption + '0';

if (z div 10 = 0) or (z mod 10 = 0) then
 l3.Caption := l3.Caption + '0';
end;
// s poley vvoda

//s label'ov

procedure Command(xx:integer);
begin
if xx mod 10 = 0 then
 l3.Caption := l3.Caption + '0';
end;
Command(x1);
Command(x2);
Command(x3);
Command(x4);
Command(x5);
Command(x6);

[Дикий]

я уже не раз писал:

у нас есть цифры: //и как всегда - допустим... там переменные типа integer

31.12.1991; 27. 9; 21. 3; (48. 12) //'(знаки препинания не важны)'

и нам с цифр надо вынести на один слой все единицы, на другой все двойки и т.д. (но, допустим, число 31 должно восприниматься не как 31 а как 3 и 1)

[Air]

(но, допустим, число 31 должно восприниматься не как 31 а как 3 и 1)

S:=inttostr(31); //если это число
s1:=s[1];
s2:=s[2];
как-то так, не помню может s[0] и s[1], импровизация.

[alexBlack]

2Дикий. А... это. Припоминаю. Слово "слой" там не было расшифровано. Как видите, вариантов решений много. Еще бы узнать, что такое "слой" и можно было бы предложить как применить эти решения в Вашем случае.

[Дикий]

Сообщение от alexBlack

2Дикий. А... это. Припоминаю. Слово "слой" там не было расшифровано. Как видите, вариантов решений много. Еще бы узнать, что такое "слой" и можно было бы предложить как применить эти решения в Вашем случае.

слой - label (компонент из вкладки Standart (delphi))