* * * *

Privacy Policy

Forum ufficiale

Se non siete riusciti a reperire l'informazione che cercavate nei nostri articoli o sul nostro forum vi consiglio di visitare il
Forum ufficiale di Lazarus in lingua inglese.

Lazarus 1.0

Trascinare un file nel programma
DB concetti fondamentali e ZeosLib
Recuperare codice HTML da pagina web
Mandare mail con Lazarus
Stabilire il sistema operativo
Esempio lista in pascal
File INI
Codice di attivazione
Realizzare programmi multilingua
Lavorare con le directory
Utilizzare Unità esterne
TTreeView
TTreeview e Menu
Generare controlli RUN-TIME
LazReport, PDF ed immagini
Intercettare tasti premuti
Ampliare Lazarus
Lazarus e la crittografia
System Tray con Lazarus
UIB: Unified Interbase
Il file: questo sconosciuto
Conferma di chiusura di un applicazione
Liste e puntatori
Overload di funzioni
Funzioni a parametri variabili
Proprietà
Conversione numerica
TImage su Form e Panel
Indy gestiore server FTP lato Client
PopUpMenu sotto Pulsante (TSpeedButton)
Direttiva $macro
Toolbar
Evidenziare voci TreeView
Visualizzare un file Html esterno
StatusBar - aggirare l'errore variabile duplicata
Da DataSource a Excel
Le permutazioni
Brute force
Indy 10 - Invio email con allegati
La gestione degli errori in Lazarus
Pascal Script
Linux + Zeos + Firebird
Dataset virtuale
Overload di operatori
Lavorare con file in formato JSON con Lazarus
Zeos ... dietro le quinte (prima parte)
Disporre le finestre in un blocco unico (come Delphi)
Aspetto retrò (Cmd Line)
Lazarus 1.0
Come interfacciare periferica twain
Ubuntu - aggiornare free pascal e lazarus
fpcup: installazioni parallele di lazarus e fpc
Free Pascal e Lazarus sul Raspberry Pi
Cifratura: breve guida all'uso dell'algoritmo BlowFish con lazarus e free pascal.
Creare un server multithread
guida all'installazione di fpc trunk da subversion in linux gentoo
Indice
DB concetti fondamentali e connessioni standard
Advanced Record Syntax
DB concetti fondamentali e DBGrid
DB concetti fondamentali e TDBEdit, TDBMemo e TDBText
Advanced Record Syntax: un esempio pratico
Superclasse form base per programmi gestionali (e non)
Superclasse form base per programmi gestionali (e non) #2 - log, exception call stack, application toolbox
Superclasse form base per programmi gestionali (e non) #3 - traduzione delle form
Superclasse form base per programmi gestionali (e non) #4 - wait animation
Un dialog per la connessione al database:TfmSimpleDbConnectionDialog
Installare lazarus su mac osx sierra
immagine docker per lavorare con lazarus e free pascal
TDD o Test-Driven Development
Benvenuto! Effettua l'accesso oppure registrati.
Aprile 17, 2021, 04:37:11 pm

Inserisci il nome utente, la password e la durata della sessione.

16 Visitatori, 3 Utenti
 

Autore Topic: [Risolto] matrici globali  (Letto 513 volte)

petrusic

  • Sr. Member
  • ****
  • Post: 251
  • Karma: +0/-0
[Risolto] matrici globali
« il: Febbraio 27, 2021, 05:26:37 pm »
L'ostacolo di oggi si chiama
Citazione
frm2.pas(227,16) Error: Identifier not found "tbMovv"

tbMovv è una matrice che penso di avere dichiarata come globale.
Codice: [Seleziona]
unit frmmain;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, DB, Forms, Controls, Graphics, Dialogs, StdCtrls, ComCtrls,
  ExtCtrls, fpspreadsheet, laz_fpspreadsheet, Process, ZConnection, ZDataset,
  fpstypes; // , flcDynArrays; dovrebbe permettere di riordinare la seuenza degli elementi di un vettore

type

  { TForm1 }

  TForm1 = class(TForm)
    DataSource1: TDataSource;
    leInfoMov: TLabeledEdit;
    PulsFine: TButton;
    PulsAvvia: TButton;
    Label1: TLabel;
    lsDir: TListBox;
    ZConnection1: TZConnection;
    ZQuery1: TZQuery;
    procedure PulsFineClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure PulsAvviaClick(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}
