fpcsrc/tests/webtbs/tw2927.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

{$mode objfpc}

uses
  Classes;

procedure ReadTest(const p: Pointer); overload;
begin
end;

procedure ReadTest(const p: TStream); overload;
begin
end;

var
  f: TFileStream;
begin
  ReadTest(f);
end.