RinniX писал(а):
и обнаружил символы 10 и 13 в МемоВ самом компоненте метода doAdd нет, он находится в юните WinList. Вот этот код
procedure THIWinList._work_doAdd;
var s:string;
idx:integer;
dt:TData;
begin
s := ReadString(_Data,_data_str);
if _prop_AddType = 0 then
idx := Add(s)
else begin
idx := Control.Insert(0,s);
if idx = -1 then Control.Text := s + #13#10 + Control.Text;
end;
if _prop_SelectAdd then Control.CurIndex := idx;
dt := ReadData(_Data,_data_value);
// if _isInteger(dt) then Control.ItemData[idx] := ToInteger(dt);
Control.ItemData[idx] := ToInteger(dt);
_hi_CreateEvent(_Data,@_event_onChange);
end;
function THIWinList.Add;
begin
Result := Control.Add(Text);
end;