problema traduzione da Visual Basic a Lazarus

[alexarmato66]

come potrei tradurre il seguente codice Visual Basic

ReDim Preserve MomentiRottura.polix(NP).X(1 To MomentiRottura.polix(NP).numv)

in Lazarus ?

grazie!

[DragoRosso]

Sbaglierò, ma quello non è un codice nativo di VB.
Appartiene a qualche libreria o algoritmo di ingeneria e dovrebbe essere legato al calcolo su strutture 3D del dominio di rottura su una sezione.

Su questo, ritengo che un ingegnere civile del forum possa darti una mano.

In generale "REDIM" in VB è equivalente a "SetLength" in Pascal.
La scrittura "1 To MomentiRottura.polix(NP).numv" equivale alla definizione di un array. Però senza una definizione del contenuto dell'array non è possibile definire l'array stesso.

Come dato generico, la scrittura potrebbe essere equivalente a:

// ATTTENZIONE CHE IN PASCAL GLI ARRAY DINAMICI (CHE SONO GLI UNICI CHE POSSONO ESSERE RIDIMENSIONATI) INIZIANO CON INDICE 0 E NON 1.
// QUINDI L'ARRAY sotto indicato avà un indice in più, ossia lo zero.

Codice: [Seleziona]

SetLength(MomentiRottura.polix[NP].X, MomentiRottura.polix[NP].numv+1);

[Stilgar]

come potrei tradurre il seguente codice Visual Basic

ReDim Preserve MomentiRottura.polix(NP).X(1 To MomentiRottura.polix(NP).numv)

in Lazarus ?

grazie!

Ciao.
Cosa dovrebbe fare di preciso questa istruzione? Magari Drago ti ha già risposto, ma sono curioso lo stesso
Stilgar

[alexarmato66]

Sto traducendo in Pascal per Lazarus un codice scritto in VB per il calcolo delle sezioni in c.a. .
Avevo usato Redim Preserve per non perdere i dati iniziali della matrice .In VB usando REDIM azzero la matrice.
Volevo sapere se in Pascal con SetLength preservavo i dati gia memorizzati nella matrice aggiungendo dei nuovi dinamicamente.
Grazie.

[DragoRosso]

Il contenuto degli elementi esistenti vengono preservati.

Quando fai un SetLegnth, internamente il vecchio array viene copiato in una nuova posizione di memoria.

Ricordati che l'indice in Pascal parte da zero per gli array dinamici.

Saluti

[Stilgar]

Avendo sempre messo dati nativi dentro gli array, o oggetti che dovevo passare ad altri pezzi di software, non mi sono mai posto la questione se :
Viene invocato il "finalize" degli elementi se rimpicciolisco l'array?


Se allarghi l'array non hai problemi di questo tipo. Ti prepara degli spazi "vuoti" da assegnare come preferisci.


[0..Length-1] sono gli indici validi.


In alternativa puoi usare Low(tuoArray) e High(tuoArray) per avere gli indici minori e superiori validi.


Se vuoi ancora meno sbattimenti puoi usare gli enumeratori automatici.


Dichiari una variabile del tipo che ti interessa e la usi nel ciclo for che diventa

Codice: [Seleziona]

for variabileDelTipoCheTiInteressa in ilTuoArray do
begin
end;

Spero di essere stato d'aiuto.


Stilgar


Stilgar

[DragoRosso]

Negli array dinamici, il contenuto andrebbe distrutto prima di liberare gli indici interessati (quindi distruggerlo o rimpicciolirlo).

Questo comunque andrebbe fatto (o sarebbe meglio fare), in quanto i distruttori PASCAL e VB (ma anche C)non è detto che siano coerenti (ammesso e non concesso che gli oggetti contenuti non siano "Pascal").

Per default le nuove posizioni sono a 0 o nil.

Ciò sopra vale per il concorrente di Lazarus, ma ritengo sia allineato anche Lazarus stesso.

Ricordati anche che gli array dinamici multidimensione (come il tuo) hanno l'accesso contiguo solo per "riga". Ma ogni riga potrebbe non essere contigua all'altra (anzi sicuramente non lo è).
Esempio:

NP := 1 (Elementi contigui tra loro)
MomentiRottura.polix(NP).X[0], MomentiRottura.polix(NP).X[1],  MomentiRottura.polix(NP).X[2] .....

NP := 2 (Elementi contigui tra loro)
MomentiRottura.polix(NP).X[0], MomentiRottura.polix(NP).X[1],  MomentiRottura.polix(NP).X[2] .....

Ma tra l'array con NP:=1 e l'array con NP:=2 non c'è alcun tipo di associazione, sono in memorie non contigue. I due array potrebbero avere anche lunghezza diversa.

Questo affinchè tu faccia attenzione a lavorare con i puntatori o funzioni che scrivono blocchi di memoria.

Ciao

[doc]

@ alexarmato66

Ma ti occupi di calcolo strutturale?

[alexarmato66]

Si

[alexarmato66]

Purtroppo SetLength(MomentiRottura.polix[np].x, MomentiRottura.polix[np].numv+1); 

mi da il seguente errore: Type mismatch.


