TeasyGG - sortowanie :: 4programmers.net

Rejestracja:ponad 22 lata
Ostatnio:11 dni
Postów:37

Witam. Chcę zrobić sortowanie listy kontaktów komponentu EasyGG. Robię to następująco:

Kopiuj


```delphi
procedure TForm1.SortByStatus(iLow, iHigh : Integer);
var
 Temp: TUser;
  i, j, x: Integer;
begin
  for i := iHigh downto iLow do
    if im.users.Items[i].Status in [usGGWithMe, usAvailable, usBusy, usDND] then
    begin
      for j := i - 1 downto iLow do
        if im.users[j].Status = usNotAvailable then
        begin
          Temp := im.Users[i];
          im.users[i] := im.users[j];
          im.users[j] := Temp;
        end;
    end;
  x := 0;
  for i := iHigh downto iLow do
    if im.users[i].Status in [usGGWithMe, usAvailable, usBusy, usDND] then
    begin
      x := i - iLow + 1;
      Break;
    end;
  if (x = 0) or (x = iHigh - iLow + 1) then
    SortByName(iLow, iHigh)
  else
  begin
    SortByName(iLow, x - 1);
    SortByName(x, iHigh);
  end;
end;

procedure TForm1.SortByName(iLow, iHigh : Integer);
var
  Temp : TUser;
  x: string;
  iLo, iHi : Integer;
begin
  iLo := iLow;
  iHi := iHigh;
  x := im.users[(iLow + iHigh) div 2].Name;
  repeat
    while AnsiLowerCase(im.users[iLo].Name) < AnsiLowerCase(x) do
      Inc(iLo);
    while AnsiLowerCase(im.users[iHi].Name) > AnsiLowerCase(x) do
      Dec(iHi);
    if iLo <= iHi then
    begin
      Temp := im.users[iLo];
      im.users[iLo] := im.users[iHi];
      im.users[iHi] := Temp;
      Inc(iLo);
      Dec(iHi);
    end;
  until iLo > iHi;
  if iHi > iLow then
    SortByName(iLow, iHi);
  if iLo < iHigh then
    SortByName(iLo, iHigh);
end;

Kopiuj


jednak przy kompilacji wyskakuje mi błąd:
[ERROR] main.pas(175): Cannot assign to read-only property.

Co robię źle ? Jaki moze być inny sposób na sortowanie listy według statusów i imion ?

markovcd

2010-01-31 17:58

markovcd2010-01-31 17:58

Witam.
Problem polega na tym, że właściwość Users jest tylko do odczytu.
Nie możesz więc zrobić czegoś takiego:

Kopiuj

im.users[iLo] := im.users[iHi];
im.users[iHi] := Temp;

wala

2010-01-31 18:01

wala2010-01-31 18:01

Rejestracja:ponad 22 lata
Ostatnio:11 dni
Postów:37

Czy planujesz dodanie sortowania do następnej wersji ? Jeśli nie to co zmienić by właściwość users była zapisywalna ?

PiXel

2010-01-31 18:06

PiXel2010-01-31 18:06

Rejestracja:prawie 19 lat
Ostatnio:ponad 9 lat
Postów:98

Sortowanie jest oczywiście planowane. Możliwie jak najszybciej. Co to zapisywalności właściwości users - jest tylko do odczytu bo nie chciało mi się testować co się stanie jak będzie do zapisu :).

Na własną odpowiedzialność:
W module EGG.pas znajdź

Kopiuj

property Users: TUsers read FUsers;

i zamień na

Kopiuj

property Users: TUsers read FUsers write FUsers;

Jednak nie obiecuję, że wszystko będzie poprawnie działać po tej zmianie. Jeżeli będzie wszystko ok to daj znać.

EDIT:
Zamiast przypisywania całej klasy możesz skorzystać z faktu, że TUsers dziedziczy po TList. Masz więc do dyspozycji funkcje takie jak Exchange czy Move.

wala

2010-01-31 18:19

wala2010-01-31 18:19

Rejestracja:ponad 22 lata
Ostatnio:11 dni
Postów:37

Wciąż ten sam komunikat że Users jest tylko do odczytu... Nie rozumiem tego...

EDIT: Mam wrażenie że sortowanie jest lepszym wyjściem od EXCHANGE i MOVE.
Czy gdzieś jeszcze klasa TUsers jest zadeklarowana jako read only ? Po zmianie na
property Users: TUsers read FUsers write FUsers; nic się nie zmienia. Ten sam błąd podczas kompilacji.

PiXel

2010-01-31 18:38

PiXel2010-01-31 18:38

Rejestracja:prawie 19 lat
Ostatnio:ponad 9 lat
Postów:98

A zrobiłeś Builda paczki po tej zmianie?

wala

2010-01-31 18:40

wala2010-01-31 18:40

Rejestracja:ponad 22 lata
Ostatnio:11 dni
Postów:37

Używam D7 więc tylko odinstalowałem i ponownie zainstalowałem komponent.

olesio

2010-01-31 18:42

olesio2010-01-31 18:42

Rejestracja:około 17 lat
Ostatnio:około 3 lata
Lokalizacja:Szczecin
Postów:4191

@wala: Za pewne chodzi Tobie o posortowanie listy kontaktów według statusu. Najpierw dostępni, później
Ci co mając "zaraz wracam", później niedostępni tak jak w GG jest to chyba nadal. Nie wiem jak jest teraz,
bo z przyzwyczajenie, ponieważ rzadko korzystam używam wersji 7.6 jeszcze. Ja napisałem sobie (jeszcze
nieskończony wprawdzie) klienta opertego na TEasyGG i użyłęm do tego celu TGGList, źródło którego jest
na tym forum, a do tego dynamicznie tworzonego ListView o nazwie ContactsLV "podczepionego" do tejże
również dynamicznie tworzonej TGGList, zresztą TrayIkonę jak i TEasyGG również mam tworzone w sposób
dynamiczny, tak aby nie trzeba było przenosząć źródło na inne Delphi instalować komponentów. Zrobiłem w
sumie sortowanie tak jak poniżej. Wywołuje je tylko przez ContactsLV.AlphaSort. W zerowej kolumnie ów
ListView mam nazwe usera, w 1: numer, w 2: opis a w 3 (subitem 2) mam status cyferką, ktory ustawia mi
funkcja StateID. Userzy dodani są do ListView poprzez taki kod. A ciut niżej kod sortowania od ContactsLV.

Kopiuj

//...
    User := EGG.Users.Items[EGG.Users.Add(StrToInt64(GGNumEdit.Text))];
    User.Name := UserNameEdit.Text;
    S := IntToStr(StateID(User.Status));
    ContactsLV.AddItem(User.Name, User);
    ListItem := ContactsLV.Items[ContactsLV.Items.Count - 1];
    ListItem.SubItems.Add(IntToStr(User.UID));
    ListItem.SubItems.Add(User.Description);
    ListItem.SubItems.Add(S);
//...

Funkcja StateID oraz sortowanie ContactsLV rosnąco według kolumny z numerem statusu.

Kopiuj

//...
function StateID(Status : TUserStatus) : Byte;
begin
  case Status of
    usAvailable : Result := 0; // Dostępny
    usBusy : Result := 1; // Zaraz wracam
    usNotAvailable : Result := 2; // Niedostępny
    usInvisible : Result := 3; //Niewidoczny
    usBlocked : Result := 4; //Zablokowany
  else
    Result := 1; // Niedostępny
  end;
end;
//...
procedure TMainForm.ContactsLVCompare(Sender : TObject; Item1,
  Item2 : TListItem; Data : Integer; var Compare : Integer);
const
  StatusCol = 2;
var
  StatusNum1, StatusNum2 : integer;
begin
  StatusNum1 := StrToInt(Item1.SubItems[StatusCol]);
  StatusNum2 := StrToInt(Item2.SubItems[StatusCol]);
  if StatusNum1 > StatusNum2 then
    Compare := 1
  else if StatusNum1 < StatusNum2 then
    Compare := -1
  else
    Compare := CompareText(Item1.Caption, Item2.Caption);
end;

wala

2010-01-31 18:47

wala2010-01-31 18:47

Rejestracja:ponad 22 lata
Ostatnio:11 dni
Postów:37

@olesio: Tak, chodzi mi o posortowanie wg statusów. Wcześniej używałem sposobu podobnego jak Ty ale działało to cholernie powoli... tzn rysowanie listy kontaktów na lb powodowało miganie a to nie wyglądało ciekawie ;). Postanowiłem zrobic więc sortowanie podobnie jak to jest w komponencie THgg ale napotkałem na ten mały problem z read-only. Gdyby nie to, podejrzewam, ze działałoby to całkiem szybko.

olesio

2010-01-31 19:09

olesio2010-01-31 19:09

Rejestracja:około 17 lat
Ostatnio:około 3 lata
Lokalizacja:Szczecin
Postów:4191

Ja dlatego mam nadzieję, że w wersji 0.3 TEasyGG oprócz użycia zewnętrzbego parsera XML ktorego to już
poleciłem autorowi zamaist modułó TXMLDocument niedostępnych na przykład w wersji Delphi 7 Personal,
doda także zdarzenie OnUpdateContactsDone albo coś w tym stylu. Wtedy kiedy kontakty skończył by się
dodawać można by było je posortować i odświeżyć itemy w TGGList oraz zrobić GGList.Viisible := True, po
tym jak w zdarzeniu update'u zrobiło by się GGList.Visible := False; Póki co też mam z miganiem i tak w
obecnej wersji zostawiłem. A może jak chcesz posortowac userow to dodawaj ich do obiektu typu TList, w
takiej lisćie możes przechowywać wskażniki na obiekt typu TUser czy tam komponenty. Czy co Tobie jest
wygodnie. Później możesz użyć funkcji StateID ktorą podałem i posortować elementy według statusów, w
taki sposób jak opisano na: http://delphi.about.com/od/adptips2003/a/bltip1103_3.htm - tylko zamiast
jak tam użyć typu TMyListItem używasz po prostu TUser. Ale nie wiem, czy Tobie to będzie odpowiadać.

wala

2010-01-31 19:29

wala2010-01-31 19:29

Rejestracja:ponad 22 lata
Ostatnio:11 dni
Postów:37

@olesio: Coś jeszcze wykombinuję... mam nadzieję, ze w 0.3 będzie sortowanie.

wala

2010-06-10 19:51

wala2010-06-10 19:51

Rejestracja:ponad 22 lata
Ostatnio:11 dni
Postów:37

Odświeżam temat bo być może ktoś wpadł na ciekawe rozwiązanie ? Nowej wersji Teasygg jak nie było tak nie ma i nie wiadomo kiedy będzie...

misiakufal

2010-06-11 08:26

misiakufal2010-06-11 08:26

Rejestracja:ponad 15 lat
Ostatnio:prawie 9 lat

Ja też miałem z tym problem. Rozwiązałem go nieelegancko, brzydko i niezgodnie ze standartami, ale działa:) W żródle TEasyGG upubliczniłem wszystkie pola UsreGG i potem nie było problemu z zamianą 2 userów miejscami. po prostu zamieniałem wszystkie pola danych 2 userów miejscami. Działa w miare szybko i nie zauważyłem, żeby to miało jakiś negatywny wpływ na program.

wala

2010-06-11 09:31

wala2010-06-11 09:31

Rejestracja:ponad 22 lata
Ostatnio:11 dni
Postów:37

Czy mógłbyś mi przesłać na maila źródełka ?

Szymonss

2011-07-07 13:18

Szymonss2011-07-07 13:18

Rejestracja:ponad 16 lat
Ostatnio:ponad 6 lat
Postów:107

misiakufal wiem, że temat jest dość stary, ale może pamiętasz co dokładnie zmieniłeś, że mogłeś zamieniać miejscami userów?
Pozdrawiam i przepraszam za odkopanie starego tematu.

Liczba odpowiedzi na stronę

Treść *

Treść

Podgląd

Kliknij, aby dodać treść...

Kliknij, aby dodać załącznik lub wklej ze schowka.

Instrukcja obsługi Markdown

Pomoc 1.18.8

Typografia

Edytor obsługuje składnie Markdown, w której pojedynczy akcent *kursywa* oraz _kursywa_ to pochylenie. Z kolei podwójny akcent **pogrubienie** oraz __pogrubienie__ to pogrubienie. Dodanie znaczników ~~strike~~ to przekreślenie.

Możesz dodać formatowanie komendami , , oraz .

Ponieważ dekoracja podkreślenia jest przeznaczona na linki, markdown nie zawiera specjalnej składni dla podkreślenia. Dlatego by dodać podkreślenie, użyj underline.

Komendy formatujące reagują na skróty klawiszowe: Ctrl+B, Ctrl+I, Ctrl+U oraz Ctrl+S.

Linki

By dodać link w edytorze użyj komendy lub użyj składni [title](link). URL umieszczony w linku lub nawet URL umieszczony bezpośrednio w tekście będzie aktywny i klikalny.

Jeżeli chcesz, możesz samodzielnie dodać link: <a href="link">title</a>.

Wewnętrzne odnośniki

Możesz umieścić odnośnik do wewnętrznej podstrony, używając następującej składni: [[Delphi/Kompendium]] lub [[Delphi/Kompendium|kliknij, aby przejść do kompendium]]. Odnośniki mogą prowadzić do Forum 4programmers.net lub np. do Kompendium.

Wspomnienia użytkowników

By wspomnieć użytkownika forum, wpisz w formularzu znak @. Zobaczysz okienko samouzupełniające nazwy użytkowników. Samouzupełnienie dobierze odpowiedni format wspomnienia, zależnie od tego czy w nazwie użytkownika znajduje się spacja.

Znaczniki HTML

Dozwolone jest używanie niektórych znaczników HTML: <a>, , , <kbd>, <del>, , <dfn>, <pre>, <blockquote>, <hr/>, ,  oraz <img/>.

Skróty klawiszowe

Dodaj kombinację klawiszy komendą notacji klawiszy lub skrótem klawiszowym Alt+K.

Reprezentuj kombinacje klawiszowe używając taga <kbd>. Oddziel od siebie klawisze znakiem plus, np <kbd>Alt+Tab</kbd>.

Indeks górny oraz dolny

Przykład: wpisując H2O i m2 otrzymasz: H₂O i m².

Składnia Tex

By precyzyjnie wyrazić działanie matematyczne, użyj składni Tex.

<tex>arcctg(x) = argtan(\frac{1}{x}) = arcsin(\frac{1}{\sqrt{1+x^2}})</tex>

Kod źródłowy

Krótkie fragmenty kodu

Wszelkie jednolinijkowe instrukcje języka programowania powinny być zawarte pomiędzy obróconymi apostrofami: `kod instrukcji` lub ``console.log(`string`);``.

Kod wielolinijkowy

Dodaj fragment kodu komendą . Fragmenty kodu zajmujące całą lub więcej linijek powinny być umieszczone w wielolinijkowym fragmencie kodu. Znaczniki ``` lub ~~~ umożliwiają kolorowanie różnych języków programowania. Możemy nadać nazwę języka programowania używając auto-uzupełnienia, kod został pokolorowany używając konkretnych ustawień kolorowania składni:

