delphi условие

Radek 1

New member
Регистрация
26 Мар 2010
Сообщения
58
Реакции
0
Баллы
0
не подскажите в чём дело новичку?
как сделать так в delphi,чтобы действие выполнялось,только когда будут верны два условия,в не одно,через and пробывал,но не получается
если через and то действие выполн сразу даже если оба условия не верны
 

AHTOXA69

Active member
Регистрация
24 Апр 2009
Сообщения
2,843
Реакции
0
Баллы
36
Адрес
Северодвинск
эх делфи,делфи) помню как во втузе делал 3д планеты солнечной системы )
 

Hatsune Miku

Заблокирован
Регистрация
12 Дек 2010
Сообщения
101
Реакции
0
Баллы
0
?????, никто ведь не запрещает, а человеку нада помочь.
 

Radek 1

New member
Регистрация
26 Мар 2010
Сообщения
58
Реакции
0
Баллы
0
я так вроде всё и делаю,сейчас поразбераюсь
 

Radek 1

New member
Регистрация
26 Мар 2010
Сообщения
58
Реакции
0
Баллы
0
всем спасибо,я просто скобки забыл))))
 

▬▬☻▬▬

Заблокирован
Регистрация
11 Июн 2009
Сообщения
1,934
Реакции
1
Баллы
0
Адрес
Северодвинск
Да и ежу понятно - общая ошибка про скобки. Смысл весь код писать?:)
Hatsune Miku, в твоем коде как раз библиотеки не подключил)
 

lotus

New member
Регистрация
6 Окт 2010
Сообщения
18
Реакции
0
Баллы
0
PHP:
program Project1;

{$APPTYPE CONSOLE}

var
  avatar: Integer;
  lost: String;

begin
  avatar:=$ff;
  lost:='jack';
  if (avatar=255) and (lost='jack') then Writeln('it''s ok')
  else Writeln('oops');
  Readln;
end.
 

OneLexus

New member
Регистрация
17 Сен 2009
Сообщения
1,698
Реакции
2
Баллы
0
Адрес
Северодвинск
PHP:
if (port[$d44] = $f2) and (IecRead = port[$d47]) then
     begin
       asm
         PUSH AX
         PUSH DX
         MOV AL,$f2
         MOV DX,$d44
         OUT DX,AL
         MOV DX,$d45
    @A:  IN AL,DX
         AND AL,$20
         JNE @A
         MOV AL,$f3
         MOV DX,$d44
         OUT DX,AL
         MOV DX,$d47
         IN AL,DX
         MOV My_Char,AL
         MOV DX,$d42
         IN AL,DX
         MOV InptWord,AL
         POP DX
         POP AX
       end;
       IecRead := My_Char;
     end;
;D
 

▬▬☻▬▬

Заблокирован
Регистрация
11 Июн 2009
Сообщения
1,934
Реакции
1
Баллы
0
Адрес
Северодвинск
PHP:
Если (ТекущееВремяГода()="Зима") или (ТекущееВремяГода()="Лето")  Тогда
	Ёлочка.Стройность = 1;
	Ёлочка.Цвет = глПолучитьЦвет("Зеленый");
КонецЕсли;
))))))))
 

Invasion

New member
Регистрация
8 Ноя 2010
Сообщения
149
Реакции
0
Баллы
0
А если условий больше 2х?
Есть ли тогда какие-нибудь модули для делфи чтобы автоматом их расставлять?
 

lotus

New member
Регистрация
6 Окт 2010
Сообщения
18
Реакции
0
Баллы
0
PHP:
/* 
99 bottles of beer on the wall in an extreme template-metaprogramming style.  
It uses template specialisation to decided how to print numbers, whether 
'bottles' should be plural, and to finish the song correctly.  
Macros are used to generate the large number of specialisations required for
printing numbers nicely, eg 45 printed as "forty five" with pretty_print<45>().

Note that this will probably no compile immediately, since it requires the 
compiler to instantiate templates to a depth of (number of bottles + 4).  
Either reduce the number of starting bottles, or increase the maximum 
template depth on your compiler. 

Eg. using g++ use the -ftemplate-depth-103 command line option.

Tested on gcc, other compilers at your risk
*/

#include <iostream>

using namespace std;

template<bool small, int I>
struct pretty_printer;

#define SMALL_PRETTY_PRINTER(num, string) \
template<>\
struct pretty_printer<true, num>\
{\
    static void print()\
    {\
        cout << string;\
    }\
};

SMALL_PRETTY_PRINTER(0, "No")
SMALL_PRETTY_PRINTER(1, "One")
SMALL_PRETTY_PRINTER(2, "Two")
SMALL_PRETTY_PRINTER(3, "Three")
SMALL_PRETTY_PRINTER(4, "Four")
SMALL_PRETTY_PRINTER(5, "Five")
SMALL_PRETTY_PRINTER(6, "Six")
SMALL_PRETTY_PRINTER(7, "Seven")
SMALL_PRETTY_PRINTER(8, "Eight")
SMALL_PRETTY_PRINTER(9, "Nine")
SMALL_PRETTY_PRINTER(10, "Ten")
SMALL_PRETTY_PRINTER(11, "Eleven")
SMALL_PRETTY_PRINTER(12, "Twelve")
SMALL_PRETTY_PRINTER(13, "Thirteen")
SMALL_PRETTY_PRINTER(14, "Fourteen")
SMALL_PRETTY_PRINTER(15, "Fifteen")
SMALL_PRETTY_PRINTER(16, "Sixteen")
SMALL_PRETTY_PRINTER(17, "Seventeen")
SMALL_PRETTY_PRINTER(18, "Eighteen")
SMALL_PRETTY_PRINTER(19, "Nineteen")

