работа с Tlabel

[Аббат]

Помогите с проблемой.
Надо задать функцию, чтобы при проверки поля Lable смотрели, если текста или символов нет значит можно вставлять текс, а если есть то нет, пака не пройдёт очистка

[Квэнди]

if label1.caption='';
if label1.caption<>'';

[Аббат]

Огромный благодар

[Аббат]

Блин, всё равно не пашет, может из-за того что я работаю со сканером штрих кода?

[Квэнди]

Исходный код в студию )

[Аббат]

unit Shtrih1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TfrmShtrih = class(TForm)
Label1: TLabel;
Edit1: TEdit;
Clear: TButton;
Button1: TButton;
procedure Edit1Change(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure ClearClick(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmShtrih: TfrmShtrih;
implementation
{$R *.dfm}
procedure TfrmShtrih.Edit1Change(Sender: TObject);
begin
Label1.Caption:=Label1.Caption+Edit 1.Text;
Edit1.Text := '';
end;
procedure TfrmShtrih.FormShow(Sender: TObject);
begin
FocusControl(Edit1);
end;
procedure TfrmShtrih.ClearClick(Sender: TObject);
begin
Label1.Caption := '';
end;
end.

Dn nfr djn

[Квэнди]

И что необходимо сделать ? подробно опишите

[Аббат]

При сканировании штрих кода надо чтобы он заноси цифры в поле Lable1, но така как сканер подключён через USB порт его не получается заьлокировать программно и он вбивает код за кодом без перерыва.
Надо написать такую функцию, которая проверяла поле Lable1, если поле уже забито, значит надо запретить ввод следующих значений до того момента пока поле не будет очещенно

[Квэнди]

while lael1.caption<>'' do
begin
application.ProcessMessages;
end;
продолжаем ввод данных

[mrandrey]

а для тебя лучше так:

procedure TfrmShtrih.Edit1Change(Sender: TObject);
begin
if(Label1.Caption='')or(Edit1.Text< >Label1.Caption)then
begin
Label1.Caption:=Label1.Caption+Edit 1.Text;
Edit1.Text := '';
end;
end;

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

//или я чегото не понял