Changeset 489 for Common/UCommon.pas


Ignore:
Timestamp:
Oct 11, 2016, 4:17:20 PM (8 years ago)
Author:
chronos
Message:
  • Modified: Improvements for running with FPC 3.0 and Lazarus 1.6.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • Common/UCommon.pas

    r476 r489  
    108108  Find := FindFirst(UTF8Decode(Path + AFileSpec), faAnyFile xor faDirectory, SearchRec);
    109109  while Find = 0 do begin
    110     DeleteFileUTF8(Path + UTF8Encode(SearchRec.Name));
     110    DeleteFile(Path + UTF8Encode(SearchRec.Name));
    111111
    112112    Find := SysUtils.FindNext(SearchRec);
Note: See TracChangeset for help on using the changeset viewer.