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

Вниз

поблема с TStringList   Найти похожие ветки 

 
AlexeiBerkov ©   (2007-05-19 01:58) [0]

Народ.
Как-то я редко сталкивался с этим классом, но вот что заметил.
Есть класс TStringList.  Если по нему вызвать хелп и в методах перейти на Add то нам предложат пример, в котором создается экземпляр класса TStringList, после чего в него заносятся какие-либо значения. Вот собственно пример:


procedure TForm1.FormCreate(Sender: TObject);

var
 MyList: TStringList;
 Index: Integer;
begin
 MyList := TStringList.Create;
 try
   MyList.Add("Animals");
   MyList.Add("Flowers");

   MyList.Add("Cars");

   MyList.Sort;   { Find will only work on sorted lists! }
   if MyList.Find("Flowers", Index) then
   begin
     ListBox1.Items.AddStrings(MyList);
     Label1.Caption := "Flowers has an index value of " + IntToStr(Index);
   end;
 finally
   MyList.Free;
 end;
end;


Так вот... Если по дебагу просмотреть значение переменной , то мы увидим сто она... пустая!  Как быть?  Просто мне нужно сделать точно такую операцию - создать текстовый список и занести туда значения...  

Спасибо.


 
Германн ©   (2007-05-19 02:14) [1]


> Так вот... Если по дебагу просмотреть значение переменной
> , то мы увидим сто она... пустая!

Какую переменную ты имеешь в виду?


 
{RASkov} ©   (2007-05-19 03:47) [2]

> [0] AlexeiBerkov ©   (19.05.07 01:58)

[1]
+1
Что-то ну вообще ничего не понятно, что смотришь... кто пустая....

> Просто мне нужно сделать точно такую операцию - создать
> текстовый список и занести туда значения...  

Ну так в примере все отражено.... что не понятного?

> Если по дебагу просмотреть значение переменной

Если ты смотришь значение переменной MyList, то она после Create формы и будет пустой, ибо локальная переменная.... смотри ее значение в методе FormCreate....
В общем... ты давай определись с вопросом(проблемой).... ага?


 
Однокамушкин   (2007-05-19 09:01) [3]

А дебаг не показывает содержание классов... так, некоторые свойства... и сколько значений в список ни заноси, через дебаг их не увидишь...


 
Anatoly Podgoretsky ©   (2007-05-19 11:27) [4]

Забудь про "Debug"


 
Belorus ©   (2007-05-19 11:35) [5]

Всю жизнь смотрю дебагом содержимое экземпляров класса. Очень удобно. Никаких проблем пока не было. Наводишь в момент брякпоинта на переменную жмёшь Control и брякаешь мышь.


 
AlexeiBerkov ©   (2007-05-19 12:42) [6]


Однокамушкин   (19.05.07 09:01) [3]

А дебаг не показывает содержание классов... так, некоторые свойства... и сколько значений в список ни заноси, через дебаг их не увидишь...


Да! Действительно! Дебаг "выпендривается" именнос классом TStringList - не показывает его содержимое. Ниже приведён пример, доказывающий, что в TStringList всё-таки заносятся значения, но через дебаг их не видно


   cars := TStringList.Create;
   cars.Delimiter := " ";
   cars.QuoteChar := "|";
   cars.DelimitedText := "|Honda Jazz| |Ford Mondeo| |Jaguar "E-type"|";

   for i := 0 to cars.Count-1 do
     ShowMessage(cars[i]);


Закрыто!


 
Плохиш ©   (2007-05-19 13:41) [7]


> AlexeiBerkov ©   (19.05.07 01:58)  
> Народ.
> Как-то я редко сталкивался с этим классом

Ну мы используем только те классы, с которыми сталкиваемся по сотни раз каждый час...

> Да! Действительно! Дебаг "выпендривается" именнос классом
> TStringList - не показывает его содержимое.

Надо же, какой только глупости здесь не прочитаешь :-)


 
AlexeiBerkov ©   (2007-05-19 16:11) [8]


Надо же, какой только глупости здесь не прочитаешь :-)


Знаешь, когда блин сидишь в 3 часа ночи и видешь в дебаге NULL , то особо как-то не смешно



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

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

Наверх





Память: 0.46 MB
Время: 0.035 c
2-1179854765
Prasal
2007-05-22 21:26
2007.06.10
Поиск


2-1179660366
Герасим
2007-05-20 15:26
2007.06.10
Рабочий стол


2-1179322729
AlexeiBerkov
2007-05-16 17:38
2007.06.10
проверка соединения для TADOConection


1-1176448091
tytus
2007-04-13 11:08
2007.06.10
FastReport 4 - закрасить Memo через один.


2-1179258010
Gaara_of_the_Desert
2007-05-15 23:40
2007.06.10
Перевод картинки в стринг и обратно





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