Спасибо обязательно проверю и отпишусь!
Чтоб не создавать новую тему хотел уточнить вот что:
Как прервать выполнение процедуры? Если я не путаю то это делается через Break, примерно так:
Код:
procedure TForm3.N3Click(Sender: TObject);
begin
if Length(Edit1.Text) = 0 then
begin
ShowMessage('В поле ввода нет текста!');
Break;
End;
end;
lmikle: За отсутсвие тегов следующий раз будет бан!