Changeset 510 for Common/UURI.pas


Ignore:
Timestamp:
Apr 11, 2018, 11:22:58 AM (6 years ago)
Author:
chronos
Message:
  • Added: Basic TStringTable class.
  • Fixed: Removed various compiler warnings.
Location:
Common
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • Common

    • Property svn:ignore

      •  

        old new  
        11lib
        22backup
         3*.lrj

  • Common/UURI.pas

    r434 r510  
    8989function LeftCutString(var Source: string; out Output: string; Delimiter: string; Allowed: string = ''): Boolean;
    9090var
    91   I, J: Integer;
     91  I: Integer;
    9292  Matched: Boolean;
    9393begin
    … …  
    113113function RightCutString(var Source: string; out Output: string; Delimiter: string; Allowed: string = ''): Boolean;
    114114var
    115   I, J: Integer;
     115  I: Integer;
    116116  Matched: Boolean;
    117117begin
    … …  
    202202
    203203procedure TURI.SetAsString(Value: string);
    204 var
    205   HostAddr: string;
    206   HostPort: string;
    207204begin
    208205  LeftCutString(Value, Scheme, ':');
Note: See TracChangeset for help on using the changeset viewer.