If delphi
Автор Lex luthor задал вопрос в разделе Другие языки и технологии
как задать несколько условий в delphi? и получил лучший ответ
Ответ от Камаз[гуру]
if условие_1 AND условие_2 then begin
...
else
...
end;
Ответ от Ђерзало[гуру]
Использовать логические операторы and (логическое И) , or (логическое ИЛИ) и not (логическое НЕ) . Например:
if (условие 1) and (условие 2)
then действие;
В этом случае действие будет выполняться только при одновременном выполнении условий 1 и 2
Использовать логические операторы and (логическое И) , or (логическое ИЛИ) и not (логическое НЕ) . Например:
if (условие 1) and (условие 2)
then действие;
В этом случае действие будет выполняться только при одновременном выполнении условий 1 и 2
Ответ от TRAINTOWN[новичек]
if (itsok)
{
//эта шняга работает
if (itsok2)
{
//эта тоже
}
else
{
//мда.. .
}
}
else
{
//1 ая шняга не работает, и вторая не будет
}
Эт на сишрап пример.
if (itsok)
{
//эта шняга работает
if (itsok2)
{
//эта тоже
}
else
{
//мда.. .
}
}
else
{
//1 ая шняга не работает, и вторая не будет
}
Эт на сишрап пример.
Ответ от Артём Хощенко[новичек]
cогласен с Терзало.
if (uslovie 1) Or/and (по выбору, в зависимости от нужды - And - обязательно два или более условия, Or - или 1, или 2) (uslovie 2) And/or (uslovie 3) и т. д.
cогласен с Терзало.
if (uslovie 1) Or/and (по выбору, в зависимости от нужды - And - обязательно два или более условия, Or - или 1, или 2) (uslovie 2) And/or (uslovie 3) и т. д.
Ответ от Алексей[мастер]
procedure TForm1.Button1Click(Sender: TObject);
Var
x, y: integer; // Зададим две переменые x, y
begin
x := 2;
y := 7;
// and = и
// xor = или
// ...
if (x = 2) and (y = 4) then
// условие будет возращать false поскольку "y" = 7 а у нас по условию "y" = 4
begin
// Здесь пишем код который будет выполнятся если
// переменая "x" равна двум и переменая "y" равна 4
end else
begin
// Здесь пишем код который будет выполнятся если
// переменая "x" или "y" не соответствует условию
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
Var
x, y: integer; // Зададим две переменые x, y
begin
x := 2;
y := 7;
// and = и
// xor = или
// ...
if (x = 2) and (y = 4) then
// условие будет возращать false поскольку "y" = 7 а у нас по условию "y" = 4
begin
// Здесь пишем код который будет выполнятся если
// переменая "x" равна двум и переменая "y" равна 4
end else
begin
// Здесь пишем код который будет выполнятся если
// переменая "x" или "y" не соответствует условию
end;
end;
Ответ от 3 ответа[гуру]
Привет! Вот подборка тем с ответами на Ваш вопрос: как задать несколько условий в delphi?
спросили в Maserati Pectinoida
Как с помощью Delphi узнать свой внешний IP?
...
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,
подробнее...
Как с помощью Delphi узнать свой внешний IP?
...
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,
подробнее...
Delphi!? Edit1.text, как сделать событие после ввода, тобишь после нажатия <enter>! (паясню в скринах)?
Нужно добавить обработчик события OnKeyDown для TEdit и прописать в него примерно следующий код:
подробнее...
спросили в Inheritance VRR
помогите с созданием калькулятора в delphi...
Можешь просто:
/ процедура обработки события KeyPress
procedure Edit1.KeyPress(var
подробнее...
помогите с созданием калькулятора в delphi...
Можешь просто:
/ процедура обработки события KeyPress
procedure Edit1.KeyPress(var
подробнее...
калькулятор в delphi 7
if k<>0 then
Значение k какое? Что с 0 сравнивается?
s1:=StrToInt(Edit1.Text);
подробнее...
Ответ от 3 ответа[гуру]
Привет! Вот еще темы с похожими вопросами:
Delphi 7 showmessage
ShowMessage() это процедура.
Попробуйте использовать функцию MessageBox() класса
подробнее...
Delphi!? Как разбить строку на строки (внутри подробней)?
Разбиение на слова:
i := 1;
j := 1;
flag := false;
For i := 1 to
подробнее...
спросили в User ba east User delphi
Delphi, как пользоваться функцией InputBox?
Так как написано в стандартной справке.
А справка писана не для Пушкина, а для тебя.
подробнее...
Delphi, как пользоваться функцией InputBox?
Так как написано в стандартной справке.
А справка писана не для Пушкина, а для тебя.
подробнее...
как использовать progressbar в delphi? Что бы при нажатие на кнопку проходил прогрессбар а потом появлялось сообщение!?
ProgressBar1. Position:=5;
min -минимальное
max - максимальное
как
подробнее...
Delphi и FireBird
Во-первых, могут получаться несколько инсертов подряд, потому как SQL.Clear я что-то в твоем коде
подробнее...
спросили в Gett GIAT
возможно ли использование в Delphi 7 операторов GOTO ? если можно, то как?
Да
Пример:
var
i : Integer;
label
GotoLabel;
begin
подробнее...
возможно ли использование в Delphi 7 операторов GOTO ? если можно, то как?
Да
Пример:
var
i : Integer;
label
GotoLabel;
begin
подробнее...
Delphi. Функция findwindow();
procedure TForm1.Button1Click(Sender: TObject);
var
hForFindWin: hWnd;
WinClass,
подробнее...
спросили в Пехов
Вопрос по Delphi 7. Решил разобраться с case
Case-работает аналогично оператору If
пример
Код:
i:byte;
i:=1;
подробнее...
Вопрос по Delphi 7. Решил разобраться с case
Case-работает аналогично оператору If
пример
Код:
i:byte;
i:=1;
подробнее...
Множества (Delphi)
var A, B, D : Set of Char;
C : Char;
begin
...Заполнить нужно! Но как заполнить не
подробнее...
Ip адрес 212.91.215.101 чей?
inetnum: 212.91.214.0 - 212.91.215.255
netname: POL-DIALUP-NET
descr: POL DialUp
подробнее...