è all'interno della seguente procedura:
Procedure calcola_MomentiRottura_A(dom : Dominio_Rottura; soll : soll_esterne; MomentiRottura : momenti_rottura;flag_convergenza : Boolean; flag_circa : Boolean; index : Integer);
.......
......
.....


Di seguito riporto le strutture che ho utilizzato per le dichiarazioni:




// Struttura dati che contiene i valore dei momenti di rottura della sezione  //
// -------------------------------------------------------------------------- //
    momenti_rottura = record
    mrx : Double;                        // Momento di rottura con asse momento x
    mry : Double;                        // Momento di rottura con asse momento y
    ang : Double;                        // Rotazione dell//asse neutro rispetto all//asse x, antioraria positiva
    polix : Array of poligono_sezione;   // Poligono che definisce la porzione di cls compressa della sezione
    sigma_so: Array of Double;               // ' Array contenente le tensioni nelle barre di armatura a rottura
    sigma_sp: Array of Double;              // ' Array contenente le tensioni nei trefoli a rottura
    def_rottura : deform_sezione;        // configutrazione deformativa a rottura
    etac_max : Double;                   // distanza tra l//asse neutro e la fibra maggiormente compressa a rottura
    etas_min : Double;                   // distanza tra l//asse neutro e la fibra maggiormente tesa a rottura
    curv_rottura : Double;               // curvatura della sezione a rottura
    End ;                                                                                   
 

/ Struttura dati in cui sono definiti i dati dei singoli poligoni che com-   //
// pongono la sezione                                                         //
// -------------------------------------------------------------------------- //
   poligono_sezione = record
   x:array[1..100] of Double ;          // coordinata x del vertice
   y:array[1..100] of Double ;          // coordinata y del vertice
   numv : Integer;                      // numero di vertici del poligono
   fck : Double;                        //' fck
   fd : Double ;                        // Resistenza massima di calcolo (per verifiche SLU)
   omog : Double ;                      // coefficiente di omogeneizzazione (per verifiche SLE)
   traz : Integer ;                     // 0=non reagente a trazione; 1=reagente a trazione
   epsc0 : Double;                      // Deformazione in corrispondenza della fine della parte parabola/lineare del dominio
   epscu : Double;                      // Deformazione ultima del dominio
   sigma:array[1..100] of Double ;
   end ;
// -------------------------------------------------------------------------- //             

[DragoRosso]

x:array[1..100] of Double ;          // coordinata x del vertice

Gli array statici non possono essere ridimensionati.

Devi ridefinire l'array X come dinamico (ma ovviamente l'indice partirà da ZERO) e rivedere il codice corrispondente.

Poi devi rivedere anche gli altri array se è il caso.

Ciao

[Stilgar]

Gli array statici se li definisci come "puntatori", diventano magicamente super dinamici
Ma devi sbatterti a gestirli bene.



Stilgar

[alexarmato66]

Grazie ai vostri importanti aiuti sto imparando tante cose.GRAZIE!!!!!
Altra tra questione (Enum Type):

posso scrivere:
Type
 FaseGetto = (Foro = 0 , Trave = 1, Getto = 2);

dichiarando:
tipogetto:array of  FaseGetto ;        //1 = Trave, 2 = Getto2aFase, 0 = Foro   

?

[alexarmato66]

//'carica geometria 1  *********************************************************
tipo1 := Form1.CB1.Text;

               case (tipo1) of

     'Trave': begin


        tipogetto[1] := Trave ;
        nv[1]:= StrToInt(Form1.EVertici1.Text);

   

        For k := 1 To nv[1] do
          begin
            X1[k]:=  StrToFloat(Form1.StringGrid1.Cells[1,k]);
            Y1[k]:=  StrToFloat(Form1.StringGrid1.Cells[2,k]);
          end;


        fck := StrToInt(Form1.CBcls1.Text);

     end;

    'Getto2aFase': begin
        tipogetto[1] := Getto;
        nv[1] := StrToInt(Form1.EVertici1.Text);
     
        For k := 1 To nv[1] do
          begin
            X1[k] :=  StrToFloat(Form1.StringGrid1.Cells[1,k]);
            Y1[k] :=  StrToFloat(Form1.StringGrid1.Cells[2,k]);
          end;

         fck := StrToInt(Form1.CBcls1.Text);

    end;

    'Foro': begin
        tipogetto[1] := Foro ;
        nv[1] := StrToInt(Form1.EVertici1.Text);
   
        For k := 1 To nv[1] do
          begin
            X1[k] :=  StrToFloat(Form1.StringGrid1.Cells[1,k]);
            Y1[k] :=  StrToFloat(Form1.StringGrid1.Cells[2,k]);
          end;

        fck := StrToInt(Form1.CBcls1.Text);

    end;

end ;
//******************************************************************************     

[DragoRosso]

tipoogetto[1] := .......      //ricordati nel codice un SetLength(tipooggeto, 2);

Case (tipo1) of                // tipo1 è una stringa, il case non può essere usato su stringhe, deve essere usato con
                                       // tipi integrali (integer, boolean, char) o altri tipi con un limite (HIGH e LOW) finiti,
                                       // in quanto il case viene risolto in compilazione.

Ciao