blob: efde6895ac33c1d16291f85e38e00a0a4c1b4201 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
unit tw21457;
{$mode objfpc}
interface
uses Classes;
Type
TFileStreamHelper = class helper for TFileStream
public
constructor CreateRetry(const AFileName: string; Mode: Word; Rights: Cardinal);
end;
implementation
{ TFileStreamHelper }
constructor TFileStreamHelper.CreateRetry(const AFileName:string; Mode:Word; Rights: Cardinal);
begin
//TODO
//=> internal error 200305103
end;
end.
|
