Главная страница
    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.061 c
15-1334144994
Дмитрий С
2012-04-11 15:49
2013.03.22
Что вообще такое SLIC?


15-1346743469
Dimka Maslov
2012-09-04 11:24
2013.03.22
Бубен не помогает.


15-1339139460
Дмитрий С
2012-06-08 11:11
2013.03.22
Что это слили?


15-1341400402
Inovet
2012-07-04 15:13
2013.03.22
Нашли бозон Хигса (?)


1-1302154341
Дмитрий Белькевич
2011-04-07 09:32
2013.03.22
Разбудить спящий поток





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский