본문 바로가기

Application/Delphi Lecture126

파일 사이즈 MB, KB 형태로 나타나기 //파일 용량 구하기 function getFileSizeTostring(intFilesize : integer) : string; var dblTemp : double; strTemp : String; begin dblTemp := intFilesize / 1024; if dblTemp > 1000 then begin dblTemp := dblTemp / 1024; strTemp := FormatFloat('##0.#',dblTemp) + 'MB'; end else begin strTemp := FormatFloat('##0.#',dblTemp) + 'KB'; if strTemp = '0KB' then strTemp := inttostr(intFilesize) + 'Byte'; end; result :.. 2008. 8. 13.
현재 떠 있는 익스플로어 URL 이동 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, SHlObj, ActiveX, SHDocVw, ComObj; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); procedure IENAV(URL: string); private { Private declarations } public { Public declarations } FWebBrowser : IWebBrowser2; end; var Form1: TForm1; implementat.. 2008. 8. 13.
문자열에서 특정 문자 갯수 알아오기 uses strutils; function countword(const source, wordstr : string; index : integer = 1):integer; var i, lensource : integer; begin result := 0; lensource := length(source); i := index; // 일정 인덱스 이후의 문자를 검색. while i0 then inc(result) else break; inc(i); end; end; 2008. 8. 13.
로컬 폰트 정보 가져오기 var DC: HDC; begin DC := GetDC(0); EnumFonts(DC, nil, @EnumFontsProc, Pointer(FontName.Items)); ReleaseDC(0, DC); FontName.Sorted := True; FontName.ItemIndex:=FontName.Items.IndexOf('Arial'); FontSize.ItemIndex:=1; 2008. 8. 13.

티스토리툴바