Delphi/Reference (3) 썸네일형 리스트형 [Delphi] edit에 숫자만 입력하기 procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);begin if Key in ['0'..'9', #25, #08, #13] then else begin Key := #0; ShowMessage('숫자만 입력하세요'); end;end; [Delphi] 날짜 관련 함수 출처 - http://andyadic.tistory.com/entry/%EB%8D%B8%ED%8C%8C%EC%9D%B4-%EB%82%A0%EC%A7%9C%EC%97%90-%EA%B4%80%EA%B3%84%EB%90%9C-%ED%95%A8%EC%88%98%EB%93%A4 uses DateUtils;// 날짜나 시간을 String으로function DateToStr(Date: TDateTime): string;function TimeToStr(Time: TDateTime): string;// 스트링을 날짜나 시간으로function StrToDate(const S: string): TDateTime;- Ex -{ var myDate : TDateTime; begin myDate := StrToDate('7.. [Delphi] 현재 날짜 구하는 함수 now는 현재의 년 월 일 시간을 리턴해주는 함수이고FormatDateTime('yyyymmddhhnnsszzz', now)위의 예처럼 하면 String 형으로 리턴 받을수 있다.위의 예제처럼 하면 밀리초까지 반환된다.추가로 now의 반환값은 double 형이다. 이전 1 다음