Советы по Delphi


Автоматический формат даты в компоненте Edit


    PROCEDURE TForm1.Edit1Exit(Sender: TObject);
BEGIN
IF Edit1.Text<>'' THEN BEGIN TRY StrToDate(Edit1.Text); EXCEPT Edit1.SetFocus; MessageBeep(0); raise Exception.Create('&quot'+Edit1.Text +'&quot - некорректная дата'); END{try}; Edit1.Text:=DateToStr(StrToDate(Edit1.Text)); END{if}; END;
[000015]




- Начало -  - Назад -  - Вперед -



Книжный магазин