TStringList

[nimf]

При нажатии на кнопку в Список my.add('xxx') - класса TStringList, должна добовляться 1 строка, а у меня создается еще 1-пустая. В чем причина?????????????

[AlDelta]

Приведи код, а то мой экстрасенс обиделся и ушел.

[Stilet]

а у меня создается еще 1-пустая

Как узнал?

[nimf]

Должно работать так у меня есть ListView. При нажатии на кнопку добавляется запись.При вводе текста в edit, я событии OnChange проверяю выделенную строку, и в нее вводится текст, а также при этом этот текст длжен дублироваться в переменной списка TStringList. Куда мне пихнуть Из событии OnChange код My.Add(xxx).

[Stilet]

Код в студию

[nimf]

В этой процедуре создаю в ListView новую строку.
procedure TfrmExpImpInterfaceItem.btnAddTable Click(Sender: TObject);
var i:integer;
begin
LV.Selected := LV.Items.add; // добавляем строку и ставим выделение
end;

В этой набираю текст и он автоматически набирается в добавленную строку. Здесь же увеличиваю ArT.Add(NameTable.Text) - класса Tstring.
procedure TfrmExpImpInterfaceItem.NameTableCh ange(Sender: TObject);
var
i: integer;
begin
for I:= 0 to lv.Items.Count-1 do
begin
if (lv.Items.Item[i].Selected =true) then
begin
with lv.Selected do
begin
lv.Items.Item[i].Caption := NameTable.Text;
ArT.Add(NameTable.Text);
end;
end;
end;
end;

Я понял проблему при каждом нажатии на клавищу у меня создается новая запись ArT.Add(NameTable.Text). Куда бы мне это действие вынести чтобы все работало нормально??????