uses
  frm2;
  //  frm2, tbComuni;
type
   TsSpreadsheetFormat = (sfExcel2, sfExcel5, sfExcel8, sfExcelXML, sfOOXML,
    sfOpenDocument, sfCSV, sfHTML, sfWikiTable_Pipes, sfWikiTable_WikiMedia, sfUser);

   TtbMovv = array of array of String;
   TtbResta = array of array of String;
   TtbRiep = array of array of String;

const
    dirFogli: string = '/media/dirdati/dativari/ContDom/';

var
//  MyWorkbook: TsWorkbook;   // dichiarazione necessaria per creare un'istanza della cartella di lavoro

  tbMovv: TtbMovv;
  tbResta: TtbResta;
  tbRiep: TtbRiep;

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);                     

L'errore l'ho ricevuto all'interno della Unit "frm2".

Ieri però ho scritto tante righe dentro la frm2 ed ho anche avviato la compilazione del programma più volte, senza mai ricevere messaggi d'errore. Quindi non ho capito più se verament5e c'è un problema.
Riporto qui sotto il gruppo di istruzioni dove il compilatore ha segnalato l'errore:
Codice: [Seleziona]
procedure TForm2.FormCreate(Sender: TObject);
var
  frmain: TForm;

  i, n, nuRec, totRecQry: Integer;
  ixTbMovv, ixTbResta, ixTbRiep: Integer;
  nuRgTbMovv, nuRgTbResta, nuRgTbRiep: Integer;
begin
--- bla --- bla ---
  //-------------------------------------------- Verifica presenza di righe in "tbMovv", "tbResta" e in "tbRiep" ------------------------------------------
  nuRgTbMovv:= tbMovv.Count/5;     //  )
  nuRgTbRiep:= tbRiep.Count/4;       //  (    Righe segnalate con l'errore NOT found
  nuRgTbResta:= tbResta.Count/5;   //  )
  if (nuRgTbMovv > 0) then
  begin
    ixTbMovv:= 0;
  end                         

 ???
« Ultima modifica: Marzo 03, 2021, 04:52:56 pm da petrusic »
ciao ciao

Stilgar

  • Global Moderator
  • Hero Member
  • *****
  • Post: 2211
  • Karma: +8/-0
Re:matrici globali
« Risposta #1 il: Febbraio 27, 2021, 10:18:27 pm »
Non è visibile.L'hai dichiarata nell'implementation e non nell'interface del modulo che la esporta.
Così a prima vista
Stilgar
Al mondo ci sono 10 tipi di persone ... chi capisce il binario e chi no.

petrusic

  • Sr. Member
  • ****
  • Post: 251
  • Karma: +0/-0
Re:matrici globali
« Risposta #2 il: Febbraio 28, 2021, 04:02:23 pm »
Non è visibile.L'hai dichiarata nell'implementation e non nell'interface del modulo che la esporta.

Ah!
Io avevo capito che tutti i miei type e var andassero scritti dopo l'implementation.
Ora ho spostato le mie dichiarazioni nella sezione Interface della Unit frmmain, così:
Codice: [Seleziona]
unit frmmain;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, DB, Forms, Controls, Graphics, Dialogs, StdCtrls, ComCtrls,
  ExtCtrls, fpspreadsheet, laz_fpspreadsheet, Process, ZConnection, ZDataset,
  fpstypes; // , flcDynArrays; dovrebbe permettere di riordinare la seuenza degli elementi di un vettore
type
  { TForm1 }

  TForm1 = class(TForm)
    DataSource1: TDataSource;
    leInfoMov: TLabeledEdit;
    PulsFine: TButton;
    PulsAvvia: TButton;
    Label1: TLabel;
    lsDir: TListBox;
    ZConnection1: TZConnection;
    ZQuery1: TZQuery;
    procedure PulsFineClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure PulsAvviaClick(Sender: TObject);

   TtbMovv = array of array of String;
   TtbResta = array of array of String;
   TtbRiep = array of array of String;
  end;

var
  Form1: TForm1;

  tbMovv: TtbMovv;
  tbResta: TtbResta;
  tbRiep: TtbRiep;

