[Risolto] TStringGrid dispettosa

[Stilgar]

Riformula la domanda.Non l'ho capita 

[Maxx]

Riformula la domanda.Non l'ho capita 

Hai ragione, mi sono espresso malissimo. 
Tra l'altro non è vero che non legge il RowCount, solo che mi andava fuori indice perché di default vengono inserite tot righe. Vabbè.

Il problema mi sorge col Delete.
Tu scrivi:

while contenitore.RowCount > 0 do
      contenitore.delete(0);

Poiché la mia TStringGrid si chiama Grid_Incassi, qual è la sintassi corretta per fare il Delete di una data riga su quella grid?
Premetto che il xiniysystem (per quel che mi serve) funziona, ma mi sembra piuttosto drastico.
E per nulla pratico se dovessi cancellare, ad esempio, la riga 2.

[Stilgar]

Codice: [Seleziona]

 if Grid_Incassi.RowCount > 1 then;
        for i := 1 to Grid_Incassi.RowCount do
         Grid_Incassi.Rows.Delete(i);  

Codice: [Seleziona]

         Grid_Incassi.Rows.Delete(0);  

in alternativa

Codice: [Seleziona]

 if Grid_Incassi.RowCount > 1 then;
        for i := Grid_Incassi.RowCount-1 downto 1 do
         Grid_Incassi.Rows.Delete(i);  

[Stilgar]

Per la riga 2.Metti l'indice 1 nella delete

[nomorelogic]

occhio che per le griglie bisogna tener presente quante sono le righe fisse (FixedRows)

[bonmario]

Poiché la mia TStringGrid si chiama Grid_Incassi, qual è la sintassi corretta per fare il Delete di una data riga su quella grid?

Dipende:
- se devi cancellare una singola riga fai Grid_Incassi.DeleteRow(Idx);
- se invece devi cancellare tutte le righe che soddisfano determinate caratteristiche, devi leggere la tabella al contrario, altrimenti l'indice potrebbe sforare il n° di righe. Cos' facendo, puoi cancellare le righe che vuoi. Qui un esempio fatto al volo:

Codice: [Seleziona]

      for Idx:=Grid_Incassi.RowCount - 1 downto Grid_Incassi.FixedRows do begin
        if (quello che vuoi tu) then begin
          Grid_Incassi.DeleteRow(Idx);
        end;
      end;

[Maxx]

Mi spiace Stilgar, ma il vincitore è bonmario! 

Il Tuo sistema va in errore

Compila il progetto, Destinazione: project1.exe: Codice di uscita 1, Errori: 2
unit1.pas(89,20) Error: Wrong number of parameters specified for call to "GetRows"
grids.pas(10623,28) Error: Found declaration: GetRows(LongInt):TStrings;

  Grid_Incassi.DeleteRow(2);    -> Ok
  Grid_Incassi.Rows.Delete(2);  -> Errore su citato!

Grazie a tutti.
Ma mi chiedo come mai sia così difficile reperire su www la sintassi corretta!

[Stilgar]

Hahahahah.
Ok. Ma non voleva essere una gara 😉

[Maxx]

Ovvio Stilgar, ci mancherebbe.

Sarebbe un casino se non potessi contare su di voi.
Grazie. Grazie infinite.

Ps. Non mi hai ancora insegnato a mettere il risolto sul topic!
Basta modificare il titolo?

[bonmario]

Mi spiace Stilgar, ma il vincitore è bonmario! 

Cosa ho vinto ?
 

Ciao, Mario

[Maxx]

Noi Veneti andiamo a prosecco virtuale, ma se guardi qui sotto c'è scritto "Aggiungi sondaggio". Possiamo accordarci per qualcos'altro, di virtuale.

E gratitudine reale, che però non fa volume!