Moong Story

키워드 설명 예 비고 + 더하기 3 + 2 = 5 - 빼기 3 - 2 = 1 * 곱하기 3 * 2 = 6 div 정수 나누기 3 div 2 = 1 / 실수 나누기 3.0 / 2.0 = 1.5 mod 나누기의 나머지 5 mod 3 = 2 C언어에서 %와 동일

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;

출처 - 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('75-03-15'); ShowMessage('75-03-15  = '+DateTimeToStr(myDate)); myDate := StrToDate('2075-01-01'); ShowMessage('2075-01-01 = '+DateTimeToStr(myDate)); end; } function StrToTime(const S: string): TDateTime; // String과 TDateTime간의 변환 function StrToDateTime(const S: string): TDateTime; function DateTimeToStr(DateTime: TDateTime): string; function Date: TDateTime; function Time: TDateTime; procedure DecodeTime(Time: TDateTime; var Hour, Min, Sec, MSec: Word); function EncodeTime(Hour, Min, Sec, MSec: Word): TDateTime; function DayOfWeek(Dat...

출처 - http://bloodguy.tistory.com/333 TWebBrowser의 OnDocumentComplete에서 아래 한줄 입력 WebBrowser1.OleObject.Document.Body.Scroll := 'no';

now는 현재의 년 월 일 시간을 리턴해주는 함수이고 FormatDateTime('yyyymmddhhnnsszzz', now) 위의 예처럼 하면 String 형으로 리턴 받을수 있다. 위의 예제처럼 하면 밀리초까지 반환된다. 추가로 now의 반환값은 double 형이다.