Subversion Repositories recyclebinunit

Rev

Rev 82 | Rev 88 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 82 Rev 86
Line 88... Line 88...
88 
    function GetPhysicalFile: string; virtual; abstract; // protected, because it will be read by "property"
 88 
    function GetPhysicalFile: string; virtual; abstract; // protected, because it will be read by "property"
89 
  public
 89 
  public
90 
    property PhysicalFile: string read GetPhysicalFile;
 90 
    property PhysicalFile: string read GetPhysicalFile;
91 
    property SourceAnsi: AnsiString read FSourceAnsi;
 91 
    property SourceAnsi: AnsiString read FSourceAnsi;
92 
    property SourceUnicode: WideString read FSourceUnicode;
 92 
    property SourceUnicode: WideString read FSourceUnicode;
93 
    property Source: string read GetSource; // will bei either ANSI or Unicode, sepending on the Delphi version
 93 
    property Source: string read GetSource; // will bei either ANSI or Unicode, depending on the Delphi version
94 
    property ID: string read FID;
 94 
    property ID: string read FID;
95 
    property SourceDrive: Char read FSourceDrive;
 95 
    property SourceDrive: Char read FSourceDrive;
96 
    property DeletionTime: TDateTime read FDeletionTime;
 96 
    property DeletionTime: TDateTime read FDeletionTime;
97 
    property OriginalSize: int64 read FOriginalSize;
 97 
    property OriginalSize: int64 read FOriginalSize;
98 
    property IndexFile: string read FIndexFile;
 98 
    property IndexFile: string read FIndexFile;
Line 2388... Line 2388...
2388 
  {$IFDEF UNICODE}
 2388 
  {$IFDEF UNICODE}
2389 
  result := SourceUnicode;
 2389 
  result := SourceUnicode;
2390 
  {$ELSE}
 2390 
  {$ELSE}
2391 
  result := SourceAnsi;
 2391 
  result := SourceAnsi;
2392 
  {$ENDIF}
 2392 
  {$ENDIF}
- 
 
 2393 
 
- 
 
 2394 
  // Remove #0 at the end. There are some bugs where #0 is added to ANSI/Unicode read paths?! (probably in the ReadVista stuff)
- 
 
 2395 
  // TODO: Instead of using this workaround, fix "SourceUnicode" and "SourceAnsi"!
- 
 
 2396 
  while (Length(result) > 0) and (result[Length(result)] = #0) do
- 
 
 2397 
    result := Copy(result, 1, Length(result)-1);
2393 
end;
 2398 
end;
2394 
 
 2399 
 
2395 
end.
 2400 
end.