티스토리
관련 서비스
  • Symbols스토리 홈바로가기바로가기
  • 브런치브런치스토리바로가기바로가기
  • 카카오스토리카카오스토리바로가기바로가기

웃으세요 제발 ^^;...theF..
검색하기
블로그 홈

블로그 홈

웃으세요 제발 ^^;...theF..

thef.tistory.com/m
신고

그대의 웃음은 세상의 희망입니다..

구독자
0
방명록 방문하기
구독하기

주요 글 목록

  • 현재 날짜/시간형에.. 초를 더한 날짜/시간을 계산해주는 함수가있나요? var AA: TDateTime; begin AA := Now(); // 1시간 더하기 AA := AA + (1/24); // 1분 더하기 AA := AA + (1/(24*60)); // 1초 더하기 AA := AA + (1/(24*60*60)); end; 살펴보면 규칙이 보일겁니다. TDateTime은 하루를 1로 계산합니다. 따라서, 1시간은 1일/24시간 1분은 1일/(24시간 * 60분) 1초는 1일/(24시간 * 60분 * 60초) 가 되는 겁니다. 궁금 님이 쓰신 글 : : 델파이에서 now 해서 시간을 찍어보면 : : 2006-10-10 오전 07:08:11 이렇게 나오는데 여기에 초를 더하면 시간을 알아서 계산해주는 함수가 있나요? : : 수동으로 하려면 오전인지 오후인지 판단해서 24시간.. 공감수 0 댓글수 1 2022. 10. 31.
  • key code { Virtual Keys, Standard Set } {$EXTERNALSYM VK_LBUTTON} VK_LBUTTON = 1; {$EXTERNALSYM VK_RBUTTON} VK_RBUTTON = 2; {$EXTERNALSYM VK_CANCEL} VK_CANCEL = 3; {$EXTERNALSYM VK_MBUTTON} VK_MBUTTON = 4; { NOT contiguous with L & RBUTTON } {$EXTERNALSYM VK_BACK} VK_BACK = 8; {$EXTERNALSYM VK_TAB} VK_TAB = 9; {$EXTERNALSYM VK_CLEAR} VK_CLEAR = 12; {$EXTERNALSYM VK_RETURN} VK_RETURN = 13; {$EXTERNALSYM V.. 공감수 0 댓글수 0 2015. 1. 2.
  • 델파이 문자열 공백 제거.. StringReplace(DataBuf,' ','',[rfReplaceAll]) ; -> 문제가 가끔 있다. 내가 경험한 빡치는 상황은 텍스트 파일을 while 문으로 한 줄씩 읽고 해당 줄의 공백을 제거 하는건데.. 공백 제거가 안된다. ㅜㅜ 버튼 하나 만들어서 while 안쓰고 하면 잘 된다.. 검색해 봤다.while 문으로 공백을 제거하는 간단한 코드가 있다. 존경스럽다. 원문링크 function gfDel32(s: string): string; begin while not(pos(' ',s)=0) do delete(s,pos(' ',s),1); result:=s; end; 아니면 자체 내장함수인 StringReplace 을 사용하면 str := StringReplace(str1, ' ', '', .. 공감수 2 댓글수 0 2014. 7. 23.
  • 델파이7 lib 목록 lib 목록 - Tled, Tindicator, logmeter,scope.... 공감수 0 댓글수 0 2014. 7. 14.
  • 델파이7 퀵레포트(QuickReport) 설치하는 방법 Component 메뉴 - Install Package - Add 델파이 bin 폴더 안에 dclqrt70.bpl 을 선택 끝. 공감수 0 댓글수 0 2014. 7. 14.
  • 델파이 7에서 TServerSocket, TClientSocket 컴포넌트 사용하기 Component -> Install Packages 델파이 7 설치 폴더에 bin dclSockets70.bpl -> add 끝 . 공감수 0 댓글수 0 2014. 7. 14.
  • findwondow 함수 var aHandle : THandle; PID : Integer; aHandel := FindWindow ('TfrmMain',nil); //첫번째 인자는 클래스명(델파이 제작프로그램) aHandel := FindWindow('NotePad',nil); //메모장등은 프로그램명만 또는aHandel := FindWindow(nil,'제목 없음 - 메모장'); //캡션만또는aHandel := FindWindow('NotePad','제목 없음 - 메모장'); //둘다 알때 공감수 0 댓글수 0 2014. 1. 10.
  • 경과시간 출력 procedure TForm1.Button1Click(Sender: TObject); var time1,time2,ptime, msecday : TTimeStamp; //msecday1 : Double; itmp1, tmp1,tmp2,tmp3, tmp4,tmp5,tmp6,tmp7 : integer; begin //msecday1 := (1/(24*60*60)); time1 := DateTimeToTimeStamp(StrToDateTime('2000-02-02 02:50:00')); time2 := DateTimeToTimeStamp(StrToDateTime('2000-02-03 05:51:20')); ptime.Time := time2.Time - time1.Time; ptime.Date := time2.. 공감수 1 댓글수 1 2013. 7. 8.
  • 윈도우7 설치 후 델파이7 도움말 사용법. 꽤 뒤늦게 윈도우7을 사용하게 되었는데,(그것도 HOME 버젼 ㅜㅜ)뭐이리 복잡한지...쯧. 델파이 설치하는데 프로그램폴더가 뭔가 애매해서 D:\Borland 폴더에 설치했다.그리고 실행하니 호환안된다는 겁주는 메시지 출력!! 무시하고 실행!! 잘된다... ^^; 든데, Ctrl+Alt+F11 키가 안먹는다... 노트북 기능키 문제라 생각되어지는데, 해결책을 찾아 봐야지... 또하나. 도움말 표시가 되지 않는다. 그래서 검색했더니 "윈도우7에는 Winhelp32.exe가 없습니다. 요걸 깔아줘야 합니다. http://www.microsoft.com/downloads/en/details.aspx?FamilyID=258aa5ec-e3d9-4228-8844-008e02b32a2c 에서 업데이트를 하시면 정상적.. 공감수 0 댓글수 0 2013. 6. 26.
  • 시스템종료, 재시작, Windows 9x/NT/Me/2000/XP .. function MyExitWindows(RebootParam: Longword): Boolean; var TTokenHd: THandle; TTokenPvg: TTokenPrivileges; cbtpPrevious: DWORD; rTTokenPvg: TTokenPrivileges; pcbtpPreviousRequired: DWORD; tpResult: Boolean; const SE_SHUTDOWN_NAME = 'SeShutdownPrivilege'; begin if Win32Platform = VER_PLATFORM_WIN32_NT then begin tpResult := OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES or TOKE.. 공감수 0 댓글수 0 2012. 4. 19.
  • PLC 음수 가지고 오기. PLC 측에서 PC로 1워드로 전송되는 데이타의 음수/ 양수 구분은 다음과 같이 구분됩니다. HEX 값 : 0 ∼ 7FFF => 양수 ( 십진수 : 0 ∼ 32767 ) HEX 값 : 8000 ∼ FFFF => 음수 ( 십진수 : 32768 ∼ 65535 ) => PLC Mointoring DATA ( -32768 ∼ -1 ) PLC측의 데이타를 PC에 표시하기 위해서는 1) 전송되어진 데이타 ( EX) D1 => 16진수) 를 십진수로 전환 하시고 2) 십진수로 전환된 데이타값이 32767을 넘는지 아니지를 비교하여 0 < 전송데이타의 십진수 PLC로의 전송은 4번의 반대로 하시면 될것 같은데요. 출처 : http://blog.naver.com/yps10th?Redirect=Log&logNo=10003.. 공감수 3 댓글수 0 2012. 2. 13.
  • 비트통신법 알려주세요~ re] 비트통신법을 알려주세요...ㅡ..ㅡ 안녕하셔요... 음..통신이 시리얼(rs232) 이죠.. 그렇다면 비트 또는 니블 통신이라는 것도 결국 바이트 통신과 같습니다. 다만 바이트는 상대편이 한 바이트를 가지고 하나의 정보를 가지는것이고 비트는 한바이트를 가지고 8개의 각각 다른 정보를 가지는것이고 니블은 한바이트를 가지고 2개의 각각 다른 정보를 가지는 것이랍니다. 그럼..예를 들어 볼까요... 1. 비트 통신 비트는 주로 DI,DO등의 접점에 많이 쓰이죠.. 한바이트 가지고 8개의 DI,DO를 제어할수 있어닌깐 통신량이 그만큼 줄어들겠죠.. 예를 들어 8개의 램프가 있고 이걸 켜고 싶다면(비트로 매핑되어 있을 경우) 실제 데이터는 한바이트만 쓰여지죠.. const BitFieldOn : array.. 공감수 0 댓글수 0 2011. 4. 6.
    문의안내
    • 티스토리
    • 로그인
    • 고객센터

    티스토리는 카카오에서 사랑을 담아 만듭니다.

    © Kakao Corp.