[카테고리:] 델파이 사용법
Delphi, C++ Builder IDE 보완용 GExpets
GExperts 의 주소는 아래와 같으며. Opensource 이므로 누구나 사용 가능합니다. www.gexperts.org 에서 내용을 확인하시고 다운 받으시면 됩니다. 사용법이나 설치 방법, 기타 강좌의 내용이 올라 왔습니다. www.delmadang.com 에서…
어떤 Grid를 사용한것인가? 내가 추천하는 Grid..
여기서는 DevExpress팩 이나 TMS팩등 Pack을 다루는 것이 아니라 그리드 자체만을 따질것이다. 모두 내가 사용해본 그리드이며, 한번이상 프로젝트에 사용해본 그리드들이다. 1. 퀀텀 그리드. 사용법은 물론 그…
ListView에서 선택된 Item으로 Scroll 하기.
오늘 후배가 물어봤다. 리스트뷰에서 Items중 하나를 선택 했는데, 도대체 스크롤이 안됩니다. 어찌해야 하나여? 흠… 잘.. 이라고 말해줬다.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 |
procedure TForm2.Button2Click(Sender: TObject); var vPoint: TPoint; begin ListView1.ItemIndex := StrToInt(Edit1.text); vPoint := ListView1.Items[StrToInt(Edit1.text)].GetPosition; ListView1.Scroll(vPoint.X, vPoint.Y - ListView1.Height div 2); ListView1.SetFocus; end; procedure TForm2.ListView1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin If ListView1.GetItemAt(X, Y) <> nil then caption := ListView1.GetItemAt(X, Y).caption; end; |
화일 사이즈 알아내기…. 2가지…
화일 사이즈 알아내기…. 2가지 입니다. 2가지중 두번째가 속도가 조금 빠릅니다.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 |
Function Get_FileSize(FileName: String): DWord; var FH: THandle; FI: TByHandleFileInformation; begin Result := 0; FH := FileOpen(FileName, fmOpenRead + fmShareDenyNone); try if FH <> INVALID_HANDLE_VALUE then begin if not GetFileInformationByHandle(FH, FI) then Exit; Result := FI.nFileSizeLow; end; finally CloseHandle(FH); end; end; |
두번째 꺼… 이게 조금 더 빨라요.. 당연한거지마..
|
1 2 3 4 5 6 7 8 9 10 11 12 13 |
Function Get_FileSize(FileName: String): DWord; Var FH: Integer; Begin Result := 0; FH := FileOpen(FileName, fmOpenRead + fmShareDenyNone); Try if FH <> INVALID_HANDLE_VALUE then Result := GetFileSize(FH, nil); Finally FileClose(FH); End; end; |
IP를 이용한 컴퓨터 이름 알아내기 <-- 어딘가에서 가져 왔는데 ㅜ.ㅜ
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 |
uses WinSock; function TForm_Main.GetIPName(IP: String): String; var WSAData: TWSAData; sin: TSockAddrIn; pHost: PHostEnt; begin WSAStartup($0202, WSAData); sin.sin_family := AF_INET; sin.sin_addr.S_addr := Inet_Addr(pChar(IP)); pHost := gethostbyaddr(Pointer(@sin.sin_addr), 4, PF_INET); if pHost <> nil then begin Result := pHost^.h_name; end else begin Result := ''; end; WSACleanup; end; |
IOSTAT 관련 정보
iostat Note: 다음 내용은 AIX V4.1 이상에서는 검증되지 않은 내용입니다． 다음에 설명되는 내용은 베리 사드(Barry Saad)씨가 /AIXtra(1) 1994 년 1/2월호에 기고한 “Performance Tuning: A Continuing Series — The iostat Tool”의 내용에 기초한 것이다． 소개 여기서는 ”iostat” 를 이용하여 I/O 부시스템과 CPU 의 병목을 어떻게 찾아내는가에 대한 내용을 설명할 것이다． ”iostat” 는 커널의 주소공간을 표본추출하고， 매 시각 틱(2) 마다 새롭게 되는 여러 카운터들(3) 로부터 자료를 뽑아 작업을 한다． 이의 결과들－tty, CPU와 입출력 부시스템의 활동들을 망라함－은 매초단위로 …
ORACLE 데아타 세로 출력을 가로로 출력되게 하는 예제
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 |
Select Doff_No, SL_BR, LTRIM(Max(SYS_CONNECT_BY_PATH(output_code,',')),',') ,Count(1) From ( SELECT ROW_NUMBER() OVER ( PARTITION BY Doff_No, SubStr(SL_BR,2,1) ORDER BY Doff_No, SubStr(SL_BR,2,1) ) Rn, Doff_No, SubStr(SL_BR,2,1) SL_BR, output_code From SL_ActualRoll Where Doff_No Like 'J182%' and OutPut_Code is not Null ) Where SL_BR is Not Null Start With Rn = 1 CONNECT bY Prior Doff_NO = DOFF_NO /* 그룹 걸넘들이 다 and로 묶어야 한다. */ And Prior SL_Br = SL_BR and Prior Rn = Rn - 1 Group By Doff_No, SL_BR |
문자열 관련 몇가지 함수
요즘에 델파이를 배우는 분들 중에는 잘 모르시는 분들이 많을꺼 같아서 올립니다. 설명은 너무 쉬워 생략하고 혹 모르신다면, 한번 해보세요. Format(‘%*d’,[10,5] ) // >_________5<…
www.주소를 IP알아내고 Ping 날려보기…
말그대로 입니다. 물론 인디를 써도 됩니다. 근데. 웬지 말들고 싶어서 짜집기 해서 맹글어 봤습니다. 출처는 이곳 저곳에서 짜집기 한것으로 꽤 오래전에 만든거라.. ㅜ.ㅜ 죄송 합니다….
문자열을 구분자로 쪼개어 StringList에 넣기( ExtracString 대체 품 )
안녕하세요..^^ ( 속도가 느리다고 해서리 조금 수정해보았습니다. ) 흠.. 질답란에도 그렇고 가끔 보면.. Comport나 기타 문열로 주구장창 들어온 내용을 구분자를 이용해서 나누려고 할때 ExtracStrings를 사용합니다….
최신 댓글