ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Указать на TStringList.Object[] как?
14 сообщений из 64, страница 3 из 3
  3  все
Указать на TStringList.Object[] как?
    #40027963
Vizit0r
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vizit0r
Участник
использовать TStringList как хранилище обьектов - это сильный ход.
...
Рейтинг: 0 / 0
15.12.2020, 13:37
| Ответить | Цитировать | Написать  
Указать на TStringList.Object[] как?
    #40027967
Фотография wolverin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wolverin
Участник
Vizit0r,

и чем он плох? то вам почему велосипед нештатный, то этот велосипед уже какой то не такой.
...
Рейтинг: 0 / 0
15.12.2020, 13:45
| Ответить | Цитировать | Написать  
Указать на TStringList.Object[] как?
    #40028026
Vizit0r
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vizit0r
Участник
wolverin
Vizit0r,

и чем он плох? то вам почему велосипед нештатный, то этот велосипед уже какой то не такой.


TList?
...
Рейтинг: 0 / 0
15.12.2020, 16:07
| Ответить | Цитировать | Написать  
Указать на TStringList.Object[] как?
    #40028069
cptngrb
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
cptngrb
Участник
TObjectList вообще пушка
...
Рейтинг: 0 / 0
15.12.2020, 17:18
| Ответить | Цитировать | Написать  
Указать на TStringList.Object[] как?
    #40028200
Фотография wolverin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wolverin
Участник
Vizit0r,

меня вполне устраивает функционал работы со списками строк, которые я загружаю из реестра и выгружаю в визуальные компоненты одной строкой кода.

такой себе совет, как и следующий за ним.
...
Рейтинг: 0 / 0
16.12.2020, 06:04
| Ответить | Цитировать | Написать  
Указать на TStringList.Object[] как?
    #40028294
Фотография _Vasilisk_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_Vasilisk_
Участник
wolverin
Потому что объекты привязаны к физическому оборудованию, их нельзя создать больше чем железок!
Вас никто не заставляет создавать лишние объекты. Еще раз
Код: pascal
1.
2.
3.
4.
Idx := List1.AddObject('Str', TMyObject.Create);
List2.AddOnject('Str2_1', List1.Objects[Idx]);
List2.AddOnject('Str2_2', List1.Objects[Idx]);
List2.AddOnject('Str2_3', List1.Objects[Idx]);

Теперь у вас в List1 и три раза в List2 лежит один и тот же объект. Это не четыре разных объекта. Это - один объект
...
Рейтинг: 0 / 0
16.12.2020, 12:40
| Ответить | Цитировать | Написать  
Указать на TStringList.Object[] как?
    #40028295
alekcvp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alekcvp
Участник
_Vasilisk_
wolverin
Потому что объекты привязаны к физическому оборудованию, их нельзя создать больше чем железок!
Вас никто не заставляет создавать лишние объекты. Еще раз
Код: pascal
1.
2.
3.
4.
Idx := List1.AddObject('Str', TMyObject.Create);
List2.AddOnject('Str2_1', List1.Objects[Idx]);
List2.AddOnject('Str2_2', List1.Objects[Idx]);
List2.AddOnject('Str2_3', List1.Objects[Idx]);

Теперь у вас в List1 и три раза в List2 лежит один и тот же объект. Это не четыре разных объекта. Это - один объект


Только что с ними будет, тогда он сделает:
Код: pascal
1.
2.
List1.Objects[Index].Free;
List1.Objects[Index] := nil;

?
...
Рейтинг: 0 / 0
16.12.2020, 12:42
| Ответить | Цитировать | Написать  
Указать на TStringList.Object[] как?
    #40028311
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DimaBr
Участник
alekcvp

Только что с ними будет, тогда он сделает:
Код: pascal
1.
2.
List1.Objects[Index].Free;
List1.Objects[Index] := nil;

?

С ними будет всё нормально. Указатели указываю на место. Если в том месте ЖИВОГО объекта уже нет, указатель не виноват.
Простой пример - ссылка на веб странице. Ссылка есть, а вот есть ли страница куда она ссылается - не факт.
...
Рейтинг: 0 / 0
16.12.2020, 13:38
| Ответить | Цитировать | Написать  
Указать на TStringList.Object[] как?
    #40028382
