Sfoglia il codice sorgente

uutlCommandLine: new function utlUsageProgramName

master
Martok 7 anni fa
parent
commit
692be57e53
1 ha cambiato i file con 9 aggiunte e 1 eliminazioni
  1. +9
    -1
      uutlCommandLine.pas

+ 9
- 1
uutlCommandLine.pas Vedi File

@@ -5,7 +5,7 @@ unit uutlCommandLine;
interface

uses
getopts;
SysUtils, getopts;

{ Forward definitions so getopts doesn't have to be used }
type
@@ -32,6 +32,9 @@ type
*)
function utlHandleAllOptions(ShortOpts : String; LongOpts : POptions; Handler: TOptionHandler): integer;

// Get program binary name suitable for Usage statements
function utlUsageProgramName: string;

implementation

function utlHandleAllOptions(ShortOpts : String; LongOpts : POptions; Handler: TOptionHandler): integer;
@@ -51,5 +54,10 @@ begin
Result:= getopts.OptInd;
end;

function utlUsageProgramName: string;
begin
Result:= ChangeFileExt(ExtractFileName(ParamStr(0)), '');
end;

end.


Caricamento…
Annulla
Salva