Перебор TStringList?

← →
Ламка (2003-04-30 17:42) [0]

Привет, All!

поясните работу TStringList, у меня занесены значения:
~~~
mySL : TStrings; ... mySL := TStringList.Create; mySL["aaa"].Value := "111"; mySL["bbb"].Value := "222"; ... //нужно перебрать весь mySL, причем получить как имя так и значение записи for i:=0 to mySL.count-1 do begin //????????? как это здесь описать? end;

← →
ProgMan © (2003-04-30 19:43) [1]

Во первых есть несколько ошибок в приведенном примере.
Например:
mySL : TStrings;
mySL := TStringList.Create;
Во вторых, что значит как имя так и значение записи
Что такое "запись"? объявления Record я не заметил...

Если рассчитываешь на помощь, нужна болле корректная формулировка.

← →
Anatoly Podgoretsky © (2003-04-30 19:47) [2]

ProgMan © (30.04.03 19:43)
Да ошибка есть, но в твоей голове, объявление и использование верное, а что такое имя и значение, хорошо объяснено в справке по TStringList

← →
ProgMan © (2003-04-30 21:06) [3]

Anatoly Podgoretsky © (30.04.03 19:47)

ОК. Я не использовал TStringList таким образом.
Поэтому не вникая, написал об ошибке. Я виноват.
Но, чем цепляться ко мне, лучше бы помогли человеку.

Пишу на форуме, т.к. e-mail в анкете не обнаружил.

← →
Юрий Зотов © (2003-04-30 22:17) [4]

См. свойства Names и Values.

← →
vlad40 © (2003-05-01 11:29) [5]

> Ламка (30.04.03 17:42)

А что-то как-то странно пишешь

> mySL["aaa"].Value := "111";
> mySL["bbb"].Value := "222";

?
Неужели не выдает ошибку?
Может так надо:
mySL.values["aaa"]:= "111"; mySL.values["bbb"]:= "222";
Ну а потом:
for i:=0 to mySL.count-1 do begin name:=mySL.names[i]; value:=mySL.values[name] end;

← →
sevlad (2003-05-01 11:37) [6]

2 Ламка

RTFM

2 ProgMan

www.Podgoretsky.com
Anatoly@Podgoretsky.com
Да простит меня, глубоко уважаемый Анатилий.

2ProgMan © (30.04.03 19:43)
Класс TStrings абстрактный, а TStringList является его наследником. Поэтому никакой ошибки здесь нет.

Перебор TStringList? Найти похожие ветки