Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2013.03.22;
Скачать: [xml.tar.bz2];

Вниз

Realtex   Найти похожие ветки 

 
rikitiki2012   (2012-04-13 11:43) [0]

Здравствуйте! Собственно задача поставлена следующим образом: необходимо скопировать выделенные позиции LIstbox  в txt файл.

Я пишу вот так:
Var
a:TCustomListControl;
begin
listbox.CopySelection(a);
TListBox(a).Items.SaveToFile("C":\1.txt");
a.Free;
end;

Но выдает ошибку…. Объясните пож-ста как правильно?


 
Pert21   (2012-04-13 11:44) [1]

Прошу прощения за дурацкое название темы.....поля перепутал


 
Омлет ©   (2012-04-13 12:02) [2]

var
 i: integer;
begin
 with TStringList.Create do
 begin
   try
     if ListBox1.MultiSelect then
     begin
       for I := 0 to ListBox1.Items.Count - 1 do
         if ListBox1.Selected[I] then
           Add(ListBox1.Items[I]);
     end
     else
       if ListBox1.ItemIndex <> -1 then
         Add(ListBox1.Items[ListBox1.ItemIndex]);
     SaveToFile("c:\text.txt");
   finally
     Free;
   end;
 end;


 
Плохиш ©   (2012-04-13 12:37) [3]


> rikitiki2012   (13.04.12 11:43)  

Создавать объект-цель Пушкин должен?


 
begin...end ©   (2012-04-13 13:37) [4]

> rikitiki2012   (13.04.12 11:43)

1. Как уже сказано в [3], объект a не создан.
2. TCustomListControl - базовый класс, все его методы абстрактны. Поэтому создавать объект этого класса не нужно.
3. Если для решения задачи хочется воспользоваться именно методом CopySelection, создайте на форме невидимый (Visible = False) ListBox, в который и копируйте выделенные элементы этим методом, а затем оттуда сохраняйте их в файл.


 
Amoeba_   (2012-04-14 13:07) [5]


> begin...end ©   (13.04.12 13:37) [4]

> создайте на форме невидимый (Visible = False) ListBox, в
> который и копируйте выделенные элементы

Не надо учить чайника плохому.

Может будет достаточно заведомо невидимого StringList, из которого также можно сохранить в файл?



Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2013.03.22;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.063 c
15-1327133819
Inovet
2012-01-21 12:16
2013.03.22
DrWeb 7.0 постоянное обращение к диску


2-1328784120
ds
2012-02-09 14:42
2013.03.22
DbGrid программная очистка ячейки


15-1347955003
Kerk
2012-09-18 11:56
2013.03.22
Книжка "Выучи Delphi за 21 день" явно устарела.


15-1345119186
stas
2012-08-16 16:13
2013.03.22
Расчет площади сложной фигуры


2-1340828000
Study.MySQL
2012-06-28 00:13
2013.03.22
Вопрос по DBX+MySql





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский