Мини-чат

Запрещается мат, реклама в любом её виде, оскорбления. За любое нарушение будет бан или наказание как в чате, так и на форуме.
Загрузка...
Очистить поле ввода
Запрещается мат, флуд, реклама в любом её виде, оскорбления. За любое нарушение будет бан как в чате, так и на форуме.
Основная справка
Чат MGC Chatbox Evo очень легок в использовании
Вы можете:
  1. Отправлять сообщения: введите текст в поле ввода и нажмите Enter, или кнопку OK в чате.
  2. Форматировать сообщения: открыв панель форматирования нажатием кнопки BBCode, вы получаете доступ к различным настройкам форматирования текста ваших сообщений.*
  3. Общаться в разных комнатах: в зависимости от настроек группы пользователей, в которой вы состоите, либо настроек чата вы можете оставлять сообщения в разных комнатах. Выбор комнаты осуществляется нажатием соответствующей кнопки в левой части чата.*
  4. Редактировать свои сообщения (или сообщения других): редактирование осуществляется двойным нажатием на сообщение.*
  5. Использовать команды: команды позволяют пользоваться новыми опциями форматирования, управления и т.д... Информация о доступных вам командах будет расположена ниже. Вы можете не вводить префикс команды (/название_команды) в связанной с ней комнате (исключение составляет основная комната).*
* в зависимости от настроек выбранных администрацией форума для вашей группы.
Показано с 1 по 18 из 18

