Проверка текста в Edit

[misher]

Как проверить есть ли текст в Edit, и если его там нет, то вывести сообщение, а если оно там есть просто пропустить дальше?
Прикиинул такой код но он не рабочий:

if Edit1.Text('') then
showmessage('the message');

[_-Re@l-_]

Вот так:

If Edit1.Text = '' Then ShowMessage('Message');

Или так:

If Length(Edit1.Text) = 0 Then ShowMessage('Message');

[Alexei91]

if Edit1.Text =  EmptyStr then
showmessage('the message');

EmptyStr - что в Edit пусто.
P.S.
_-Re@l-_

If Edit1.Text = '' Then ShowMessage('Message');

не будет работать,если в строке будет,например,2 пробела подряд.

[misher]

Спасиб за помощь.

[misher]

Думал это поможет, но все равно ошибка "is not a valid floating point value из-за чего она может быть?(извините за нарушение)

[_-Re@l-_]

ну ка покажи код...

	
	

			
				if Edit1.Text =  EmptyStr then
showmessage('the message');
			
		

Соответственно.Проверил - если поставить тупо несколько пробелов тоже ничего не выдаёт.
Так что, видать придётся вручную от 1 до Length(Edit1.Text) проверять все символы.

[Stilet]

EmptyStr - что в Edit пусто.

Опа! Чет новенькое. Это в какой Делфе такое счастье?
Я то, наивный, думал что проверяют на пустоты так:

If trim(Edit1.Text) = '' Then ShowMessage('Message');

NarkoIII@

А тебе ярекомендую использовать DEF функции: StrToIntDEF,StrToFloatDEF, которые ошибку непонятную не выкидывают, а
подставляют значение по умолчанию

[misher]

это мне? если да, то вот

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, StdCtrls;

type
  TForm3 = class(TForm)
    Image1: TImage;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
  function fmultiply(f , s , a : currency): Boolean;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

{$R *.dfm}
  function TForm3.fmultiply(f, s, a: currency): Boolean;
begin
if f / s = a
then result := true
else result := false;
end;

procedure TForm3.Button1Click(Sender: TObject);
begin
if Edit1.Text =  EmptyStr then
showmessage('сообщение');
if Edit2.Text =  EmptyStr then
showmessage('сообщение');
if Edit3.Text =  EmptyStr then
showmessage('сообщение');

SendMessage(FindWindow(nil, 'Действия с десятичными дробями'), WM_SETTEXT, 0, Lparam(LpCtStr('Ответ')));
if fmultiply(StrToFloat(Edit1.Text) , StrToFloat(Edit2.Text) , StrToFloat(Edit3.Text))

then ShowMessage('Правильно')
else ShowMessage('Неправильно');

end;


procedure TForm3.FormCreate(Sender: TObject);
begin
DecimalSeparator  := '.';
end;

procedure TForm3.KeyPress(Sender: TObject; var Key: Char);
begin
if Key = Chr(13) then
Button1.Click;
end;

end.

[Lemo]

If length(Edit1.Text)=0 Then ShowMessage('Trololo);

[Mad_Cat]

2lemo а если там 2 пробела???