TEdit

← →
an-na2002 (2004-03-02 04:24) [0]

Как проверить есть ли данные в TEdit, а если нет выдать сообщение об ошибке.

← →
Defunct (2004-03-02 04:37) [1]

If Edit.Text="" Then ShowMessage("Ошибка");

← →
Kyrt (2004-03-02 04:42) [2]

IF Edit1.Text = "" then begin
ShowMessage("Error");
Exit;
end;

а лучше спользую raise()

← →
TButton (2004-03-02 04:48) [3]

if Length(Edit1.Text)=0 then begin ShowMessage("Blad!"); Halt(0); end;

← →
Defunct (2004-03-02 04:50) [4]

> Halt(0);

Жестоко

← →
TButton (2004-03-02 04:56) [5]

>Жестоко
а нефиг)

← →
dr Tr0jan (2004-03-02 07:57) [6]

Вначале изучи Паскаль, а затем VCL.