读取源代码文件方法

atiger

比如读取平台上一个资源文件（*.pas），然后把里面的一些内容读到外面生成一个网页或什么之类的


var
  lFileName: string;
  lStream: TStream;
begin
    lFileName := 'biz:\a\b\c\d.pas';
    lStream := FileSys.FileSystem.CreateStream(lFileName, SysUtils.fmOpenRead);
    try
      Memo1.Lines.LoadFromStream(lStream);
    finally
      lStream.Free;
    end;
end;