Скачать: CL | DM;

СтрингЛист - аргумент функции   Найти похожие ветки 

← →
smok_er   (2002-11-29 21:07) [0]

Уважаемые мастера!
Столкнулся с небольшой проблемой.
Суть в следующем. Есть некая функция а, получаяющая в качестве аргумента переменную типа TStringList.
В функции требуется определить имя этого стринглиста. Как только не пробовал - ничего не получается.
Может кто-нибудь знает решение...

---

← →
TTCustomDelphiMaster ©   (2002-11-29 21:25) [1]

У TStringList нет такого свойства.

---

← →
Song ©   (2002-11-29 23:10) [2]

"Имя стринглиста" существует только у Вас в тексте программы. При выполнении - это адрес в памяти.

---

← →
Юрий Зотов ©   (2002-11-29 23:22) [3]

Вероятно, требуется пояснение "на пальцах"...

finction GetStringCount(List: TStringList): integer;
begin
Result := List.Count // List - это и есть "имя". Вот и все.
end;

---

← →
smok_er   (2002-11-29 23:28) [4]

:(
Неужели нет способа определить какой именно стринглист выступает в качестве аргумента?

Хотя я уже знаю, как сделать немного по-другому но с одинаковым результатом. Передавать некое id стринглиста, а затем его анализировать.

---

← →
Anatoly Podgoretsky ©   (2002-11-29 23:37) [5]

Аргумент сам и являтся этим идентификатором, лишних сущностей не требуется.

---

← →
smok_er   (2002-11-29 23:55) [6]

ОК, огромнейшее спасибо всем ответившим!

---

← →
Юрий Зотов ©   (2002-11-29 23:57) [7]

> какой именно стринглист выступает в качестве аргумента?

Тот, который пришел в функцию - тот и выступает. Вот примеры вызовов функции GetStringCount (см. выше). Предположим, у нас есть 2 стринглиста (List4 и List7), причем в List4 - 4 строки, а в List7 - 7 строк. Тогда:

GetStringCount(List4) - даст 4;
GetStringCount(List7) - даст 7/

Поймите, TStringList - это не компонент, а просто объект, у него нет никакого имени. Его как бы "именем" служит переменная. Скажем, если мы написали:

Vasja := TStringList.Create

то после этого Vasja - это и есть "имя" стринглиста. И вызов
GetStringCount(Vasja)
вернет количество строк в нем.

---

← →
smok_er   (2002-11-30 00:58) [8]

Огромное спасибо!
Я все понял и уже все отлично работает!
Просто стормозил :(

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.012 c