Inizializzazione array di record

[cappe]

già provato non funziona. Un'idea sarebbe utilizzare variabili inline ma ci sono su delphi. Forse sulle prossime versioni di fpc o in qualche modo che non conosco.

dovresti provare con qualcosa tipo

Codice: [Seleziona]

noi := sfigati.Create(  ( sononero: True ), ( sononero: True ) );

oppure se puoi fare in modo che calimero sia un oggetto

Codice: [Seleziona]

noi := sfigati.Create(  TCalimero.Create(true), TCalimero.Create(true) );

è da provare ma la strada credo sia questa

[cappe]

Sta buono, che più bravo di me.
Il punto è che a volte in questo modo, a mio avviso, si scrive codice più pulito.

@cappe

... ma quanto sono indietro? ... non mi sono mai chiesto nulla sulla esistenza di un "helper" sul create di un array. Sempre che sia un helper e non un metodo risolto dal compilatore.

Dopo una breve ricerca non ho trovato nulla sul "create" di un array in quel modo che hai indicato (e su Delphi funziona) .....

Questa illuminazione mattutina mi mette curiosità sul sapere se esiste un qualcosa per fare quello che suggerisci.

[DragoRosso]

Ho visto in Delphi come vengono creati gli array dinamici (Create(...) come indicato), ed in effetti è un costrutto del compilatore (mappato su dei metodi della System) che usa poi le RTTI per gestire i parametri.

Può essere che effettivamente si possano definire direttamente i "campi" nel Create.

A parte la curiosità, però nutro dei dubbi sulla validità effettiva di scrivere eventualmente in quel modo con delle "costanti" il tutto. Diciamo che non è proprio elegante e chiaro ... almeno così pare a me rivedendo il tutto.

E poi rimane comunque il fatto dell'eventuale refactoring, e con un codice scritto così la vedo comunque dura effettuarlo a colpo sicuro.

[nomorelogic]

ok, ok
quà c'è un workaround, lo ammetto (la funzione _GetSfigato)

però così il sorgente è comunque abbastanza leggibile e manutenibile
inoltre ho scoperto (si perché non lo sapevo o l'avevo dimenticato  ) che si può creare un array anche con le parentesi quadre...

Codice: [Seleziona]

program test_creazione_array;
type
  Tcalimero = record
    sonoNero : Boolean;
  end;
  Tsfigati = array of Tcalimero;

  function _GetSfigato(AValue: boolean): Tcalimero;
  begin
    result.sonoNero:=AValue;
  end;

var
  ErrorMsg: String;
  sf1, sf2, sf3, sf4: Tsfigati;
  a1, a2: Tcalimero;

begin

  a1.sonoNero:=True;
  a2.sonoNero:=True;

  sf1 := Tsfigati.create(a1,a2);
  WriteLn('sf1: ', Length(sf1));

  sf2 := [a1,a2];
  WriteLn('sf2: ', Length(sf2));

  sf3 := [ _GetSfigato(True), _GetSfigato(True) ];
  WriteLn('sf3: ', Length(sf3));

  sf4 := Tsfigati.Create( _GetSfigato(True), _GetSfigato(True) );
  WriteLn('sf4: ', Length(sf4));

end.

[cappe]

Bravo, buona soluzione.

[DragoRosso]

inoltre ho scoperto (si perché non lo sapevo o l'avevo dimenticato  ) che si può creare un array anche con le parentesi quadre...

... te l'avevo indicato in un post precedente (come var, ma ovviamente funziona anche come assegnazione pura) .... 

Comunque complimenti per la fantasia ... anche se continuo ad avere perplessità (ma rimangono assolutamente mie).

[nomorelogic]

mi rendo conto che la senilità avanza inesorabile 

[cappe]

Io volevo cercavo la soluzione nel linguaggio, dovrebbe esserci, ma ho perso troppo tempo.