VladVA
0 - 16.01.2010-01:47 |
Не могу прочитать протоколы из архива:
s:=cta.Sections[section];
pf:=cta.ProtocolFolders;
Edit1.Text:=VarToStr(pf.Count);
for j:= 0 to pf.Count-1 do
begin
???????????
end;
|
vladva
2 - 18.01.2010-13:02 |
Проблема не в индексе, а как прочитать елемент папки, количество могу а вот елементы:
pf:=cta.ProtocolFolders;
// p:=pf.Protocol;
Edit1.Text:=VarToStr(pf.Count);
for j:= 0 to pf.Count-1 do
begin
ListBox4.Items.Add(VarToStr(cta.ProtocolFolders[j].Caption));
end;
|
vladva
4 - 19.01.2010-10:46 |
for j:= 1 to cta.ProtocolFolders.Count do
if cta.ProtocolFolders.Item[j].Caption = ListBox3.Items.Strings[i]
then begin
pf:=cta.ProtocolFolders.Item[j];
// к-ство протоколов в папке
Edit1.Text:=VarToStr(pf.Count);
а вот дальше как перебрать протоколы?
for r:= 1 to pf.Count do
begin
// ListBox4.Items.Add(VarToStr(pf[r].Caption));
end;
|
vladva
6 - 19.01.2010-16:34 |
Не работает - Invalid argument
Может есть вожможность перебрать их без индекса?
Помогите????????????? |
Jekky
8 - 20.01.2010-08:34 |
Так в чём дело то было? |
