unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, RegExpr;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
RE : TRegExpr;
ArrayDates : Array[0..5] of String;
i : Integer;
MsgApp : String;
MaskDate : String;
begin
MaskDate := '99/99/9999';
ArrayDates[0] := '01/07/2014';
ArrayDates[1] := '01/07/14';
ArrayDates[2] := '1/7/14';
ArrayDates[3] := '01/07/2014 es la fecha de prueba';
ArrayDates[4] := 'La fecha 01/07/2014 es la fecha de prueba';
ArrayDates[5] := 'La fecha de prueba es 01/07/2014';
RE := TRegExpr.Create;
RE.Expression := '[[0-9]{2}/[0-9]{2}/[0-9]{4}';
for i := Low(ArrayDates) to High(ArrayDates) do
begin
if RE.Exec(ArrayDates[i]) then
begin
MsgApp := Format('Formato de Fecha %s Encontrado en : %s',[MaskDate,ArrayDates[i]]);
MessageDlg(MsgApp,mtInformation,[mbOK],0);
end
else
begin
MsgApp := Format('No encontrado Formato de Fecha %s en : %s',[MaskDate,ArrayDates[i]]);
MessageDlg(MsgApp,mtInformation,[mbOK],0);
end;
end;
RE.Free;
end;
end.