paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 05:28:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

* added comment what the bug is

Browse Source
This commit is contained in:
peter 2004-12-15 15:46:59 +00:00
parent 9df85a7290
commit faf7082d45
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
tests/webtbs/tw3063.pp
View File

@ -3,14 +3,15 @@
{ e-mail: werner.bochtler@zkrd.de }
program scope;
{$mode delphi}
{$ifdef fpc}{$mode delphi}{$endif}
uses classes;
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