|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
15.11.2007, 13:39 | #1 |
Пользователь
Регистрация: 29.08.2007
Сообщений: 51
|
TStringList
При нажатии на кнопку в Список my.add('xxx') - класса TStringList, должна добовляться 1 строка, а у меня создается еще 1-пустая. В чем причина?????????????
|
15.11.2007, 13:42 | #2 |
Реанимируюсь...
Участник клуба
Регистрация: 19.07.2007
Сообщений: 1,445
|
Приведи код, а то мой экстрасенс обиделся и ушел.
Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живёте.
Правила форума => Правила раздела => Для общего развития => Помощь студентам => Перед тем, как создавать тему, скачайте себе... P.S.: форум не песочница (с)
название статьи на сайте MS: "Отмена принудительного отключения автоматического запуска в реестре Windows" |
15.11.2007, 13:43 | #3 | |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Цитата:
I'm learning to live...
|
|
15.11.2007, 14:17 | #4 |
Пользователь
Регистрация: 29.08.2007
Сообщений: 51
|
Должно работать так у меня есть ListView. При нажатии на кнопку добавляется запись.При вводе текста в edit, я событии OnChange проверяю выделенную строку, и в нее вводится текст, а также при этом этот текст длжен дублироваться в переменной списка TStringList. Куда мне пихнуть Из событии OnChange код My.Add(xxx).
|
15.11.2007, 14:29 | #5 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Код в студию
I'm learning to live...
|
15.11.2007, 14:44 | #6 |
Пользователь
Регистрация: 29.08.2007
Сообщений: 51
|
В этой процедуре создаю в 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). Куда бы мне это действие вынести чтобы все работало нормально?????? |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Функции сохранения TStringList в Ini-файл | Air | Свободное общение | 0 | 29.06.2008 22:37 |
Сортировка в tStringList | Altera | Общие вопросы Delphi | 16 | 05.03.2008 09:48 |
Вопрос насчёт класса TStringList!!! | KAMENYKA | Компоненты Delphi | 4 | 06.12.2007 14:49 |
Обновление списка TStringList | eXa | Компоненты Delphi | 3 | 11.08.2007 16:24 |
Класс TStringList | Pblog | Обсуждение статей | 0 | 27.05.2007 02:13 |