#undef SMALL_PRETTY_PRINTER

template<int ones>
inline void 
print_ones();

#define ONES_PRINTER(ones, string) \
template<> \
inline void \
print_ones<ones>() \
{\
  cout << string;\
}

ONES_PRINTER(0, " ")
ONES_PRINTER(1, " one")
ONES_PRINTER(2, " two")
ONES_PRINTER(3, " three")
ONES_PRINTER(4, " four")
ONES_PRINTER(5, " five")
ONES_PRINTER(6, " six")
ONES_PRINTER(7, " seven")
ONES_PRINTER(8, " eight")
ONES_PRINTER(9, " nine")

#undef ONES_PRINTER

template<int tens>
inline void
print_tens();

#define TENS_PRINTER(tens, string) \
template<> \
inline void \
print_tens<tens>() \
{\
  cout << string;\
}

TENS_PRINTER(2, "Twenty")
TENS_PRINTER(3, "Thirty")
TENS_PRINTER(4, "Forty")
TENS_PRINTER(5, "Fifty")
TENS_PRINTER(6, "Sixty")
TENS_PRINTER(7, "Seventy")
TENS_PRINTER(8, "Eighty")
TENS_PRINTER(9, "Ninety")

#undef TENS_PRINTER

template<int I>
struct pretty_printer<false, I>
{
    static void print(){
        print_tens<(I - I%10)/10>();
        print_ones<(I%10)>();
    }
};

template<int I>
void pretty_print()
{
    pretty_printer<(I<20), I>::print();
}

template<int I>
inline void
BottlesOfBeer()
{
    pretty_print<I>();
    cout << " bottles of beer" ;
}

template<>
inline void
BottlesOfBeer<1>()
{
    pretty_print<1>();
    cout << " bottle of beer" ;
}

template<int I>
inline void
BottlesOfBeerOnTheWall()
{
    BottlesOfBeer<I>();
    cout << " on the wall";
}

template<int I>
inline void stanza()
{
    BottlesOfBeerOnTheWall<I>(); 
    cout << ",\n";
    BottlesOfBeer<I>(); 
    cout <<",\n";
}

template<int I>
inline void bridge()
{
    cout   << "Take one down, pass it around," << endl;
    BottlesOfBeerOnTheWall<I-1>();
    cout <<",\n";
}

template<>
inline void bridge<0>()
{
    cout << "Go to the store and buy some more," << endl;
    BottlesOfBeerOnTheWall<99>();
}

template<int I>
inline void verse()
{
    stanza<I>();
    bridge<I>();
}

template<int I>
inline void sing () 
{
    verse<I>();
    cout << endl;
    sing<I-1>();
} 


template<>
inline void sing<0> ()
{
    verse<0>();    
}

int main () {
  sing<99>();
}
 

lotus

New member
Регистрация
6 Окт 2010
Сообщения
18
Реакции
0
Баллы
0
PHP:
<?
	/* CONFIG FROM URL STRING, DEFAULT TO 99 BOTTLES OF BEER ON THE WALL*/
	if($_REQUEST['bottleNumber']) { $bottleNumber = $_REQUEST['bottleNumber']; } else { $bottleNumber
= 99; }
	if($_REQUEST['fluid']) { $fluid = $_REQUEST['fluid']; } else { $fluid = 'beer'; }
	if($_REQUEST['location']) { $location = $_REQUEST['location']; } else { $location = 'wall'; }

	/* CREATE LYRICS */
	for($i = $bottleNumber; $i >= 0; $i--) {

		/* SET DEFAULTS */
		$bottleCount = $i;
		$bottle = 'bottles';
		$action = 'Take one down and pass it around';
		$remainingBottles = $i-1;

		/* HANDLE EXCEPTIONS */
		if($i == 0) {
			$bottleCount = 'no more';
			$action = 'Go to the store and buy some more';
			$remainingBottles = $bottleNumber;
		}
		if($i == 1) {
			$bottle = 'bottle';
			$action = 'Take it down and pass it around';
			$remainingBottles = 'no more';
		}

		/* BUILD LYRICS */
		$lyrics .= ucfirst($bottleCount).' '.$bottle.' of '.$fluid.' on the '.$location.',
'.$bottleCount.' '.$bottle.' of '.$fluid.'.<br>'."\n";
		$lyrics .= $action.', '.$remainingBottles.' bottles of '.$fluid.' on the '.$location.'.<p
\>'."\n\n";
	}

	/* OUTPUT TO PAGE */
	echo $lyrics;
?>
 
Сверху