uniMultiItem

[picyka]

Improved:
 

function TUniStringList.StringFromId(Id: Integer): string;
var
  lIndexOfId : Integer;
begin
  if (Id >= 0)  then
  begin
    lIndexOfId := IndexOfId(Id);
    if lIndexOfId <> -1 then
      Result := Strings[lIndexOfId]
  end
  else
    Result := '';
end;

Current:
 

function TUniStringList.StringFromId(Id: Integer): string;
begin
  if Id >= 0 then
    Result := Strings[IndexOfId(Id)]
  else
    Result := '';
end;

Call
Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/145.0.0.0 Safari/537.36 Edg/145.0.0.0
Versão/IP: 1.0.0.3/168.196.81.31
Navegador/Versão/OS: chrome/145/windows
SessionID: hjRgKbcDZv112C373CF
Component: UniFormCadNegociacaoVeiculo (TUniJSForm)
Parent: UniFormCadNegociacaoVeiculo
LastAjaxEvent: activate
Class: EStringListError
Message: List index out of bounds (-1).  TUniStringList range is 0..20
CallStack: [00CA7DC4] System.Classes.TStringList.Get
[0159165F] uniMultiItem.TUniStringList.StringFromId (Line 590, "uniMultiItem.pas" + 2)
[016AE807] uniListBox.TUniCustomListBox.DoSetRemoteValue (Line 392, "uniListBox.pas" + 50)
[0134C078] uniGUIClasses.TUniFormControl.SetRemoteValue (Line 8629, "uniGUIClasses.pas" + 34)
[0134A055] uniGUIClasses.ProcessComponent (Line 7957, "uniGUIClasses.pas" + 16)
[0134A2D6] uniGUIClasses.TUniContainer.AssignFieldValues (Line 8024, "uniGUIClasses.pas" + 49)
[00BAAA16] System.@IsClass
[0134A0B3] uniGUIClasses.ProcessComponent (Line 7965, "uniGUIClasses.pas" + 24)
[01331755] uniGUIBaseClasses.TUniGUIBaseControl.GetControl (Line 785, "uniGUIBaseClasses.pas" + 13)
[0134A2D6] uniGUIClasses.TUniContainer.AssignFieldValues (Line 8024, "uniGUIClasses.pas" + 49)
[00BAAA16] System.@IsClass
[0134A0B3] uniGUIClasses.ProcessComponent (Line 7965, "uniGUIClasses.pas" + 24)
[01331755] uniGUIBaseClasses.TUniGUIBaseControl.GetControl (Line 785, "uniGUIBaseClasses.pas" + 13)
[0134A2D6] uniGUIClasses.TUniContainer.AssignFieldValues (Line 8024, "uniGUIClasses.pas" + 49)
[00BAAA16] System.@IsClass
[0134A0B3] uniGUIClasses.ProcessComponent (Line 7965, "uniGUIClasses.pas" + 24)
[01331755] uniGUIBaseClasses.TUniGUIBaseControl.GetControl (Line 785, "uniGUIBaseClasses.pas" + 13)
[0134A2D6] uniGUIClasses.TUniContainer.AssignFieldValues (Line 8024, "uniGUIClasses.pas" + 4

Would it be possible to implement this improvement?