RISOLTO_ORDINARE UNA STRINGGRID MEDIANTE LA PROPRIETA' ColumnClickSorts

[alexarmato66]

Mettendo ColumnClickSorts TRUE è possibile ordinare le righe della stringgrid
agendo sull'intestazione della colonna.Però non riesco a capire perchè l'ordinamento
crescente (decerescente) è di questo tipo:
ad esempio partendo da
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Facendo un sorting ottengo
1
10
11
12
13
14
15
2
3
4
5
6
7
8
9

[alexarmato66]

Ho parzialmente risolto il problema modificando la seguente funzione:

Codice: [Seleziona]

function TCustomStringGrid.DoCompareCells(Acol, ARow, Bcol, BRow: Integer): Integer;
begin
  if Assigned(OnCompareCells) then
    Result:=inherited DoCompareCells(Acol, ARow, Bcol, BRow)
  else begin
   // Result:=UTF8CompareLatinTextFast(Cells[ACol,ARow], Cells[BCol,BRow]);

    //--------------------------    Modificato x ordinare stringgrid
   try
     result := CompareValue(StrTofloat(Cells[ACol,ARow]), StrTofloat(Cells[BCol,BRow]));
   Except
     result := AnsiCompareText(Cells[ACol,ARow], Cells[BCol,BRow]);
   end;

    //-------------------------------------------
    if SortOrder=soDescending then
      result:=-result;
  end;
end;                              

[Avogadro]

Perchè il "bianco" (chr32) "pesa"

Se metti dei bianchi e allinei numeri a destra l' ordinamento funziona

Ci sono le funzioni "pad"  che si possono usare : https://www.freepascal.org/docs-html/rtl/strutils/padleft.html

[bonmario]

Però non riesco a capire perchè l'ordinamento crescente (decerescente) è di questo tipo:

Perché lui fa un ordinamento di stringhe, non lo sa che quelli sono numeri, e quello che fa, dal suo punto di vista è corretto !
Nella tua "DoCompareCells" dovresti fare questo per ognuna delle 2 celle su cui fa il confronto:
- mettere il valore della cella in una variabile di tipo stringa
- fare la trim di questa variabile
- convertire la variabile in una numerica, ed usare questa numerica per fare il confronto

naturalmente lo puoi ottimizzare facendo tutto in un colpo solo, ho preferito scrivere i singoli passaggi per provare a spiegarmi meglio !

[alexarmato66]

In realtà nella stringgrid ho i numeri centrati nella cella.

[bonmario]

lo sai tu che sono numeri, ma il compilatore no !!!
P.S. Li hai centrati mettendo degli spazi prima e/o dopo?

[alexarmato66]

in PrepareCanvas  :

Codice: [Seleziona]

ts.Alignment := taCenter;

[alexarmato66]

ho fatto alcune verifiche e sembrerebbe che la funzione di cui sopra funzioni.

[alexarmato66]

orpo ....ho ricompilato il programma su un altro computer ed il problema iniziale si è riconfermato.
Avevate ragione ma non capisco perchè funzioni sul computer di partenza.Indagherò.....

[alexarmato66]

Scusate non avero ricopiato il file Grids.pas. Funziona perfettamente con
la seguente modifica alla funzione TCustomStringGrid.DoCompareCells:

Codice: [Seleziona]

function TCustomStringGrid.DoCompareCells(Acol, ARow, Bcol, BRow: Integer): Integer;
begin
  if Assigned(OnCompareCells) then
    Result:=inherited DoCompareCells(Acol, ARow, Bcol, BRow)
  else begin
   // Result:=UTF8CompareLatinTextFast(Cells[ACol,ARow], Cells[BCol,BRow]);

    //--------------------------    Modificato x ordinare stringgrid
   try
     result := CompareValue(StrTofloat(Cells[ACol,ARow]), StrTofloat(Cells[BCol,BRow]));
   Except
     result := AnsiCompareText(Cells[ACol,ARow], Cells[BCol,BRow]);
   end;

    //-------------------------------------------
    if SortOrder=soDescending then
      result:=-result;
  end;
end;                    

[Avogadro]

"CompareValue("

 

https://www.freepascal.org/docs-html/rtl/math/comparevalue.html

"Description

CompareValue compares 2 integer or floating point values A and B and returns one of the following values:

-1
    if A<B
0
    if A=B
1
    if A>B "

 

in pratica l' "if ternario" del buon vecchio fortran


A proposito di fortran, magari questo comando puo' tornare utile nel maneggiare stringhe e numeri *

https://www.freepascal.org/docs-html/rtl/sysutils/trystrtofloat.html

Io ad ogni modo preferisco il buon vecchio parser:

https://wiki.freepascal.org/How_To_Use_TFPExpressionParser

Morale: ci sono tanti modi diversi di affrontare lo stesso problema .


*
come nel fortran è possibile usare l' input formattato per leggere i dati da un file di testo o da un memo

https://www.freepascal.org/docs-html/rtl/sysutils/sscanf.html

alias: siamo nel campo della validazione del data entry; per l' input da tasiera c'è il "mask edit ":

https://wiki.freepascal.org/TMaskEdit

L' unico problema è "tararlo" , ossia collaudarlo per le reali esigenze dell' utenza finale; magari si potrebbe fare un 3ad ad hoc sulla validazione del data entry .

[alexarmato66]

Grazie Avogadro , mi toccherà studiare un botto!!

[Avogadro]

Sono solo modi per cercare di semplificarsi la vita nel data entry.

Preferisco creare dei file testo da dare poi "in pasto"  ai sw, piuttosto che stare lì a riempire caselle .

[Stilgar]

Viva la pigrizia creativa

[Avogadro]

Nessuna pigirizia per creativa che essa sia, sto venendo da una visita medica -una tortura cinese - ed è venuto fuori che l'aver passato anni ed anni a fare data entry e a cliccare su caselle e message box su software pensati  a tutto eccetto che all' ergonomia mi ha causato dei problemi purtroppo irreversibili .

Anche queste sono cose da tenere in conto quando si progetta un software con un data entry massiccio.