implementation
{$R *.lfm}
uses
  frm2;
type
   TsSpreadsheetFormat = (sfExcel2, sfExcel5, sfExcel8, sfExcelXML, sfOOXML,
    sfOpenDocument, sfCSV, sfHTML, sfWikiTable_Pipes, sfWikiTable_WikiMedia, sfUser);   // sfOpenDocument è il tipo di formato valido per OpenOffice/LibreOffice.ods
const
    dirFogli: string = '/media/dirdati/dativari/ContDom/';
var
{ TForm1 }
procedure TForm1.FormCreate(Sender: TObject);               
...
Ebbene, in quest'ultima, come in altre prove di posizionamento dei type nella sezione Interface, ricevo sempre ERRORE, un errore diverso ma, pur sempre errore:
Citazione
frmmain.pas(30,4) Error: Fields cannot appear after a method or property definition, start a new visibility section first

Insomma, tirando le somme, non ho capito nè trovato, come mi capita quasi sempre, un esempio calzante per i miei errori di codifica.
Ma allora dove vanno scritte le dischiarazioni globali (type, const e var) ?

Esiste una guida testuale chiara, possibilmente in italiano, che accompagni passo dopo passo il principiante?

Capisco che certe domande non dovrebbero fare parte della vita di un forum. Sono dispiaciuto e privo di mordente.
 ::)
« Ultima modifica: Febbraio 28, 2021, 04:04:28 pm da petrusic »
ciao ciao

nomorelogic

  • Global Moderator
  • Hero Member
  • *****
  • Post: 2416
  • Karma: +10/-2
Re:matrici globali
« Risposta #3 il: Febbraio 28, 2021, 04:36:52 pm »
l'errore ti spiega cona non va:

ti dice che un campo non può essere definito dopo un metodo od una proprietà
per ovviare puoi definire un'altra sezione di visibilità

ovvero puoi fare come segue:
Codice: [Seleziona]
TForm1 = class(TForm)
    DataSource1: TDataSource;
    leInfoMov: TLabeledEdit;
    PulsFine: TButton;
    PulsAvvia: TButton;
    Label1: TLabel;
    lsDir: TListBox;
    ZConnection1: TZConnection;
    ZQuery1: TZQuery;
    procedure PulsFineClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure PulsAvviaClick(Sender: TObject);
  private   // <- nuova sezione di visibilità, si può usare anche "public" o altra definizione di visibilità
   TtbMovv = array of array of String;
   TtbResta = array of array of String;
   TtbRiep = array of array of String;
  end;

oppure

Codice: [Seleziona]
TForm1 = class(TForm)
    DataSource1: TDataSource;
    leInfoMov: TLabeledEdit;
    PulsFine: TButton;
    PulsAvvia: TButton;
    Label1: TLabel;
    lsDir: TListBox;
    ZConnection1: TZConnection;
    ZQuery1: TZQuery;

   // field spostati prima dei metodi
   TtbMovv = array of array of String;
   TtbResta = array of array of String;
   TtbRiep = array of array of String;


    procedure PulsFineClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure PulsAvviaClick(Sender: TObject);
  end;


Edit:
La sequenza, la puoi trovare qui:
https://freepascal.org/docs-html/ref/refse34.html#x69-910006.1

capisco che c'è da farci l'occhio... :)
« Ultima modifica: Febbraio 28, 2021, 04:44:36 pm da nomorelogic »
Imagination is more important than knowledge (A.Einstein)

petrusic

  • Sr. Member
  • ****
  • Post: 251
  • Karma: +0/-0
Re:matrici globali
« Risposta #4 il: Febbraio 28, 2021, 05:20:34 pm »
per ovviare puoi definire un'altra sezione di visibilità

Purtroppo non funzionano nemmeno i tuoi suggerimenti. Il secondo l'avevo già provato prima del mio precedente post.
Ho provato ora anche questo:
Codice: [Seleziona]
type

  { TForm1 }

  TForm1 = class(TForm)

    DataSource1: TDataSource;
    leInfoMov: TLabeledEdit;
    PulsFine: TButton;
    PulsAvvia: TButton;
    Label1: TLabel;
    lsDir: TListBox;
    ZConnection1: TZConnection;
    ZQuery1: TZQuery;
    procedure PulsFineClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure PulsAvviaClick(Sender: TObject);

