Subversion Repositories userdetect2

Rev

Rev 85 | Rev 87 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 85 Rev 86
Line 27... Line 27...
27 
    FileName: string;
 27 
    FileName: string;
28 
    IconIndex: integer;
 28 
    IconIndex: integer;
29 
  end;
 29 
  end;
30 
 
 30 
 
31 
function SplitString(const aSeparator, aString: string; aMax: Integer = 0): TArrayOfString;
 31 
function SplitString(const aSeparator, aString: string; aMax: Integer = 0): TArrayOfString;
- 
 
 32 
function MergeString(ary: TArrayOfString; glue: string): string;
32 
function BetterInterpreteBool(str: string): boolean;
 33 
function BetterInterpreteBool(str: string): boolean;
33 
function GetOwnCmdName: string;
 34 
function GetOwnCmdName: string;
34 
function ExpandEnvStr(const szInput: string): string;
 35 
function ExpandEnvStr(const szInput: string): string;
35 
procedure UD2_RunCMD(cmd: TUD2Command);
 36 
procedure UD2_RunCMD(cmd: TUD2Command);
36 
function SplitIconString(IconString: string): TIconFileIdx;
 37 
function SplitIconString(IconString: string): TIconFileIdx;
Line 478... Line 479...
478 
      Break;
 479 
      Break;
479 
    end;
 480 
    end;
480 
  end;
 481 
  end;
481 
end;
 482 
end;
482 
 
 483 
 
- 
 
 484 
function MergeString(ary: TArrayOfString; glue: string): string;
- 
 
 485 
var
- 
 
 486 
  i: integer;
- 
 
 487 
begin
- 
 
 488 
  result := '';
- 
 
 489 
  for i := Low(ary) to High(ary) do
- 
 
 490 
  begin
- 
 
 491 
    if result <> '' then result := result + glue;
- 
 
 492 
    result := result + ary[i];
- 
 
 493 
  end;
- 
 
 494 
end;
- 
 
 495 
 
483 
end.
 496 
end.