blob: d6ea116dce3fd4f7a323c8ad1a79119cc6477edb (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
{ Source provided for Free Pascal Bug Report 3063 }
{ Submitted by "Werner Bochtler" on 2004-04-23 }
{ e-mail: werner.bochtler@zkrd.de }
program scope;
{$ifdef fpc}{$mode delphi}{$endif}
uses Classes;
var
error: string;
begin
with TStringList.Create do try
{ TStringList.Error is protected and is not visible }
error := 'some text';
WriteLn( error );
finally
free;
end;
end.
|
