Вернуться
Чтение протоколов из Delphi
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;
Jekky
1 - 18.01.2010-09:37		 C еденички начинайте.
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;
Jekky
3 - 18.01.2010-15:35		 Проблемы в индексе.
Пока не начнёте писать "for j:= 1 to pf.Count do" читаться ничего не будет
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;
Jekky
5 - 19.01.2010-13:27		 Да вот так и перебрать.
vladva
6 - 19.01.2010-16:34		 Не работает - Invalid argument

Может есть вожможность перебрать их без индекса?

Помогите?????????????
vladva
7 - 19.01.2010-17:17		 Проблема решена. Спасибо всем.

Вот решение:
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.Protocol[r].Caption));

end;

end;
Jekky
8 - 20.01.2010-08:34		 Так в чём дело то было?
vladva
9 - 20.01.2010-14:56		 Папки протоколов
pf:=cta.ProtocolFolders.Item[j];
Сам протокол
pf.Protocol[r].Caption
ну а дальше по данным
prt.Protocol[r].ProtocolData

Добавить сообщение
Ваше имя 
Пароль (для зарегистрированных) 
email 
Сообщение 
Введите код, изображенный на картинке
Для зарегистрированных пользователей можно не вводить 
Внимание - введите код без первого символа!

© ТФПК Лтд. Все права защищены.
0.028168 seconds