Ignore:
Timestamp:
Aug 4, 2010, 3:36:51 PM (14 years ago)
Author:
george
Message:

Delphi project converted form Lazarus project.

Location:
branches/DelphiToC
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • branches/DelphiToC

    • Property svn:ignore

      •  

        old new  
        66ProjectGroup1.bdsgroup
        77ParseLog.txt
         8lib

  • branches/DelphiToC/Analyze/UPascalParser.pas

    r35 r36  
    11unit UPascalParser;
     2
     3{$MODE Delphi}
    24
    35interface
    … …  
    57uses
    68  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    7   Dialogs, StdCtrls, UPascalSource;
     9  Dialogs, StdCtrls, UPascalSource, FileUtil;
    810
    911type
    … …  
    166168begin
    167169  try
    168     if FileExists(LogFileName) then
     170    if FileExistsUTF8(LogFileName) { *Converted from FileExists*  } then
    169171      LogFile := TFileStream.Create(LogFileName, fmOpenWrite)
    170172      else LogFile := TFileStream.Create(LogFileName, fmCreate);
Note: See TracChangeset for help on using the changeset viewer.