Тема: delphi условие

  1. #1
    Пользователь
    Регистрация
    26.03.2010
    Сообщений
    58
    Получено (+/-): 0/0

    По умолчанию delphi условие

    не подскажите в чём дело новичку?
    как сделать так в delphi,чтобы действие выполнялось,только когда будут верны два условия,в не одно,через and пробывал,но не получается
    если через and то действие выполн сразу даже если оба условия не верны

    0 Not allowed! Not allowed!

  2. # ADS
    ООО "Рекламная реклама"
    Регистрация
    Always
    Сообщений
    Many
     

  3. #2
    Заблокирован
    Регистрация
    11.06.2009
    Адрес
    Северодвинск
    Сообщений
    1,936
    Получено (+/-): 0/0

    По умолчанию

    If (A=0) and (A=2) Then

    0 Not allowed! Not allowed!

  4. #3
    Я здесь на ПМЖ Аватар для AHTOXA69
    Регистрация
    24.04.2009
    Адрес
    Северодвинск
    Сообщений
    2,847
    Получено (+/-): 0/0

    По умолчанию

    эх делфи,делфи) помню как во втузе делал 3д планеты солнечной системы )

    0 Not allowed! Not allowed!

  5. #4
    Заблокирован
    Регистрация
    12.12.2010
    Сообщений
    101
    Получено (+/-): 0/0

    По умолчанию

    когда будут верны два условия
    вот:
    PHP код:
      if (Tag=0) and (Caption='Form1'then
      begin
      end


    0 Not allowed! Not allowed!

  6. #5
    Заблокирован
    Регистрация
    11.06.2009
    Адрес
    Северодвинск
    Сообщений
    1,936
    Получено (+/-): 0/0

    По умолчанию

    Hatsune Miku, и тут то забаянил)

    0 Not allowed! Not allowed!

  7. #6
    Заблокирован
    Регистрация
    12.12.2010
    Сообщений
    101
    Получено (+/-): 0/0

    По умолчанию

    ?????, никто ведь не запрещает, а человеку нада помочь.

    0 Not allowed! Not allowed!

  8. #7
    Пользователь
    Регистрация
    26.03.2010
    Сообщений
    58
    Получено (+/-): 0/0

    По умолчанию

    я так вроде всё и делаю,сейчас поразбераюсь

    0 Not allowed! Not allowed!

  9. #8
    Пользователь
    Регистрация
    26.03.2010
    Сообщений
    58
    Получено (+/-): 0/0

    По умолчанию

    всем спасибо,я просто скобки забыл))))

    0 Not allowed! Not allowed!

  10. #9
    Заблокирован
    Регистрация
    11.06.2009
    Адрес
    Северодвинск
    Сообщений
    1,936
    Получено (+/-): 0/0

    По умолчанию

    Да и ежу понятно - общая ошибка про скобки. Смысл весь код писать?
    Hatsune Miku, в твоем коде как раз библиотеки не подключил)

    0 Not allowed! Not allowed!

  11. #10

    По умолчанию

    PHP код:
    program Project1;

    {
    $APPTYPE CONSOLE}

    var
      
    avatarInteger;
      
    lostString;

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

    0 Not allowed! Not allowed!
    3.141592653589793238462643383279502884197169399375 10582097494459230781640628620899862803482534211706 79821480865132823066470938446095505822317253594081 28481117450284102701938521105559644622948954930381 96442881097566593344612847564823378678316527120190 91456485669234603486104543266482133936072602491412 73724587006606315588174881520920962829254091715364 36789259036001133053054882046652138414695194151160 94330572703657595919530921861173819326117931051185 4807446237996274956735188575272489122793818301194

  12. #11
    Завсегдатай форума Аватар для OneLexus
    Регистрация
    17.09.2009
    Адрес
    Северодвинск
    Сообщений
    1,692
    Получено (+/-): 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

    0 Not allowed! Not allowed!
    Делай все что можешь и не беспокоися о последствиях..... Ведь ты сделал все что мог.

  13. #12
    Заблокирован
    Регистрация
    11.06.2009
    Адрес
    Северодвинск
    Сообщений
    1,936
    Получено (+/-): 0/0

    По умолчанию

    PHP код:
    Если (ТекущееВремяГода()="Зима"или (ТекущееВремяГода()="Лето")  Тогда
        Ёлочка
    .Стройность 1;
        
    Ёлочка.Цвет глПолучитьЦвет("Зеленый");
    КонецЕсли
    ))))))))

    0 Not allowed! Not allowed!

  14. #13

    По умолчанию

    А если условий больше 2х?
    Есть ли тогда какие-нибудь модули для делфи чтобы автоматом их расставлять?

    0 Not allowed! Not allowed!

  15. #14
    Заблокирован
    Регистрация
    11.06.2009
    Адрес
    Северодвинск
    Сообщений
    1,936
    Получено (+/-): 0/0

    По умолчанию

    If () Then
    Else If () Then
    Else ...

    0 Not allowed! Not allowed!

  16. #15

    По умолчанию

    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 smallint I>
    struct pretty_printer;

    #define SMALL_PRETTY_PRINTER(num, string) \
    template<>\
    struct pretty_printer<truenum>\
    {\
        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<falseI>
    {
        static 
    void print(){
            
    print_tens<(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>();


    0 Not allowed! Not allowed!
    3.141592653589793238462643383279502884197169399375 10582097494459230781640628620899862803482534211706 79821480865132823066470938446095505822317253594081 28481117450284102701938521105559644622948954930381 96442881097566593344612847564823378678316527120190 91456485669234603486104543266482133936072602491412 73724587006606315588174881520920962829254091715364 36789259036001133053054882046652138414695194151160 94330572703657595919530921861173819326117931051185 4807446237996274956735188575272489122793818301194

  17. #16

    По умолчанию

    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;
    ?>

    0 Not allowed! Not allowed!
    3.141592653589793238462643383279502884197169399375 10582097494459230781640628620899862803482534211706 79821480865132823066470938446095505822317253594081 28481117450284102701938521105559644622948954930381 96442881097566593344612847564823378678316527120190 91456485669234603486104543266482133936072602491412 73724587006606315588174881520920962829254091715364 36789259036001133053054882046652138414695194151160 94330572703657595919530921861173819326117931051185 4807446237996274956735188575272489122793818301194

  18. #17

    0 Not allowed! Not allowed!
    3.141592653589793238462643383279502884197169399375 10582097494459230781640628620899862803482534211706 79821480865132823066470938446095505822317253594081 28481117450284102701938521105559644622948954930381 96442881097566593344612847564823378678316527120190 91456485669234603486104543266482133936072602491412 73724587006606315588174881520920962829254091715364 36789259036001133053054882046652138414695194151160 94330572703657595919530921861173819326117931051185 4807446237996274956735188575272489122793818301194

  19. #18

    По умолчанию

    Цитата Сообщение от ▬▬☻▬▬ Посмотреть сообщение
    If () Then
    Else If () Then
    Else ...
    У вас тут как я понимаю последовательно,
    а мне по-другому нужно.

    0 Not allowed! Not allowed!

Похожие темы

  1. сохранение в delphi
    от Radek 1 в разделе Программирование
    Ответов: 14
    Последнее сообщение: 10.01.2011, 09:52
  2. залейте плиз Delphi 2009 очень надо!
    от Lepric в разделе Софт
    Ответов: 0
    Последнее сообщение: 29.11.2009, 14:33
  3. Delphi 7+ Windows Vista
    от Dhonny в разделе Software
    Ответов: 4
    Последнее сообщение: 29.10.2009, 10:07
  4. Delphi
    от Mudrec в разделе Софт
    Ответов: 0
    Последнее сообщение: 15.04.2008, 19:26

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •  
Внести пожертвование на развитие!