запрет на ввод Edit не даты (Delphi)

[tarasov_88]

Добрый день, как в процедуру:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
     if not (Key in [#8, '0'..'9', '.']) then
     begin
     ShowMessage('Недопустимый символ: '+ Key +#13#10+'Введите дату в формате: 01.01.2012');
     Key := #0;
     end
end;

Добавить запрет на Ввод не даты(в формате xx.xx.xxxx), а например просто цифр?

Ну или другим путем, что если не получается извлечь из Edit дату, то выводить ShowMessage ....

[whatever]

Может проще воспользоваться TDateTimePicker ?

[tarasov_88]

Сообщение от whatever

Может проще воспользоваться TDateTimePicker ?

Я в Edit свою дату ввожу,отличную от сегодняшней. Я не знаю как TDateTimePicker воспользоваться в этом случае

понял о чем вы, но уже весь код на Edit завязан, эта только его маленькая часть.

[whatever]

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    DateTimePicker1: TDateTimePicker;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  showmessage(datetostr(DateTimePicker1.DateTime));
end;

end.

problem?

[tarasov_88]

Yes, I have a BIG problem with using TDateTimePicker )

unit Unit4;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DateUtils, ExtCtrls, ComCtrls, Mask;

type
  TForm4 = class(TForm)
    GroupBox5: TGroupBox;
    GroupBox4: TGroupBox;
    GroupBox3: TGroupBox;
    GroupBox1: TGroupBox;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    Edit12: TEdit;
    Edit13: TEdit;
    Edit14: TEdit;
    MonthCalendar1: TMonthCalendar;
    Button1: TButton;
    DateTimePicker1: TDateTimePicker;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
          private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;
    t:boolean;
    d:TDateTime;
    j:Byte;
    i:Byte;
    f:TextFile;
    H:string;
    Key: Char;
    implementation

{$R *.dfm}

procedure TForm4.Button1Click(Sender: TObject);
 begin
  AssignFile(f, '2A.txt');
  Rewrite(f);
  for j := 0 to ComponentCount - 1 do
    if Components[j] is TEdit then
        WriteLn(f, (Components[j] as TEdit).Text);
  CloseFile(f);
  Form4.FormCreate(Sender);
end;

procedure TForm4.FormCreate(Sender: TObject);
begin
t:=false;
  AssignFile(f, '2A.txt');
  ReSet(f);
  for j := 0 to ComponentCount -1  do
    if Components[j] is TEdit then
    begin
           ReadLn(f, H);
          (Components[j] as TEdit).Text:=H;
          (Components[j] as TEdit).MaxLength:=10;

           if (TryStrToDate((Components[j] as TEdit).Text,d)
           and (d - date <= 14)) or ((Components[j] as TEdit).Text='') then
		   begin
		       (Components[j] as TEdit).color:=clred;
			      t:=true;
            end
            else
           (Components[j] as TEdit).color:=clwindow;
	      end;
	         if t then
         TPanel(Application.MainForm.FindComponent('Panel13')).Color:=clred else
         TPanel(Application.MainForm.FindComponent('Panel13')).Color:=clwindow;
         CloseFile(f);
end;


procedure TForm4.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
     if not (Key in [#8, '0'..'9', '.']) then
     begin
     ShowMessage('Íåäîïóñòèìûé ñèìâîë: '+ Key +#13#10+'Ââåäèòå äàòó â ôîðìàòå: 01.01.2012');
     Key := #0;
     end;
end;
end.

Единственное,что осталось сделать это добавить контроль ввода даты в некоторые Edit. Чтобы не было вот такого вот:

[Sparky]

ну тогда не edit, а maskedit, документацию почитайте про него, там можно маску задать. Хотя не поняла почему нельзя использовать DateTimePicker

[tarasov_88]

Сообщение от Sparky

ну тогда не edit, а maskedit, документацию почитайте про него, там можно маску задать. Хотя не поняла почему нельзя использовать DateTimePicker

Ну вот уже почти все сделано,посмотрите пост выше. Неужели переделывать..

[Sparky]

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

[tarasov_88]

Сообщение от Sparky

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

Проблема в том,что я не программист, а инженер-электрик. Захотел сам программу для себя сделать, и чтоб что-то переделать, для меня опять неделя понадобится,как для этого кода ))

Если переделывать,то как? не могли бы вы в моем показать это,хоть немного.

в частности где и как задается маска?

[Sparky]

почитайте про MaskEdit, там все довольно прозрачно... например вот http://www.beluch.ru/progr/100comp/3_3_3.htm