private
// public
  TtbMovv = array of array of String;
  TtbResta = array of array of String;
  TtbRiep = array of array of String;

Ed ecco cosa ne pensa il compilatore:
Citazione
frmmain.pas(31,11) Fatal: Syntax error, ":" expected but "=" found
private o public è la stessa medesima  cosa. Lo stesso errore mi viene fornito se metto in campo il tuo 2° esempio.

ciao ciao

nomorelogic

  • Global Moderator
  • Hero Member
  • *****
  • Post: 2416
  • Karma: +10/-2
Re:matrici globali
« Risposta #5 il: Febbraio 28, 2021, 06:17:43 pm »
prova a portare la dichiarazione di "array of array" prima di TForm1

Codice: [Seleziona]

type
  TAoA = array of array of String;


  TForm1
     ...
  private
     TtbMovv : TAoa;
     ...
  end;
 
 

Imagination is more important than knowledge (A.Einstein)

petrusic

  • Sr. Member
  • ****
  • Post: 251
  • Karma: +0/-0
Re:matrici globali
« Risposta #6 il: Febbraio 28, 2021, 10:07:37 pm »
prova a portare la dichiarazione di "array of array" prima di TForm1
Fatto, ma cambia solamente il messaggio d'errore:
Citazione
frm2.pas(69,13) Error: identifier idents no member "tbMovv"
ciao ciao

bonmario

  • Hero Member
  • *****
  • Post: 964
  • Karma: +1/-1
Re:matrici globali
« Risposta #7 il: Marzo 01, 2021, 07:59:33 am »
Ho il sospetto che tu stia usando "tbMovv", e non "Form1.tbMovv".

Puoi eventualmente postare il codice della dichiarazione attuale di TForm1, e quello che hai scritto per usare "tbMovv" dal Fom2?

Ciao, Mario

nomorelogic

  • Global Moderator
  • Hero Member
  • *****
  • Post: 2416
  • Karma: +10/-2
Re:matrici globali
« Risposta #8 il: Marzo 01, 2021, 08:24:34 am »
puoi pubblicare tutta la unit o almeno la parte implemenatation?

Edit:
pardon, la parte interface
« Ultima modifica: Marzo 01, 2021, 02:43:34 pm da nomorelogic »
Imagination is more important than knowledge (A.Einstein)

petrusic

  • Sr. Member
  • ****
  • Post: 251
  • Karma: +0/-0
Re:matrici globali
« Risposta #9 il: Marzo 01, 2021, 04:35:36 pm »
Ho il sospetto che tu stia usando "tbMovv", e non "Form1.tbMovv".
Puoi eventualmente postare il codice della dichiarazione attuale di TForm1, e quello che hai scritto per usare "tbMovv" dal Fom2?
Quello che succede è esattamente il contrario di quanto sospetti tu. Infatti, usandoi tbMovv soltanto non da errore, mentre Form1.tbMovv da errore.

L'errore si è manifestato infatti sulle righe che avevo modificato prima dell'ultima modifica suggerita da nomorelogic e che avevo dimenticato di ripristinare (senza Form1.)

Ecco le righe di  Form1 che mi avete chiesto, tu e nomorelogic :
Codice: [Seleziona]
unit frmmain;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, DB, Forms, Controls, Graphics, Dialogs, StdCtrls, ComCtrls,
  ExtCtrls, fpspreadsheet, laz_fpspreadsheet, Process, ZConnection, ZDataset,
  fpstypes; // , flcDynArrays; dovrebbe permettere di riordinare la seuenza degli elementi di un vettore

type

  { TForm1 }
  TtbMovv = array of array of String;
  TtbResta = array of array of String;
  TtbRiep = array of array of String;

  TForm1 = class(TForm)

    DataSource1: TDataSource;
    leInfoMov: TLabeledEdit;
    PulsFine: TButton;
    PulsAvvia: TButton;
    Label1: TLabel;
    lsDir: TListBox;
    ZConnection1: TZConnection;
    ZQuery1: TZQuery;
    procedure PulsFineClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure PulsAvviaClick(Sender: TObject);




  end;

