DevHyun

예를들어 C:\TEMP Directory가 있으면 제거, 없으면 생성하는 작업을 한다면? Procecure TForm1.Button1Click(Sender: TObject); begin //if DirectoryExists('확인하고자 하는 경로') then if DirectoryExists('C:\TEMP') then begin //RemoveDirectory('경로'); RemoveDirectory('C:\TEMP'); end else begin //CreateDir('경로'); CreateDir('C:\TEMP'); end; end;

* Delphi XE2 버전 이후 버전에서만 System.Zip 사용 가능! 이전 버전에서는 상용 컴포넌트(유료)를 사용해야 함 예를들어 C:\TEMP 폴더를 C:\TEMP.zip으로 압축하고 싶을때는 다음과 같이 사용! 파일 자체로만 압축은 안되는듯? 조금 번거롭지만 폴더만 압축가능한 것 같다. uses ... , System.Zip procedure TForm1.Button1Click(Sender: TObject); begin //TZipFile.ZipDirectoryContents('생성할 압축파일 명을 포함한 경로', '압축 대상 폴더 경로'); TZipFile.zipDirectoryContents('C:\TEMP.zip','C:\TEMP'); end;

파일 copy나 move 후 윈도우 탐색기에서 특정 경로의 directory를 오픈하고 싶을때 uses ..., shellapi ... .. . procedure TForm1.Button1Click(Sender: TObject); begin ShellExecute(Handle, 'open', PChar('경로'), nil, nil, SW_SHOWNORMAL); end;

문자열이 숫자로만 이루어져있는지 판단하는 함수는 TryStrToInt를 사용하면 된다! * SysUtils에 선언되어 있는 내장함수임! function TryStrToInt(const S: string; out Value: Integer): Boolean; 판단하고자 하는 String 변수 S가 문자면 true , integer 변수 Value에 값을 넣어주고 숫자면 false 값 return! uses SysUtils ... procedure Tform1.test; var value : integer; begin if TryStrToInt(Edit1.Text, value ) then begin showemssage('숫자'); end else begin showemssage('문자'); end; end..

1. form create 이벤트에 KeyPreview := True; 추가하기 procedure Tfrorm1.FormCreate(Sender: TObject); begin KeyPreview := True; end; 2. Object inspector에서 Tform1 - keypreview properties를 true로 변경 간단 해결!