Фотография wolverin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wolverin
Участник
_Vasilisk_
Вас никто не заставляет создавать лишние объекты. Еще раз
Код: pascal
1.
2.
3.
4.
Idx := List1.AddObject('Str', TMyObject.Create);
List2.AddOnject('Str2_1', List1.Objects[Idx]);
List2.AddOnject('Str2_2', List1.Objects[Idx]);
List2.AddOnject('Str2_3', List1.Objects[Idx]);

Теперь у вас в List1 и три раза в List2 лежит один и тот же объект. Это не четыре разных объекта. Это - один объект

вы и заставляете делать лишние объекты своим TMyObject.Create
нет никакого Idx := List1.AddObject('Str', TMyObject.Create);
есть Idx := List1.AddObject('Str', nil);
...
Рейтинг: 0 / 0
16.12.2020, 17:17
| Ответить | Цитировать | Написать  
Указать на TStringList.Object[] как?
    #40028384
Фотография wolverin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wolverin
Участник
DimaBr

С ними будет всё нормально. Указатели указываю на место. Если в том месте ЖИВОГО объекта уже нет, указатель не виноват.
Простой пример - ссылка на веб странице. Ссылка есть, а вот есть ли страница куда она ссылается - не факт.

ну если для вас это нормально такое на веб странице, то для меня нет ))
...
Рейтинг: 0 / 0
16.12.2020, 17:19
| Ответить | Цитировать | Написать  
Указать на TStringList.Object[] как?
    #40028455
alekcvp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alekcvp
Участник
DimaBr
С ними будет всё нормально. Указатели указываю на место. Если в том месте ЖИВОГО объекта уже нет, указатель не виноват. Простой пример - ссылка на веб странице. Ссылка есть, а вот есть ли страница куда она ссылается - не факт.

Ну а ТС хочет что-то вроде:
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
var
 PObj: PPointer;
begin
  New(PObj);
  Idx := List1.AddObject('Str', PObj);
  List2.AddOnject('Str2_1', PObj);
  List2.AddOnject('Str2_2', PObj);
  List2.AddOnject('Str2_3', PObj);
  PObj^ := TMyObject.Create;


Тогда если сделать
Код: pascal
1.
PPointer(List1.Objects[Index])^ := nil;

оно, внезапно, станет nil во всех списках.

Но всё равно остаётся проблема: кто будет освобождать PObj?..
...
Рейтинг: 0 / 0
16.12.2020, 20:03
| Ответить | Цитировать | Написать  
Указать на TStringList.Object[] как?
    #40028594
Фотография wolverin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wolverin
Участник
alekcvp

Но всё равно остаётся проблема: кто будет освобождать PObj?..

нихто, потому что не создается он отдельно )

идея не проверенная и отличается от фактической реализации, но вижу так
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
  PMyObject = ^TRMyObject;
  TMyObject = class...

  TList1 = class(TStringList)
  private
    FList: PStringItemList;
    function GetPointer(Index: Integer): PMyObject;
  public
    property Pointers[Index: Integer]: PMyObject read GetPointer;
...
  TList2 = class(TStringList)
  private
    function GetObject(Index: Integer): PMyObject ;
    procedure PutObject(Index: Integer; AObject: PMyObject );
  public
    property Objects[Index: Integer]: PMyObject read GetObject write PutObject;
...

function TList1.GetPointer(Index: Integer): PMyObject;
begin
Result := @(FList^[Index].FObject);
end;
....
List2.Objects[j] := List1.Pointers[i];
....
List2.Objects[j]^.Free;
List2.Objects[j]^ := nil;



компилятор вродь не ругается, но доедет ли до Киева!?
...
Рейтинг: 0 / 0
17.12.2020, 09:06
| Ответить | Цитировать | Написать  
Указать на TStringList.Object[] как?
    #40028599
alekcvp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alekcvp
Участник
wolverin
Код: pascal
1.
TList1 = class(TStringList)


...
Рейтинг: 0 / 0
17.12.2020, 09:32
| Ответить | Цитировать | Написать  
Указать на TStringList.Object[] как?
    #40028602
Фотография wolverin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wolverin
Участник
alekcvp,
)))
...
Рейтинг: 0 / 0
17.12.2020, 09:41
| Ответить | Цитировать | Написать  
14 сообщений из 64, страница 3 из 3
  3  все
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Указать на TStringList.Object[] как?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&msg=40028311&tid=2037780]:
 0ms
get settings:
 8ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 145ms
get topic data:
 8ms
get forum data:
 4ms
get page messages:
 50ms
get tp. blocked users:
 1ms
others: 215ms
total:  445ms
созд. / загр.: 445ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]