VPF::label help please - Форум программистов

muratboy31

Дата 25.2.2010, 22:41 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 230
Регистрация: 7.1.2010

Репутация: нет
Всего: нет

thanks frees
do u not think it is better to download the xml file on form create and load the item with timer ???

muratboy31

Дата 26.2.2010, 10:19 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 230
Регистрация: 7.1.2010

Репутация: нет
Всего: нет

problem is in the threat below...

Это сообщение отредактировал(а) muratboy31 - 26.2.2010, 15:26

muratboy31

Дата 26.2.2010, 15:23 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 230
Регистрация: 7.1.2010

Репутация: нет
Всего: нет

why this doesnt work ?

Код


procedure TForm1.Timer1Timer(Sender: TObject);
var
  i:integer;
begin
XMLdoc.LoadFromFile('names.xml');
if XMLdoc.ChildNodes.FindNode('School') then begin
With XMLdoc.ChildNodes.FindNode('School').ChildNodes do
  begin
  i := Random(Count) + 1;
  if FindNode('item' + intToStr(i)) then begin
   With FindNode('item' + intToStr(i)).ChildNodes do
    begin
    Label1.Caption:= FindNode('Caption').Text;
    Link := FindNode('Link').Text;
    Label1.OnClick := Label1Click;
     end;
     end;
    end;
  end;
end;

Это сообщение отредактировал(а) muratboy31 - 26.2.2010, 15:24

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »