Приведение даты
|
procedure TForm1.MaskEdit1Exit(Sender: TObject); var y, m, d : word; begin decodedate(strtodate(maskedit1.text) + 11, y, m, d); maskedit2.text := inttostr(m) + '/' + inttostr(d) + '/' + inttostr(y); end; |
[001400]
Советы по Delphi
|
procedure TForm1.MaskEdit1Exit(Sender: TObject); var y, m, d : word; begin decodedate(strtodate(maskedit1.text) + 11, y, m, d); maskedit2.text := inttostr(m) + '/' + inttostr(d) + '/' + inttostr(y); end; |
[001400]