Ребята,помогите.

[Alexij]

Допустим у меня на форме 3 эдита,1-й эдит ввод переменной "а", 2-й эдит ввод переменной "б", а третий допустим выводит сумму этих переменных, подскажите как в листинге написать исключительную ситуацию,на то что если по ошибке пользователь не введет одну из переменных, чтобы выходило сообщение "введите переменную"?Заранее спасибо!

[Vol666]

на кнопку посчитать ставишь такое условие:
if (Length(Edit1.Text)=0) or (Length(Edit2.Text)=0) then
begin
Edit3.Text:='В поля не введены числа';
end
else
begin
//Что должна делать программа...
end;

[puporev]

Или if Edit1.text=''

[Vol666]

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

Или if Edit1.text=''

непрокатит если поставлю пробел и ещё надо поставить ввод только числовых данных NumbersOnly:=true;

[puporev]

непрокатит если поставлю пробел

s=' '; это уже не пустая строка, даже если ты его не видишь.

[Vol666]

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

Или if Edit1.text=''

была пустая

[puporev]

была пустая

А я о чем? Если строка пустая, то ее длина равна нулю, т.е. это тоже самое что у тебя, только букаф меньше.

[Vol666]

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

А я о чем? Если строка пустая, то ее длина равна нулю, т.е. это тоже самое что у тебя, только букаф меньше.

Я говорю если в едит запить пробел то это уже будит считаться символом.

[puporev]

До тебя плохо доходит?
Ты написал
if (Length(Edit1.Text)=0) or (Length(Edit2.Text)=0) then
я предложил
if Edit1.Text='' or Edit2.Text='' then
Чего тебе еще надо? Да и не тебе я это писал.

[puporev]

А если хочешь разрешить правильный ввод чисел в Эдит, то надо сделать такую процедуру, тогда тебе просто не удастся неправильно ввести переменную.

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
case Key of
  #8,'0'..'9' :  ; // цифры и <Back Space>
       '.',',': // разделитель целой и дробной частей числа
                begin
                  if Key <> DecimalSeparator then
                  Key := DecimalSeparator; // заменим разделитель на допустимый
                  if Pos(DecimalSeparator,StringGrid1.Cells[StringGrid1.Col,0]) <> 0
                  then Key := Chr(0); // запрет ввода второго разделителя
                end;
           '-':    // минус можно ввести только первым символом,
                // т.е. когда ячейка пустая
                if Length(StringGrid1.Cells[StringGrid1.Col,0]) <> 0
                      then Key := Chr(0);

        else   // остальные символы запрещены
               key := Chr(0);
    end;
end;