```javascript document.write('Hello World'); ```

Możesz zaznaczyć również już wklejony kod w edytorze, i użyć komendy by zamienić go w kod. Użyj kombinacji Ctrl+`, by dodać fragment kodu bez oznaczników języka.

Tabelki

Dodaj przykładową tabelkę używając komendy . Przykładowa tabelka składa się z dwóch kolumn, nagłówka i jednego wiersza.

Wygeneruj tabelkę na podstawie szablonu. Oddziel komórki separatorem ; lub |, a następnie zaznacz szablonu.

nazwisko;dziedzina;odkrycie
Pitagoras;mathematics;Pythagorean Theorem
Albert Einstein;physics;General Relativity
Marie Curie, Pierre Curie;chemistry;Radium, Polonium

Użyj komendy by zamienić zaznaczony szablon na tabelkę Markdown.

Lista uporządkowana i nieuporządkowana

Możliwe jest tworzenie listy numerowanych oraz wypunktowanych. Wystarczy, że pierwszym znakiem linii będzie * lub - dla listy nieuporządkowanej oraz 1. dla listy uporządkowanej.

Użyj komendy by dodać listę uporządkowaną.

1. Lista numerowana
2. Lista numerowana

Użyj komendy by dodać listę nieuporządkowaną.

* Lista wypunktowana
* Lista wypunktowana
** Lista wypunktowana (drugi poziom)

Składnia Markdown

Edytor obsługuje składnię Markdown, która składa się ze znaków specjalnych. Dostępne komendy, jak formatowanie , dodanie tabelki lub fragmentu kodu są w pewnym sensie świadome otaczającej jej składni, i postarają się unikać uszkodzenia jej.

Dla przykładu, używając tylko dostępnych komend, nie możemy dodać formatowania pogrubienia do kodu wielolinijkowego, albo dodać listy do tabelki - mogłoby to doprowadzić do uszkodzenia składni.

W pewnych odosobnionych przypadkach brak nowej linii przed elementami markdown również mógłby uszkodzić składnie, dlatego edytor dodaje brakujące nowe linie. Dla przykładu, dodanie formatowania pochylenia zaraz po tabelce, mogłoby zostać błędne zinterpretowane, więc edytor doda oddzielającą nową linię pomiędzy tabelką, a pochyleniem.

Skróty klawiszowe

Skróty formatujące, kiedy w edytorze znajduje się pojedynczy kursor, wstawiają sformatowany tekst przykładowy. Jeśli w edytorze znajduje się zaznaczenie (słowo, linijka, paragraf), wtedy zaznaczenie zostaje sformatowane.