[Risolto] ciclo For ... downto

[petrusic]

Oggi, per la prima volta in ambiente Pascal, mi trovo a dover eseguire un ciclo di tipo For ... downto.
Ebbene, con mia grande sorpresa il compilatore mi ha fornito il seguente  Messaggio di Errore:

frm9.pas(1636,23) Error: Illegal assignment to for-loop variable "i"

Ecco la porzione di codice contenente il ciclo:

Codice: [Seleziona]

function CessazioneCreDebMorti(): AnsiString;
var
 . . . 

  i, j, lun, n, nuPrimaRiga, nuRg, k, scarto: Integer;

. . .

for i:= nuRg downto nuPrimaRiga do
begin
   for j:= 0 to 4 do
   begin
      Form8.Grid_PreAmmort_Cessaz.Cells[j, i]:= '';
   end;
end;                                        

La variabile i é di tipo Integer. Ho cercato di capire perchè è considerata illegale.

Se nella forma ordinaria del ciclo (For ... to) è consentita, allo stesso modo dovrebbe esserlo nella forma   (For ... downto).

Ho cercato una qualche spiegazione in merito, ma non ho trovato niente che mi indirizzi su una variabile di tipo diverso. Tuttavia ho provato ma dichiarala di tipo word, ma non è cambiato niente.

Cosa bisogna fare allora perchè il compilatore non s'arrabbi?

[DragoRosso]

A me quel pezzo di codice compila correttamente (Lazarus 3.6 stable release).

D'altronde non ci sono anomalie di sorta. L'unica cosa che potrebbe accadere è che per qualche motivo i "parametri" di Cells[...] sono dichiarati VAR ... in questo caso ovviamente il compilatore si arrabbia.

Però quello che hai postato non è il pezzo di codice interessato all'errore ... la variabile "i" è posizionata ben oltre la colonna 23 indicata dal compilatore ...

[petrusic]

A me quel pezzo di codice compila correttamente (Lazarus 3.6 stable release).

D'altronde non ci sono anomalie di sorta. L'unica cosa che potrebbe accadere è che per qualche motivo i "parametri" di Cells[...] sono dichiarati VAR ... in questo caso ovviamente il compilatore si arrabbia.

Però quello che hai postato non è il pezzo di codice interessato all'errore ... la variabile "i" è posizionata ben oltre la colonna 23 indicata dal compilatore ...

Allego la porzione di codice con la riga evidenziata  dal compilatore. La variabile i è proprio alla posizione 23.

[bonmario]

Codice: [Seleziona]

procedure TForm1.FormCreate(Sender: TObject);
var nuRg, nuPrimaRiga, i, j:Integer;
begin
  if (nuRg > nuPrimaRiga) then
  begin
    for i:=nuRg downto nuPrimaRiga do
    begin
      for j:=0 to 4 do
      begin
        Sleep(0);
      end;
    end;
  end;
end;

Compila senza problemi ...
A me vengono in mente solo 2 cose: o c'è qualcosa nel resto del codice che in qualche maniera rompe le scatole, oppure la versione del compilatore che usi ha qualche bug.

Una cosa: se fai un "CTRL + Click tastro SX del mouse" sulle 2 variabili nuRg e nuPrimaRiga, ti va dove c'è la loro dichiarazione. E' possibile che hai usato gli stessi nomi in un altro punto del sorgente, e non ti vede quelle che pensi tu, ma altre 2  che non sono "integer"?

Ciao, Mario

[petrusic]

A me vengono in mente solo 2 cose: o c'è qualcosa nel resto del codice che in qualche maniera rompe le scatole, oppure la versione del compilatore che usi ha qualche bug.

Che il problema sorga dalla versione del compilatore, lo escludo. Ho provatro nello stesso punto a sostituire il ciclo for ... downto con  quello for ... to e viene sempre segnalato l'Errore  in quel punto.

Intanto, per andare avanti, ho sostituito il ciclo "for ... downto" con il ciclo While e posso così continuare a provare il mio codice. Quando avrò sistemato quella parte di programma riproverò il  "for ... downto"  e vi faccio sapere.

Grazie a tutti.

[petrusic]

 
Ho scoperto l'imghippo: Purtroppo vi ho scomodato per niente.

Il ciclo "for ... downto" è interno ad un altro ciclo for, dove impiego già la variabile "i".

Me ne sono dimenticato !!!   

Vi chiedo umilmente scusa.

[bonmario]

Se vuoi un consiglio, evita i nomi di variabili di una lettera sola, in questo caso, ad esempio, avresti potuto usare "IdxRiga". Oltre ad avere un nome "parlante", è anche molto più semplice da cercare, rispetto ad "i"

Ciao, Mario

[DragoRosso]

C'è da dire comunque che i messaggi del compilatore (FPC) potrebbero essere forniti con una maggiore precisione.

Non avendo Lazarus un sistema di visualizzazione degli errori in "EDIT" (come Insight di Embarcadero o altre soluzioni come ha Microsoft), dovrebbe essere fornita una più precisa identificazione dell'errore in compilazione.

Ciao.