var
  Form1: TForm1;

  tbMovv: TtbMovv;
  tbResta: TtbResta;
  tbRiep: TtbRiep;
implementation                                                           

ecoo anche del passo di Form2, dove si verificava l'errore:
Codice: [Seleziona]
procedure CarRgTbMovv(ixTab, rgCorr,  n: Integer);
var
  coVoce: Integer;

  coVoceEdt, dtprec, sql, voCassa: String;
begin
  if (tbMovv[ixTab, 5] <> 'TOTALE') THEN
  begin
    Form2.GridMovv.Cells[1,rgCorr]:= tbMovv[ixTab, 5];  // Descrizione del movimento contabile
    coVoce:= StrToInt(tbMovv[ixTab, 1]);
    coVoceEdt:= EdtCoVo(coVoce);
    Form2.GridMovv.Cells[2,rgCorr]:= coVoceEdt;         // Es.:'1.01.600.005';
    coVoce:= coVoce div 1000;
    coVoce:= coVoce * 1000;
    sql := 'SELECT NomeVoce FROM piancont WHERE NumVoce = ' + IntToStr(coVoce);
    Form1.ZQuery1.SQL.Text := sql;                                                         

Col codice modificato, come riportato sopra, non da più errore.
« Ultima modifica: Marzo 01, 2021, 04:40:34 pm da petrusic »
ciao ciao

bonmario

  • Hero Member
  • *****
  • Post: 964
  • Karma: +1/-1
Re:matrici globali
« Risposta #10 il: Marzo 01, 2021, 04:53:11 pm »
Per forza ... con l'ultimo sorgente che ha postato, "tbMovv" lìhai dichiarata al di fuori di "TForm1", quindi quello che stai usando adesso, con il sorgente in queste condizioni, è il codice corretto.

Ciao, Mario

petrusic

  • Sr. Member
  • ****
  • Post: 251
  • Karma: +0/-0
Re:matrici globali
« Risposta #11 il: Marzo 02, 2021, 03:42:25 pm »
Per forza ... con l'ultimo sorgente che ha postato, "tbMovv" lìhai dichiarata al di fuori di "TForm1", quindi quello che stai usando adesso, con il sorgente in queste condizioni, è il codice corretto.
Non posso dire di avere capito.

