VPF::VirtualStringTree - Форум программистов

ZBugz

Дата 29.4.2011, 09:22 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 636
Регистрация: 15.2.2006
Где: Москва

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

Всем привет.
Есть VirtualStringTree
5 колонок, короче как в ListView report режим.
Вот надо сохранить все строки в txt файл в таком формате:

123 / 123 /123 /123 /123

Ну и загрузить все это чудо...

Как ? smile

ZBugz

Дата 29.4.2011, 10:08 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 636
Регистрация: 15.2.2006
Где: Москва

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

Все, разобрался smile

halfhope

Дата 1.5.2011, 19:56 (ссылка)

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

Загрузка ...

Шустрый

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

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

Решение выложи для других...

ZBugz

Дата 2.5.2011, 14:53 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 636
Регистрация: 15.2.2006
Где: Москва

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

Хорошо, завтра сделаю.

ZBugz

Дата 3.5.2011, 12:10 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 636
Регистрация: 15.2.2006
Где: Москва

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

Ну готового примера не будет, но вот загрузка

Код


procedure TForm.NO(Sender: TObject);
Var
 Var1, Var2, S, U: WideString;
 SP: TStringList;
 Q, I: Integer;
begin
 SP := TStringList.Create;
 SP.LoadFromFile('1.txt', TEncoding.Unicode);
 if SP.Count > 0 then
  begin
  for I := 0 to SP.Count - 1 do
    begin
     S := SP.Strings[I];
     U:=copy(S, 1, pos(WideString(' | '), S) - 1);
     delete(S, 1, pos(WideString(' | '), S) + 2);
     Q:=0;
     while pos(WideString(' | '), S) <> 0 do
      begin
       if Q=0 then var1:=copy(S, 1, pos(WideString(' | '), S) - 1);
       delete(S, 1, pos(WideString(' | '), S) + 2);
       Inc(Q);
       if Q=1 then var2:=copy(S, 1, pos(WideString(' | '), S) - 1);
       delete(S, 1, pos(WideString(' | '), S) + 2);
      end;
    AddLines(u, var1, Var2); // моя процедура
    end;
  end;
end;

Сохранение:

Код


procedure TForm.NS(Sender: TObject);
Var
 SP: TStringList;
 vtWnode: PVirtualNode;
 LMyNode: PMyNode;
 A: WideString;
begin
 SP := TStringList.Create;
  vtWnode := Lv.GetFirstLevel(0);
  while Assigned(vtWnode) do
  begin
   LMyNode := Lv.GetNodeData(vtWnode);
   if Assigned(LMyNode) then
    begin
     A:=LMyNode.FirstC;
     A:=A + ' | '+LMyNode.SecontC + ' | '+IntToStr(LMyNode.percent) + ' | ';
     SP.Add(A);
    end;
   Lv.RepaintNode(vtWnode);
  vtWnode := Lv.GetNextLevel(vtWnode, 0);
 end;
  SP.SaveToFile(1.txt', TEncoding.Unicode);
  SP.Free;
end;

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