var
same : Boolean;
small, large, i : Integer;
begin
small := 23;
large := 455555;
// Непосредственое испытание, чтобы увидеть, являются ли эти числа того же самого размера
if small = large
then ShowMessage('small = large')
else ShowMessage('small <> large');
// Используйте Boolean, чтобы содержать и проверять этот результат
same := (small = large);
if same
then ShowMessage('small = large')
else ShowMessage('small <> large');
// Прямое назначение логического значения в этот Boolean
same := True;
if same
then ShowMessage('то же True')
else ShowMessage('то же False');
end;
|