Вверх ↑
Разработчик
Ответов: 26170
Рейтинг: 2127
#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