Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > VirtualStringTree

Автор: ZBugz 29.4.2011, 09:22

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

123 / 123 /123 /123 /123

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

Как ? smile

Автор: ZBugz 29.4.2011, 10:08

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

Автор: halfhope 1.5.2011, 19:56

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

Автор: ZBugz 2.5.2011, 14:53

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

Автор: ZBugz 3.5.2011, 12:10

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

Код


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;