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

Вниз

TStringList.AddObject добавление строки вместо TObject   Найти похожие ветки 

 
Unknown user ©   (2012-03-06 11:24) [0]

Подскажите, можно ли так добавлять строки к TStringList?

var
 AnotherString: string;

TStringList.AddObject(S, Pointer(AnotherString))

или обязательно делать копию строки

TStringList.AddObject(S, Pointer(NewStr(AnotherString)))

Строки имеют счетчик ссылок и вроде бы такой каст не должен нарушить его работу. Правильно?


 
Ega23 ©   (2012-03-06 11:33) [1]

Что ты хочешь сделать?


 
Медвежонок Пятачок ©   (2012-03-06 11:36) [2]

и вроде бы такой каст не должен нарушить его работу.

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


 
Dimka Maslov ©   (2012-03-06 11:37) [3]

Если уж очень надо - объяви класс с единственным членом - строкой и пудзырь его экземпляры в TStrings.Objects. Только потом не забывай вовремя удалять их.


 
Игорь Шевченко ©   (2012-03-06 11:40) [4]


> Подскажите, можно ли так добавлять строки к TStringList?


лучше через KEY=VALUE, TStringList умеет работать с такими строками
читать TStrings.Names, TStrings.Values, и т.п.


 
Unknown user ©   (2012-03-06 11:50) [5]

Все понял, спасибо.

Это мне приходится чужой код рихтовать, тут вообще подход в стиле

var Res:PChar; S: String;

  S:=Socket.RemoteHost;
  GetMem(Res,16); FillChar(Res[0],16,32); Res[15]:=#0;
  Move(S[1],Res[0],Length(S));
  Usernames.AddObject(UserName,TObject(Res));

Мало что S может быть длиннее 16 символов, а памяти выделяется только 16 байт (это еще AnsiString). Так еще и выделенная память нигде не освобождается.



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

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

Наверх




Память: 0.45 MB
Время: 0.061 c
15-1345901388
Фокс Йожин
2012-08-25 17:29
2013.03.22
Картина


15-1341007816
vasa777
2012-06-30 02:10
2013.03.22
0-Core


15-1348777803
Юрий
2012-09-28 00:30
2013.03.22
С днем рождения ! 28 сентября 2012 пятница


15-1340483402
Юрий
2012-06-24 00:30
2013.03.22
С днем рождения ! 24 июня 2012 воскресенье


15-1345064533
DevilDevil
2012-08-16 01:02
2013.03.22
IInterface и RTTI по нему





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