Forum > General
In stringlist can we get addorset method
Packs:
In tstringlist can we add new method addorset
cdbc:
Hi
What do you mean, what would that do, how should it look...?!?
If You show me, I can rather quickly add it to my "IStringList" implementation, which btw. is found here.
Regards Benny
Zvoni:
--- Quote from: Packs on November 28, 2024, 06:30:41 am ---In tstringlist can we add new method addorset
--- End quote ---
Class Helper?
Derived Class?
Thaddy:
[editted version, covers more cases]
Yes, something like this (untested):
--- Code: Pascal [+][-]window.onload = function(){var x1 = document.getElementById("main_content_section"); if (x1) { var x = document.getElementsByClassName("geshi");for (var i = 0; i < x.length; i++) { x[i].style.maxHeight='none'; x[i].style.height = Math.min(x[i].clientHeight+15,306)+'px'; x[i].style.resize = "vertical";}};} ---{$mode objfpc}{$modeswitch typehelpers}{$H+}uses classes; type TAddOrSet = type helper for Tstringlist function AddOrSet(const value:string;obj:TObject = nil):integer;inline; function AddOrSet(const name,value:string; obj:TObject = nil):integer;inline; end; function TAddOrSet.AddOrSet(const value:string;obj:TObject):integer; begin Result:= self.indexof(value); if result = -1 then result:=self.addobject(value,obj) else begin self[result]:= value; self.objects[result]:=obj; end; end; function TAddOrSet.AddOrSet(const name,value:string;obj:TObject):integer;inline; begin Result:= self.indexof(name); if result = -1 then begin self.addpair(name,value,obj); result := self.indexof(name); end else begin self.values[name]:= value; self.objects[result] := obj; end; end; beginend.
Packs:
@taddy
Thank you 🙏
Navigation
[0] Message Index
[#] Next page