开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
NMExtstr.pas
资源名称：FastNet.rar　[点击查看]
上传用户：szzdds
上传日期：2013-09-18
资源大小：293k
文件大小：3k
源码类别：

Delphi控件源码

开发平台：

Delphi

NMExtstr.pas：源码内容
  1. unit NMExtstr;
  3. {$X+}
  4. {$R-}
  6. {$IFDEF VER100}
  7. {$DEFINE NMF3}
  8. {$ENDIF}
  9. {$IFDEF VER110}
  10. {$DEFINE NMF3}
  11. {$ENDIF}
  12. {$IFDEF VER120}
  13. {$DEFINE NMF3}
  14. {$ENDIF}
  15. {$IFDEF VER125}
  16. {$DEFINE NMF3}
  17. {$ENDIF}
  19. interface
  21. uses  Classes, Sysutils;
  22. {$IFDEF VER110}
  23. {$ObjExportAll On}
  24. {$ENDIF}
  25. {$IFDEF VER120}
  26. {$ObjExportAll On}
  27. {$ENDIF}
  28. {$IFDEF VER125}
  29. {$ObjExportAll On}
  30. {$ENDIF}
  32. //  CompName='NMExtStr';
  33. //  Major_Version='4';
  34. //  Minor_Version='02';
  35. //  Date_Version='012798';
  37. type
  38.     TExStringList = class ( tstringlist )
  39.     protected
  40.       function IndexOfName(const Name: string): Integer;
  41.       function GetValue(const Name: string): string;
  42.       procedure SetValue(const Name, Value: string);
  43.     public
  44.       property Values[const Name: string]: string read GetValue write SetValue; 
  46. end;
  48. implementation
  50. uses Consts, TypInfo;
  52. function TExStringList.GetValue(const Name: string): string;
  53. var
  54.   I: Integer;
  55. begin
  56.   I := IndexOfName(Name);
  57.   if I >= 0 then
  58.     begin
  59.       Result := Copy(Get(I), Length(Name) + 2, MaxInt);
  60.       if Result[1]=' ' then Result:= Copy(Result, 2, MaxInt)
  61.     end
  62.     else
  63.     Result := '';
  64. end;
  66. function TExStringList.IndexOfName(const Name: string): Integer;
  67. var
  68.   P: Integer;
  69.   S: string;
  70.   top, bottom : integer;
  71.   test : integer;
  72.   done : boolean;
  73. begin
  74.   if sorted then
  75.     begin
  76.       done := false;
  77.       top := 0;
  78.       bottom := getcount -1;
  79.       repeat
  80.         result := ((bottom - top) div 2 ) + top;
  81.         S := Get(Result);
  82.         P := Pos(':', S);
  83.         test := AnsiCompareText(Copy(S, 1, P-1), Name);
  84.         if test = 0 then
  85.           done := true
  86.         else if test < 0 then
  87.                top := result +1
  88.              else
  89.                bottom := result - 1;
  90.         if top  = bottom + 1 then
  91.           begin
  92.             result := -1;
  93.             exit;
  94.           end;                                                             
  95.       until done;
  96.     end
  97.   else
  98.     begin
  99.       for Result := 0 to GetCount - 1 do
  100.         begin
  101.           S := Get(Result);
  102.           P := Pos(':', S);
  103.           if (P <> 0) and (AnsiCompareText(Copy(S, 1, P - 1), Name) = 0) then Exit;
  104.         end;
  105.       Result := -1;
  106.     end;
  107. end;
  109. procedure TExStringList.SetValue(const Name, Value: string);
  110. var
  111.   I: Integer;
  112. begin
  113.   I := IndexOfName(Name);
  114.   if Value <> '' then
  115.   begin
  116.     if I < 0 then I := Add('');
  117.     Put(I, Name + ': ' + Value);
  118.   end else
  119.   begin
  120.     if I >= 0 then Delete(I);
  121.   end;
  122. end;
  124. end.