Еще одна проблема с Edit'ом

[Matrix6993]

Я походу вообще чайник в программировании, но Ребят, у меня курсовик сейчас прогорит из за этой ошибки помогите пожалуйста конкретнее! У меня стоит на форме 3 Edita для вода информации, и 1 Button с названием "Ввод". Условия задачи таковы: Если хотя бы в 1 Edit'е ничего не написано, то должно выводить сообщение "Введите пожалуйста данные" и в сообщение кнопочка "ОК". Напишите пожалуйста код и скажите куда его вставить, если вам не трудно конечно, буду очень вам благодарен! Спасибо заранее!

[Serge_Bliznykov]

да много куда можно прицепить такую проверку + сообщение.
ну, раз уж Вы кнопку не делаете недоступной, тогда я бы проверку и реакцию (сообщение) повесил на кнопку.
примерно так:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Trim(Edit1.Text)='' then begin
     Application.MessageBox('Вы не заполнили Edit1', 'Ошибка', MB_ICONERROR or MB_OK);
     Edit1.SetFocus;
     Exit;
  end;
  if Trim(Edit2.Text)='' then begin
     Application.MessageBox('Вы не заполнили Edit2', 'Ошибка', MB_ICONERROR or MB_OK);
     Edit2.SetFocus;
     Exit;
  end;
  if Trim(Edit3.Text)='' then begin
     Application.MessageBox('Вы не заполнили Edit3', 'Ошибка', MB_ICONERROR or MB_OK);
     Edit3.SetFocus;
     Exit;
  end;

  // тут Ваши действия, если все эдиты заполнены
  ShowMessage('Всё заполнено! Что-то делаем...');

[Matrix6993]

Даже при таком раскладе выходит системная ошибка: "Project Project1.exe raised exception class EConvertError with message ''' is not a valid floating point value'. Process stopped. Use Step or Run to continue.". но к сожалению не это: "Вы не заполнили Edit" (( КАК БЫТЬ?

[_Engine_]

Попробуй использовать вместо StrToFloat -> StrToFloat2

 function StrToFloat2(const AStr : String) : Double;
    var FS : TFormatSettings;
    begin
      case Pos('.', AStr) of
        0 : FS.DecimalSeparator := ',';
        else FS.DecimalSeparator := '.';
      end;
      Result := StrToFloat(AStr, FS);
    end;

[xakkkkker]

Я не знаю что у вас не получается, но я только что скопировал код Serge_Bliznykov и все заработало. Смотри вложение.

[Аватар]

В зависимости от настроек в винде в качестве десятичной точки может использоваться запятая или точка. Возможно в этом проблема. Или левый символ в эдите

[Matrix6993]

Хаккер у нас тут delpfi а не pascal

[Пепел Феникса]

Хаккер у нас тут delpfi а не pascal

открою вам секрет, то Делфи.
да и Делфи вырос из object pascal.

[xakkkkker]

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

Хаккер у нас тут delpfi а не pascal

Вы вообще открывали то, что я выложил?
Там проект Win32 на дельфи 7. Там даже не консольное приложение, а приложение с формой.
Да что вам говорить если вы дельфи и паскаль не различаете.

[Marinesku]

Если одно из полей пустое, пишем так:

if Edit1.text='' then
ShowMessage('Введите текст');

Кроме ShowMessage есть и другое - MessageDlg.

Там будет уже не одна (ОК), а две кнопки Yes и No.

Пишем так:

if Edit1.text='' then
begin
if MessageDlg('Были внесены новые слова. Сохранить их?', mtConfirmation, [mbYes, mbNo], 0) = mrYes
then
{пишешь то что должно выполниться при нажатии кнопки Yes}
end;