Ignore:
Timestamp:
Jul 26, 2016, 11:22:43 PM (8 years ago)
Author:
chronos
Message:
  • Modified: Update new packages files.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/Packages/Common/UCommon.pas

    r43 r109  
    6464procedure ExecuteProgram(CommandLine: string);
    6565procedure FreeThenNil(var Obj);
     66function RemoveQuotes(Text: string): string;
    6667
    6768
     
    440441end;
    441442
     443function RemoveQuotes(Text: string): string;
     444begin
     445  Result := Text;
     446  if (Pos('"', Text) = 1) and (Text[Length(Text)] = '"') then
     447    Result := Copy(Text, 2, Length(Text) - 2);
     448end;
     449
     450
    442451initialization
    443452
Note: See TracChangeset for help on using the changeset viewer.