Главная страница
    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.047 c
2-1179494188
gdsgdfdssdggsd
2007-05-18 17:16
2007.06.10
сетевое приложение


15-1178804743
Manic Mechanic
2007-05-10 17:45
2007.06.10
СТРИМ


2-1179406498
dima2207
2007-05-17 16:54
2007.06.10
Замена формы2 !


1-1176385878
random(255)
2007-04-12 17:51
2007.06.10
Mathlab и Delphi


15-1179052321
Zagaevskiy
2007-05-13 14:32
2007.06.10
Обучение OpenGL





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