델파이 썸네일형 리스트형 2GB 이상 파일크기 구하는 함수 function FileSize(const AFileName: string): Int64; var srData: TSearchRec; FileData: DWORD; SizeHigh, SizeLow: Integer; RetVal: array[0..7] of Byte; begin Result := -1; {$IFDEF MSWINDOWS} FileData := FindFirst(AFileName, faReadOnly, srData); if FileData 0 then Exit; SizeHigh := srData.FindData.nFileSizeHigh; SizeLow := srData.FindData.nFileSizeLow; ZeroMemory(@RetVal[0], SizeOf(RetVal)); Move(Si.. 더보기 [Delphi] Wild Card 문자비교 문자열에서 Wild Card('?': single character, '*': multi character)를 포함하여 비교한다. function MatchString(ASource, APattern: String): Boolean; function _MatchPattern(element, pattern: PChar): Boolean; begin if 0 = StrComp(pattern, '*') then Result := True else if (element^ = Chr(0)) and (pattern^ Chr(0)) then Result := False else if element^ = Chr(0) then Result := True else begin case pattern^ of '*': if _.. 더보기 이전 1 2 다음