본문 바로가기

Application/Delphi Lecture126

글자가 한글인지 확인 글자가 한글인지 확인 목표:두 바이트의 문자가 한글인지, 한자인지, 또는 그 외에 다른 문자인지 확인하는 함수를 만들려고 합니다. 배경지식:완성형 코드표에서 한글과 한자의 영역은 다음과 같습니다. 완성형 글자 코드의 한글 영역: xxyyh (xx: B0h ~ C8h, yy: A1h ~ FEh) 완성형 글자 코드의 한자 영역: xxyyh (xx: CAh ~ FDh, yy: A1h ~ FEh) 따라서 글자가 한글인지 확인하려면 위의 두 범위 내에 드는지를 채크해 보면 되겠습니다. 참고로 다른 종류의 문자의 영역들은 다음과 같습니다. 'a', '+'같은 1바이트 문자(반각)는 여기에 포함되지 않습니다. 보기에는 같은 글자라도 2바이트 문자(전각)인 'ａ', '＋'와 1바이트 문자(반각)인 'a', '+'는 전.. 2008. 7. 24.
파일, 폴더 복사.. Procedure CopyFiles(Files, DestDir : String); var CopyFiles: TSHFileOpStruct; begin FillChar(CopyFiles, SizeOf(CopyFiles), 0); with CopyFiles do begin Wnd := 0; wFunc := FO_COPY; pFrom := PChar(Files + #0#0); pTo := PChar(DestDir + #0#0); fFlags := FOF_NOCONFIRMATION Or FOF_RENAMEONCOLLISION; fAnyOperationsAborted := False; hNameMappings := nil; lpszProgressTitle := Nil; end; SHFileOperation( Co.. 2008. 7. 24.
폴더 복사후 붙여넣기.. uses ShellApi; function Copy_File(const Src, Dest: String): Boolean; var FData : TSHFileOpStruct; FFrom, FTo: String; begin FFrom := FileOperatorValue(Src); FTo := FileOperatorValue(Dest); FData.fFlags := FOF_ALLOWUNDO OR FOF_NOCONFIRMMKDIR; FData.lpszProgressTitle := PChar( 'File Operation' ); FData.pFrom := PChar( FFrom ); FData.pTo := PChar( FTo ); FData.Wnd := 0; FData.wFunc := FO_COPY; Resu.. 2008. 7. 24.
파일 찾기 procedure TForm1.Button1Click(Sender: TObject); var TheResult : String; begin TheResult := FileSearch('netscape.exe', 'c:\ProgramFiles\Netscape\Communicator\Program; + c:\windows'); if TheResult = '' then ShowMessage('Netscape was not found in this path.') else Label1.Caption := TheResult; end; 2008. 7. 24.

티스토리툴바