paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-01 22:50:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Actually write error message if there is one

Browse Source
This commit is contained in:
Michaël Van Canneyt 2022-06-19 17:22:07 +02:00
parent 7335f0c1d6
commit a0f69557cc
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/fcl-web/examples/websocket/client/wsclient.lpr
View File

@ -122,7 +122,8 @@ end;
procedure TWebsocketClientApplication.Usage(const aError : string);
begin
{ add your help code here }
if aError<>'' then
Writeln('Error : ',aError);
writeln('Usage: ', ExeName, ' [options]');
Writeln('where options is one or more of:');
Writeln('-h --help this help text');