Вверх ↑
Разработчик
Ответов: 26179
Рейтинг: 2128
#1: 2013-07-05 12:56:18 ЛС | профиль | цитата
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;

Для обычного режима добавления -- _prop_AddType = 0, что вызывает срабатывание метода Control.Add(Text). Те метод Add самого контрола отрабатывает переводы строки при их наличии
карма: 22

0