VirtualStringTree - radenie podľa dvoch stĺpcov Vyriešené

[Stanislav Hruška]

Mám dva stĺpce. Bloky domu a k nim vchody. Potrebujem, aby sa mi pri zoradení podľa blokov zoradili aj vchody.

Bloky  | vchody
Blok 1 | A1
Blok 1 | A2
Blok 1 | B1

[< z >]

a co presne na tom nevis?

Kód: Delphi [Vybrat]

1.       Result := CompareXXX(blok1, blok2);
2.       if Result=0 then
3.         Result := CompareXXX(vchod1, vchod2);

[Stanislav Hruška]

Toto mi funguje

Kód: Delphi [Vybrat]

1. procedure TfrmBlocks.vstMasterCompareNodes(...
2.  
3.   case Column of
4.      0: Result := AnsiCompareText(Data1.SVB + Data1.Block, Data2.SVB + Data2.Block);
5.  

[Stanislav Hruška]

Tvoje tiež funguje. Je tu jeden rozdiel. Moje riešenie zoradí aj vchody podľa sdAscendingt či sdDescending. Tvoje zoradí vchody vždy vzostupne.

Hodia sa obe riešenia. Podľa nálady.

[Ondřej Pokorný]

Toto mi funguje

Kód: Delphi [Vybrat]

1. procedure TfrmBlocks.vstMasterCompareNodes(...
2.  
3.   case Column of
4.      0: Result := AnsiCompareText(Data1.SVB + Data1.Block, Data2.SVB + Data2.Block);
5.  

Bože, to je Standovina... Nebo Hruškovina... ?

[< z >]

oxo to vystihl

@Hruska:
samozrejme, asc/desc si hlidas pomoci
Result:=-Result ...
proste tam das zapor, pokud to chces opacne

[Stanislav Hruška]

Oboje. Máš lepší nápad?

Mne pripadá trocha divné, že si zoradím strom podľa blokov a vchody budú rozhádzané. To sa užívateľovi bude hľadať veľmi dobre.

Ja si dosť potrpím na užívateľskom komforte. Snažím sa vcítiť do kože užívateľa.

proste tam das zapor, pokud to chces opacne

Ale pri mojom riešení sa nestarám ako sa radí prvý stĺpec. Ušetril som jeden if. Vlastne dva.

[< z >]

- ono neslo o to, ze bys to nemel radit, ale radit to efektivne
- v asm se nevyznam, ale secteni stringu bude asi narocnejsi jak jeden usetreny if

[Stanislav Hruška]

v asm se nevyznam, ale secteni stringu bude asi narocnejsi jak jeden usetreny if

O tom neviem nič. Veď nám to snáď niekto upresní.

[Stanislav Hruška]

Neviem či ste to mysleli takto, ale nasledujúce nemá vplyv na výsledok. Mám na mysli to mínus.

Kód: Delphi [Vybrat]

1.     0:
2.     begin
3.       Result := AnsiCompareText(Data1.SVB, Data2.SVB);
4.  
5.       if Result = 0 then
6.       begin
7.         Result := AnsiCompareText(Data1.Block, Data1.Block);
8.  
9.         if (TVirtualStringTree(Sender).Header.SortDirection = sdDescending) then
10.           Result := -Result;
11.       end;
12.     end;
13.  

[TLama]

Neviem či ste to mysleli takto, ale nasledujúce nemá vplyv na výsledok. Mám na mysli to mínus.

Kód: Delphi [Vybrat]

1. ...
2. Result := AnsiCompareText(Data1.Block, Data1.Block);
3. ...
4.  

To bude tím, že porovnáváš Data1.Block s tím samým Data1.Block. Pak už je jedno jestli vrátíš 0 nebo -0

[Stanislav Hruška]

Chyba to bola, ale výsledok sa nezmenil.

[TLama]

Chyba to bola, ale výsledok sa nezmenil.

Změnil by se, kdybys někdy splnil podmínku se SortDirection. Zkus si místo té podmínky na chvíli tu negaci hardcodovat.

[< z >]

@Hruska:
nevim, co vyrabis ... ani to "-" vlastne nepotrebujes, protoze VST to dela za tebe, staci neco takoveho

Kód: Delphi [Vybrat]

1.   if Sender.SortColumn <> HitInfo.Column then
2.     Sender.SortColumn := HitInfo.Column
3.   else if Sender.SortDirection = sdAscending then
4.     Sender.SortDirection := sdDescending
5.   else
6.     Sender.SortDirection := sdAscending;
7.  
8.   VST1.SortTree(HitInfo.Column, Sender.SortDirection);

[Stanislav Hruška]

Změnil by se, kdybys někdy splnil podmínku se SortDirection.

To bolo prvé čo som si overil krokovaním.

Zkus si místo té podmínky na chvíli tu negaci hardcodovat.

Skúsim, ale už/až doma. Na dnes sa lúčim.

To <z> ak tomu rozumiem, ta navrhované riešenie platí pre jeden stĺpec. Ale vyskúšam si to tiež