[iosfixed]

Просто впал в ступор. Проблема в следующем: суть - есть массив из элементов TStrings. Через диалог открытия файлов в каждый элемент массива должен записываться список из нескольких файлов, полученных через диалог открытия:

Код:

if OpenDialog1.Execute = true
then fls[Current] := OpenDialog1.Files
else ShowMessage('Загрузка отменена');

Но затем обнаруживается, что когда я, допустим, забил пять элементов списками файлов, вызвав любой с первого по пятый я получу результат последнего забитого элемента. Циклов в программе нет. И когда я заменил содержание строк на количество строк в элементе:

Код:

if OpenDialog1.Execute = true
then tmp[Current] := OpenDialog1.Files.Count
else ShowMessage('Загрузка отменена');

Где tmp - массив целых, работало всё как надо. Соответственно возникает вопрос - собака зарыта в типе данных TSrings? Надо как-то по другому с ними работать?

[NumLock]

инкремента Current нет

[iosfixed]

Есть, но он несколько в другом месте программы. Всё сюда тащить бессмысленно.
Я не зря указал, что если массив из TSrings заменить массивом целых, всё записывается как надо и куда надо

[NumLock]

упс, про Assign то не написал

[Pyro]

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

во всех элементах записана ссылка на один и тот же объект

[iosfixed]

Сообщение от NumLock

упс, про Assign то не написал

Можно подробнее, пожалуйста?

[YVitaliy]

Используй

Код:

tmp[current].AddStrings(OpenDialog1.Files);

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

[NumLock]

Код:

tmp[Current].Assign(OpenDialog1.Files);

[iosfixed]

Спасибо большое, теперь всё работает
Если не затруднит, объясните на пальцах, что значит "ссылается на один и тот же объект?". Я понимаю, что OpenDialog1.Files каждый раз новый, но ведь элементы же тоже меняются.

[YVitaliy]

Используя оператор ":=" в случае обьектов (не переменных), ты передаешь ссылку на обьект. Проще говоря, обьекты в Delphi - это ссылки на диапазоны памяти, ты этим ":=" первой "ссылке" присваиваещь значение "второй", как результат, обе они ссылаются на один и тот же обьект. Кхм

[Pyro]

Я понимаю, что OpenDialog1.Files каждый раз новый

видимо нет