Школоло / Говнокод #147 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
  10. 10
  11. 11
  12. 12
  13. 13
  14. 14
  15. 15
  16. 16
  17. 17
  18. 18
  19. 19
  20. 20
  21. 21
  22. 22
  23. 23
  24. 24
  25. 25
procedure date_mask(date_edit:TEdit);
var s:string;
    i:integer;
begin
  case length(date_edit.Text) of
  2:begin
      date_edit.Text:=date_edit.Text+'.';
      date_edit.SelStart:=3;
    end;
  5:begin
      date_edit.Text:=date_edit.Text+'.';
      date_edit.SelStart:=6;
    end;
  end;

  if length(date_edit.Text)=10 then
  begin
    for i:=1 to 9 do
    begin
      s:=s+date_edit.Text[i];
    end;
    date_edit.Text:=s;
    date_edit.SelStart:=9;
  end;
end;

чтобы в компонент edit вводить дату)

Запостил: guest guest, (Updated )

Комментарии (0) RSS

Добавить комментарий

Помни, guest, за тобой могут следить!

    А не использовать ли нам bbcode?

    ↑
    8
    ↓