VPF::Продвинутый бесплатный грид - Форум программистов

aktuba

Дата 6.6.2007, 13:43 (ссылка)

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

Загрузка ...

Смышленный

Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

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

Жэстоко

Вообще-то я просил тестовый пример, а не рабочий... Этот у меня не откомпилился (чего-то не хватает - разбираться не стал). Но!!!

Для загрузки данных из базы в VT лучше организовать отдельную процедуру. Так легче проверять, да и изменять код... Загружать данные в InitNode не стоит. Остально просмотрел мельком, т.к.код оформлен просто ужасно. Сделай тестовое приложение, которое будет только загружать данные из базы в VT и выложи сюда.

--------------------

hilarios

Дата 7.6.2007, 07:48 (ссылка)

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

Загрузка ...

Новичок

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

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

Цитата(aktuba @ 6.6.2007, 13:43)

Сделай тестовое приложение, которое будет только загружать данные из базы в VT и выложи сюда.

Выкладываю тестовый пример. Не получается заполнить динамический массив.... :( Все предыдущие замечания учел!

Присоединённый файл ( Кол-во скачиваний: 4 )

Test.zip 9,45 Kb

aktuba

Дата 7.6.2007, 09:06 (ссылка)

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

Загрузка ...

Смышленный

Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

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

Мдя... Ну ладно, попробуем на том, что есть. Я так понял, проблема в следующем фрагменте (убрал лишнее):

Код


procedure TForm1.AddChild(Sender: TObject);
var
  i: Integer;
  CNode: PVirtualNode;
  Data: PVSTRecord;
begin
  i := 0;
  while VST.Header.Columns.Count > 0 do
    VST.Header.Columns.Delete(VST.Header.Columns.Count - 1);
  for I := 0 to 5 do    // Iterate
  begin
  column[i]:='Êîëîíêà'+IntToStr(i);
  end;    // for
  with VST do
  begin
    for n := 0 to i - 1 do // Iterate
    begin
      Header.Columns.Add;
      Header.Columns[n].Text := column[n];
      Header.Columns[n].Width := 100;
    end; // for
    with VST do
    begin
      Clear;
      NodeDataSize := SizeOf(TVSTRecord);
      CNode := AddChild(RootNode);
      if not (vsInitialized in CNode.States) then ReinitNode(CNode, False);
      Data := GetNodeData(CNode);
      for I := 0 to VST.Header.Columns.Count - 1 do // Iterate
      begin
        Data.arr[i] := 'sdfsdfsdfs';
      end; // for
      Header.SortColumn := 0;
      SortTree(0, sdAscending, True);
    end;
  end;
end;

Все верно? Кстати, переделал удаление колонок VST. Ну а проблема пустяковая - перед тем как заполнять динамический массив - было бы не плохо, задать размер этого массива! Например так:

Код


SetLength(Data^.arr, VST.Header.Columns.Count);

Вставь эту строку перед

Код


for I := 0 to VST.Header.Columns.Count - 1 do // Iterate

и все будет номально...

--------------------

hilarios

Дата 7.6.2007, 09:43 (ссылка)

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

Загрузка ...

Новичок

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

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

Цитата(aktuba @ 7.6.2007, 09:06)

SetLength(Data^.arr, VST.Header.Columns.Count);

Да уж...вот надо же было так ступить :( Ты прав!!! Совсем что-то у меня это из головы вылетело....Попробую теперь получить динамические данные таким же способом из ADOQuery...Спасибо за помощь!!!!! smile

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