Nei primi passi, avevo capito che le mie variabili dovevano essere dichiarate sempre nella sezione Implementation ( le locali dentro le procedure, le globali prima della prima procedure/function.

Ho scoperto da poco che le variabili globali devono fare parte della sezione Interface. Mi sono detto, allora: va bene, ho capito male prima. Ora sta venendo fuori, praticamente, che, addirittura, devo dichiararle prima della Form1.
Ma io, prima della Classe Tform1 ho dichiarato i type delle matrici, mentre le variabili sono dichiarate nella sezione var, dopo la Form1.
Quiindi, se fra variabili globali dovessi disporre anche di una stringa "campoGlobale", non avendo bisogno di dichiarare anche il corrispondente type, potrei farlo benissimo, fra le var, dopo la Form1?

Credo di avere raggiunto un livello abbastanza disordinato e confuso nelle mie conoscenza di base su questo linguaggio.
*?*  ???  *?*
ciao ciao

bonmario

  • Hero Member
  • *****
  • Post: 964
  • Karma: +1/-1
Re:matrici globali
« Risposta #12 il: Marzo 02, 2021, 04:41:59 pm »
Sei capisce dalle domande che fai che hai le idee confuse !!!

Tutto dipende dalla "Visibilità" che devi dare alla variabili, ed all'uso che ne devi fare.

Facendo riferimento ai nomi che hai usato tu nel codice che hai postato:
- se tbMovv la devi usare SOLO nelle procedure che hai nella "implementation", la puoi dichiarare nella implementation
- se tbMovv la devi usare nei sorgenti che usano la unit dove la stai dichiarando, la DEVI dichiarare prima della implementation. Occhio però: in questo modo avrai una sola variabile di nome tbMovv. Se nella unit di Form2, usi 2 variabili, Pippo e Pluto, entrambe di tipo TForm1, entrambe punteranno alla stessa tbMovv
- se invece vuoi dichiarare 2 variabili Pippo e Pluto di tipo TForm1, ed ognuna di loro deve avere la sua tbMovv, la devi dichiarare all'interno della "public" della dichiarazione di TForm1

Spero di non aver dimenticato nulla ...

P.S. Naturalmente, queste considerazioni valgono sempre, ho solo usato i nomi che hai dato tu, per cercare di essere più chiaro.


Ciao, Mario

petrusic

  • Sr. Member
  • ****
  • Post: 251
  • Karma: +0/-0
Re:matrici globali
« Risposta #13 il: Marzo 02, 2021, 11:09:24 pm »
Facendo riferimento ai nomi che hai usato tu nel codice che hai postato:
- (se tbMovv la devi usare SOLO nelle procedure che hai nella "implementation", la puoi dichiarare nella implementation)
- se tbMovv la devi usare nei sorgenti che usano la unit dove la stai dichiarando, la DEVI dichiarare prima della implementation. Occhio però: in questo modo avrai una sola variabile di nome tbMovv. Se nella unit di Form2, usi 2 variabili, Pippo e Pluto, entrambe di tipo TForm1, entrambe punteranno alla stessa tbMovv
il 1° criterio d'uso è chiaro.
il  2° è proprio quello che devo mettere in pratica.
Però mi viene difficile capire il perchè, oltre alla sezione var, devo tenere conto di una strana posizione, a mio avviso,  dei type relativi alle variabili. Nei type dichiaro le classi di appartenenza delle variabili. Allora non dovrei scrivere tali dichiarazioni pure sotto il type TForm1?
Es.:
Codice: [Seleziona]
type

  { TForm1 }
  TForm1 = class(TForm)

  TtbMovv = array of array of String;
  TtbResta = array of array of String;
  TtbRiep = array of array of String;

    DataSource1: TDataSource;
    leInfoMov: TLabeledEdit;                         
...
var
  Form1: TForm1;

  tbMovv: TtbMovv;
  tbResta: TtbResta;
  tbRiep: TtbRiep;

implementation               
 
Invece, per fare funzionare il riconoscimento da parte del compilatore, ho dovute scrivere:
Codice: [Seleziona]
type

  { TForm1 }
  TtbMovv = array of array of String;
  TtbResta = array of array of String;
  TtbRiep = array of array of String;

  TForm1 = class(TForm)                 
...
:o


« Ultima modifica: Marzo 02, 2021, 11:11:39 pm da petrusic »
ciao ciao

nomorelogic

  • Global Moderator
  • Hero Member
  • *****
  • Post: 2416
  • Karma: +10/-2
Re:matrici globali
« Risposta #14 il: Marzo 03, 2021, 12:27:48 am »
quando dichiari tipi o variabili nella sezione interface e/o implementation
queste dichiarazioni hanno visibilità relativa all'intera unit
come già detto:
- interface = visibilità anche all'esterno della unit (tramite clausola uses si ottiene visibilità)
- implementation = visibilità solo all'interno della unit stessa


ciò che invece dichiari all'interno di una classe definisce una visibilità esclusiva alla classe
se metti la dichiarazione "TtbMovv = array of array of String" all'interno della classe TForm1, questo tipo non sarà visibile all'esterno della classe
infatti nell'esempio che non ti funziona, dichiaravi in var delle variabili ma var è esterna alla dichiarazione di TForm1 e quindi TtbMovv  non è visibile
la regola è semplice: i tipi incapsulati nella dichiarazione di una classe sono visibili esclusivamente nella classe stessa

spostando la dichiarazione sopra TForm1 in realtà hai postato la dichiarazione fuori dalla classe ma all'interno della unit
è per questo che in var diventano visibili



Imagination is more important than knowledge (A.Einstein)

 

Recenti

How To

Utenti
  • Utenti in totale: 707
  • Latest: panfra
Stats
  • Post in totale: 14708
  • Topic in totale: 1832
  • Online Today: 27
  • Online Ever: 900
  • (Gennaio 21, 2020, 08:17:49 pm)
Utenti Online
Users: 3
Guests: 16
Total: 19

Disclaimer:

Questo blog non rappresenta una testata giornalistica poiché viene aggiornato senza alcuna periodicità. Non può pertanto considerarsi un prodotto editoriale ai sensi della legge n. 62/2001.