* * * *
40 Visitatori, 0 Utenti

Autore Topic: [ Risolto] passaggio di matrice per riferimento  (Letto 442 volte)

petrusic

  • Full Member
  • ***
  • Post: 117
  • Karma: +0/-0
[ Risolto] passaggio di matrice per riferimento
« il: Aprile 04, 2020, 07:57:17 pm »
Ciao a tutti,
dovendo, per una verifica, sfruttare il contenuto di una matrice fra tre, di diversa lunghezza l'una dall'altra, ho pensato di richiamare sempre una procedura, passandole il riferimento alla matrice corretta per la verifica:
Codice: [Seleziona]
unit cofamtrasf;
--- bla --- bla ---
private
    type
      PtbCoCas = ^TtbCoCas;
      TtbCoCas = array[0..1, 0..1] of Integer;
      PtbCoPartMov = ^TtbCoPartMov;
      TtbCoPartMov = array[0..2, 0..1] of Integer;
      PtbCoPreMom = ^ TtbCoPreMom;
      TtbCoPreMom = array[0..1, 0..1] of Integer;
  const
    TtbCas: TtbCoCas = ((101001000, 101001997),
                      (101001990, 101001999));
    TtbPartMov: TtbCoPartMov = ((102001000, 103999999),
                              (105001000, 203999999),
                              (205001000, 999999999));
    TtbPreMom: TtbCoPreMom = ((104001000, 104999000),
                          (204001000, 204999000));   
--- bla --- bla ---
procedure carCombo(Var TtbCoVoci);
var
  i, ii, iMax: integer;
begin
  iMax=TtbCoVoci.length/2-1;
  for i:= 0; to iMax do
    for ii:= 0 to 1 do
      writeln('TtbCoVoci[', i,', ', ii, '] = ', TtbCoVoci[i, ii]);
end;                                                                 

procedure TForm1.VoMasPartChange(Sender: TObject);
begin
     case VoMasPart.Text of
          'Cassa':
             carCombo(TtbCas);
          'Partmovv':
            carCombo(TtbPartMov);
          'Prestmom':
            carCombo(TtbPreMom);
     end;
end;                                       

In compilazione ricevo l'errore :
Citazione
cofamtrasf.pas(131,18) Error: Illegal qualifier
relativo a:
Codice: [Seleziona]
procedure carCombo(Var TtbCoVoci);
var
  i, ii, iMax: integer;
begin
  iMax=TtbCoVoci.length/2-1;                                             
La posizione 131,18 e la prima lettera della parola length
Ma molto probabilmente l'errore si riferisce alla costante TtbCoVoci che ora dovrei usare per lavorare sul valore contenuto all'indirizzo di memoria passato per riferimento.
Purtroppo non ho trovato niente sull'argomento specifico.
« Ultima modifica: Aprile 14, 2020, 05:05:42 pm da petrusic »
ciao ciao

petrusic

  • Full Member
  • ***
  • Post: 117
  • Karma: +0/-0
Re:passaggio di matrice per riferimento
« Risposta #1 il: Aprile 04, 2020, 09:47:32 pm »
Scusate, Ho quasi risolto.
L'errore precedente è superato. era determinato da:
Codice: [Seleziona]
procedure carCombo(Var TtbCoVoci);
Infatti si doveva scrivere
Codice: [Seleziona]
procedure carCombo(Var TtbCoVoci:integer);
Mi era sfuggito.
 :'(  :)
ciao ciao

petrusic

  • Full Member
  • ***
  • Post: 117
  • Karma: +0/-0
Re:passaggio di matrice per riferimento
« Risposta #2 il: Aprile 08, 2020, 11:47:58 am »
Non riesco a passare il riferimento alla matrice corretta alla procedura carCombo, che dovrebbe svolgere l'accesso al DB per la lettura della tabella di pertinenza.
Ho modificato il mio programma, riscrivendo gran parte del codice nell'editor sorgente che riporto, nelle parti salienti qui:
Codice: [Seleziona]
unit cofamtrasf;   {Classe: tipo Form_Main}

{$mode objfpc}{$H+}

interface

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes, SysUtils, db, Forms, Controls, Graphics, Dialogs, StdCtrls, EditBtn,
  ExtCtrls, DBGrids, DBCtrls, ZConnection, ZDataset;

type
  { TForm1 }

  TForm1 = class(TForm)         
--- bla --- bla ---
 private
  var
    FmatriceCassa: array[0..1] of array [0..1] of Integer;
    FmatricePartitario: array[0..2] of array [0..1] of Integer;
    FmatricePrestiti: array[0..1] of array [0..1] of Integer;
    i: Integer;

  public

    end;

  var
  Form1: TForm1;


implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormActivate(Sender: TObject);
begin
  FmatriceCassa[0,0]:= 101001000; FmatriceCassa[0,1]:= 101001997;     // 1° range conti di Cassa (tabella movimgg)}
  FmatriceCassa[1,0]:= 101001990; FmatriceCassa[1,1]:= 101001999;     // ultimo range conti di Cassa (tabella movimgg)
  FmatricePartitario[0,0]:= 102001000; FmatricePartitario[0,1]:= 103999999;     // 1° range conti di contropartita (tabella partmovv)
  FmatricePartitario[1,0]:= 105001000; FmatricePartitario[1,1]:= 203999999;     // 2° range conti di contropartita (tabella partmovv)
  FmatricePartitario[2,0]:= 205001000; FmatricePartitario[2,1]:= 999999999;     // ultimo range conti di contropartita (tabella partmovv)
  FmatricePrestiti[0,0]:= 104001000;   FmatricePrestiti[0,1]:= 104999000;     // 1° range conti di contropartita (tabella prestmoom)
  FmatricePrestiti[1,0]:= 204001000;   FmatricePrestiti[1,1]:= 204999000;     // ultimo range conti di contropartita (tabella prestmoom)}
end;
procedure carCombo(FnomeMatrice: String; FNumRighe: Integer);
var
  i: Integer;
  ii: Integer;
begin
  for i := 0 to FNumRighe do
    for ii := 0 to 1 do
      begin
        writeln('Form1.FnomeMatrice[', i,', ', ii, '] = ', Form1.FnomeMatrice[i, ii]);
      end;
end;

procedure TForm1.VoMasPartChange(Sender: TObject);
begin
     case VoMasPart.Text of
          'Cassa':
             carCombo('FmatriceCassa', 2);
          'Partmovv':
            carCombo('FmatricePartitario', 3);
          'Prestmom':
            carCombo('FmatricePrestiti', 2);
      end;
end;

end.                                                                                             
Secondo me scrivendo, nella procedura carCombo
Codice: [Seleziona]
writeln('Form1.FnomeMatrice[', i,', ', ii, '] = ', Form1.FnomeMatrice[i, ii]);
avrei dovuto puntare direttamente alla matrice corretta, invece mi sbaglio.
Ho provato a mettere il riferimento VAR dentro i parametri di ingresso di detta procedura, ma ricevo errore.
Ricordo di aver letto da qualche parte, ma non ricordo dove, che esiste una parola chiave che funziona come il this di java, che avrei voluto scrivere al posto di Form1.
Avrei voluto sfruttare le caratteristiche di un array dinamico, ma non ho capito si funziona sola per i vettori.
Come si vede, ho idee , tutte confusamente ingarbugliate. 
Avrei bisogno di rimetterle in ordine per proseguire. Chissà, forse il dovere affrontare oggi problematiche per me complesse, mi potrà aiutare a conoscere più in dettaglio il Free Pascal.
ciao ciao

xinyiman

  • Administrator
  • Hero Member
  • *****
  • Post: 2843
  • Karma: +9/-0
Re:passaggio di matrice per riferimento
« Risposta #3 il: Aprile 08, 2020, 01:16:06 pm »
Devi sapere che matrici ed array per essere passati per referenza hanno bisogno di un piccolo barbatrucco. Esempio
Segue un piccolo esempio. Io l'ho usato con gli array, mai con le matrici. Spero funzioni correttamente.

type
      TMyMatrix = array[0..1] of array [0..1] of Integer;

var
    MiaMatrice : TMyMatrix;

procedure (var Matrix : TMyMatrix);

Ieri è passato, domani è futuro, oggi è un dono...

nomorelogic

  • Global Moderator
  • Hero Member
  • *****
  • Post: 2277
  • Karma: +10/-2
Re:passaggio di matrice per riferimento
« Risposta #4 il: Aprile 08, 2020, 01:25:46 pm »
un altro paio di esempi funzionanti

Codice: [Seleziona]
program project1;

type
   TMatrice = array of array of Integer;


    procedure Stampapatrice(UnaMatrice: TMatrice);
    var i: Integer;
        ii: Integer;
    begin
      for i := 0 to high(UnaMatrice) do
        for ii := 0 to high(UnaMatrice[0]) do
          begin
            writeln('    UnaMatrice[', i,', ', ii, '] = ', UnaMatrice[i, ii]);
          end;
    end;

var
  FmatriceCassa, FmatricePartitario: TMatrice;

begin

   FmatriceCassa := TMatrice.Create(
                                      [ 101001000, 101001997 ],
                                      [ 101001990, 101001999 ]
                                    );

   writeln('FmatriceCassa');
   Stampapatrice(FmatriceCassa);
   writeln('');


   writeln('FmatricePartitario');
   SetLength(FmatricePartitario, 3, 2);
   FmatricePartitario[0,0]:= 102001000; FmatricePartitario[0,1]:= 103999999;     // 1° range conti di contropartita (tabella partmovv)
   FmatricePartitario[1,0]:= 105001000; FmatricePartitario[1,1]:= 203999999;     // 2° range conti di contropartita (tabella partmovv)
   FmatricePartitario[2,0]:= 205001000; FmatricePartitario[2,1]:= 999999999;     // ultimo range conti di contropartita (tabella
   Stampapatrice(FmatricePartitario);


end.
Imagination is more important than knowledge (A.Einstein)

petrusic

  • Full Member
  • ***
  • Post: 117
  • Karma: +0/-0
Re:passaggio di matrice per riferimento
« Risposta #5 il: Aprile 08, 2020, 06:28:30 pm »
 
un altro paio di esempi funzionanti
...
Bene, l'idea di mettere in pratica l'utilizzo delle matrici dinamiche, mi pare appropriata ed ho modificato il programma inserendo le istruzioni del tuo esempio, infatti dovrò di volta in volta chiamare la procedura subordinata, alla quale dovrò passare solo una delle tre matrici.
Non capisco però dove sbaglio, perchè, in compilazione ricevo una sfilza di errori, come da allegato.
Avendo creato per questa prova un nuovo progetto Lazarus, allego anche tutto il file .pas
Allego anche tutto il file.pas
ciao ciao

nomorelogic

  • Global Moderator
  • Hero Member
  • *****
  • Post: 2277
  • Karma: +10/-2
Re:passaggio di matrice per riferimento
« Risposta #6 il: Aprile 08, 2020, 06:52:40 pm »
beh, manca la dichiarazione di TMatrice
guarda nel mio sorgente ;)
Imagination is more important than knowledge (A.Einstein)

petrusic

  • Full Member
  • ***
  • Post: 117
  • Karma: +0/-0
Re:passaggio di matrice per riferimento
« Risposta #7 il: Aprile 08, 2020, 10:53:25 pm »
beh, manca la dichiarazione di TMatrice
guarda nel mio sorgente ;)
No, la dichiarazione c'è. Può darsi che io l'abbia inserita male:
Codice: [Seleziona]
unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs;

type
  TForm1 = class(TForm)
  private
  type
    TMatrice = array of array of Integer;

  public

  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }


procedure Stampapatrice(UnaMatrice: TMatrice);
ciao ciao

xinyiman

  • Administrator
  • Hero Member
  • *****
  • Post: 2843
  • Karma: +9/-0
Re:passaggio di matrice per riferimento
« Risposta #8 il: Aprile 09, 2020, 09:01:38 am »
beh, manca la dichiarazione di TMatrice
guarda nel mio sorgente ;)

No, la dichiarazione c'è. Può darsi che io l'abbia inserita male:
Codice: [Seleziona]
unit Unit1;

{$mode objfpc}{$H+}

[code]unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs;

 type
    TMatrice = array of array of Integer;

type
  TForm1 = class(TForm)
  private
            MiaMatrice : TMatrice;

  public

  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }


procedure Stampapatrice(UnaMatrice: TMatrice);

La dichiarazione di tmatrice va fuori dalla classe perchè è la dichiarazione di un tipo e non una variabile

Codice: [Seleziona]
interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs;

type
  TForm1 = class(TForm)
  private
  type
    TMatrice = array of array of Integer;

  public

  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }


procedure Stampapatrice(UnaMatrice: TMatrice);
« Ultima modifica: Aprile 09, 2020, 09:03:47 am da xinyiman »
Ieri è passato, domani è futuro, oggi è un dono...

petrusic

  • Full Member
  • ***
  • Post: 117
  • Karma: +0/-0
Re:passaggio di matrice per riferimento
« Risposta #9 il: Aprile 09, 2020, 09:44:38 am »
La dichiarazione di tmatrice va fuori dalla classe perchè è la dichiarazione di un tipo e non una variabile

Quindi tutte le dichiarazione "type" vanno inserite in testa al progetto, prima del type Form.
Mi dispiace non l'avevo capito. Se sbaglio però concetto, correggetemi, per piacere.

Ho apportato la modifica, ma la compilazione dà sempre errore, questa volta nella riga di testata della procedure TForm1.FormCreate(Sender: TObject);
dove ho inserito il create della matrici. Allego di nuovo tutto il codice sorgente, perchè non ho capito dove inserire nemmeno dette istruzioni.
Vi chiedo scusa per tutte queste mie richieste d'aiuto, ma, da solo, non sono in grado di andare avanti.
ciao ciao

bonmario

  • Hero Member
  • *****
  • Post: 845
  • Karma: +1/-1
Re:passaggio di matrice per riferimento
« Risposta #10 il: Aprile 09, 2020, 11:14:46 am »
Quindi tutte le dichiarazione "type" vanno inserite in testa al progetto, prima del type Form.

Dipende: se è un tipo che usi solo all'interno di una singola procedure o function, lo puoi dichiarare anche lì. Se invece lo usi in più procedure/function, lo devi dichiarare appena sopra alla dichiarazione del form

Ciao, Mario

xinyiman

  • Administrator
  • Hero Member
  • *****
  • Post: 2843
  • Karma: +9/-0
Re:passaggio di matrice per riferimento
« Risposta #11 il: Aprile 09, 2020, 04:09:27 pm »
Allego il tuo progetto corretto nel senso che compila, poi non ho idea se il risultato è quello che ti aspetti.

Tieni presente che ho tolto i tuoi writeln e li ho sostituiti ad un append nel campo memo. Perchè altrimenti potresti non vedere il risultato visto che si tratta di un programma con delle form e quindi a meno che non lo apri da console non vedi il risultato.
Ieri è passato, domani è futuro, oggi è un dono...

petrusic

  • Full Member
  • ***
  • Post: 117
  • Karma: +0/-0
Re:passaggio di matrice per riferimento
« Risposta #12 il: Aprile 09, 2020, 06:21:07 pm »
Allego il tuo progetto corretto nel senso che compila, poi non ho idea se il risultato è quello che ti aspetti.
Ho trovato righe che non sono riuscito a capire, tuttavia su tale mia difficoltà si può fare un approfondimento dopo.
Tornando all'esempio modificato e, per quanto mi dici, significa che hai avviato la compilazione , completandola.
Purtroppo devo dirti che la compilazione a me dà sempre errore.
ciao ciao

petrusic

  • Full Member
  • ***
  • Post: 117
  • Karma: +0/-0
Re:passaggio di matrice per riferimento
« Risposta #13 il: Aprile 10, 2020, 06:51:40 pm »
Quando ho cominciato questa discussione era il 4 aprile. Oggi è il 10 aprile. Sono perciò trascosi 7 giorni interi e, praticamente, sono sempre allo stesso punto, pur avendo fatto non so quanti cambiamenti, anche col vostro grande aiuto.
La compilazione non si completa. Mi viene il dubbio che Free Pascal non gestisca le matrici, ma soltanto vettori.
L'ho sparata grossa?  Può darsi, ma dopo sei giorni di battaglie perse, sfiderei qualunque principiante a pensarla diversamente da me.
Scusate, ma dovevo sfogarmi.
Oggi ho fatto questo ragionamento. Cosa succede se anzicchè puntare alla matrice non vado a caricarne i valori? E poi:  visto che la matrice è dichiarata a livello di Unit, perchè devo passarla alla procedura finale come parametro? Non posso richiamarla direttamente proprio nella procedura finale?
Mi sono così messo all'opera, ma ho perso di nuovo la battaglia perchè il compilatore produce l'errore:
Citazione
identifier not found "FmatriceComune"
ecco il codice:
Codice: [Seleziona]
unit cofamtrasf;   {Classe: tipo Form_Main}

{$mode objfpc}{$H+}

interface

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes, SysUtils, db, Forms, Controls, Graphics, Dialogs, StdCtrls, EditBtn,
  ExtCtrls, DBGrids, DBCtrls, ZConnection, ZDataset;

type
  { TForm1 }

  TForm1 = class(TForm)
    VoMasArri: TComboBox;
    VoMasPart: TComboBox;
    contabfamDB: TDataSource;
    DBSotCtoArri: TDBComboBox;
    DBVoSecArri: TDBComboBox;
    DbVoSecPart: TDBComboBox;
    DBSotCtoPart: TDBComboBox;
    pExit: TButton;
    PNoVis: TButton;
    DtFin: TDateEdit;
    DtIni: TDateEdit;
    Label5: TLabel;
    Label6: TLabel;
    pVia: TButton;
    CoVoPart: TEdit;
    CoVoArri: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    MovDest: TGroupBox;
    SotCtoPart: TComboBox;
    Label2: TLabel;
    SotCtoArri: TComboBox;
    VoSecPart: TComboBox;
    Label1: TLabel;
    MovTrasf: TGroupBox;
    VoSecArri: TComboBox;
    ZConnection1: TZConnection;
    ZQuery1: TZQuery;
    procedure FormActivate(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure pExitClick(Sender: TObject);
    procedure pExitEnter(Sender: TObject);
    procedure pExitExit(Sender: TObject);
    procedure PNoVisEnter(Sender: TObject);
    procedure VoMasPartChange(Sender: TObject);

  private
  type
   TmatriceComune= array of array of Integer;     // tipo di matrice dinamica
   TmatriceCassa= array[0..1] of array [0..1] of Integer;
   TmatricePartitario= array[0..2] of array [0..1] of Integer;
   TmatricePrestiti= array[0..1] of array [0..1] of Integer;
  var
    FmatriceComune: TmatriceComune;
    FmatriceCassa: TmatriceCassa;
    FmatricePartitario: TmatricePartitario;
    FmatricePrestiti: TmatricePrestiti;

  public

    end;

  var
  Form1: TForm1;


implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormActivate(Sender: TObject);

begin
  FmatriceCassa[0,0]:= 101001000;   FmatriceCassa[0,1]:= 101001997;     // 1° range conti di Cassa (tabella movimgg)}
  FmatriceCassa[1,0]:= 101001990;   FmatriceCassa[1,0]:= 101001999;        // ultimo range conti di Cassa (tabella movimgg)}

  FmatricePartitario[0,0]:= 102001000; FmatricePartitario[0,1]:= 103999999;     // 1° range conti di contropartita (tabella partmovv)
  FmatricePartitario[1,0]:= 105001000; FmatricePartitario[1,1]:= 203999999;     // 2° range conti di contropartita (tabella partmovv)
  FmatricePartitario[2,0]:= 205001000; FmatricePartitario[2,1]:= 999999999;     // ultimo range conti di contropartita (tabella

  FmatricePrestiti[0,0]:= 104001000;   FmatricePrestiti[0,1]:= 104999000;     // 1° range conti di contropartita (tabella prestmoom)
  FmatricePrestiti[1,0]:= 204001000;   FmatricePrestiti[1,1]:= 204999000;     // ultimo range conti di contropartita (tabella prestmoom)}}

end;

procedure TForm1.FormCreate(Sender: TObject);
begin

end;

procedure TForm1.pExitClick(Sender: TObject);
begin
  Application.Terminate;
end;

procedure TForm1.pExitEnter(Sender: TObject);
begin

end;

procedure TForm1.pExitExit(Sender: TObject);
begin

end;

procedure TForm1.PNoVisEnter(Sender: TObject);
begin
end;
procedure carCombo(FNumRighe: Integer);
var
  i: Integer;
  ii: Integer;
begin
  for i := 0 to FNumRighe do
    for ii := 0 to 1 do
      begin
        writeln('FmatriceComune[', i,', ', ii, '] = ', FmatriceComune[i, ii]);   //*** riga dell'ERROR ***
      end;
end;
procedure TForm1.VoMasPartChange(Sender: TObject);
var
  FnumEl: Integer;
begin
  case VoMasPart.Text of
    'Cassa':
      FmatriceComune = FmatriceCassa;
      FnumEl = 2;
    'Partmovv':
      FmatriceComune = FmatricePartitario:
      FnumEl = 3;
    'Prestmom':
      FmatriceComune = FmatricePrestiti;
      FnumEl = 2;
  end;
  carCombo(FnumEl);
end;

end.

É così che viene voglia di gettare tutto alle ortiche.
« Ultima modifica: Aprile 10, 2020, 06:56:47 pm da petrusic »
ciao ciao

xinyiman

  • Administrator
  • Hero Member
  • *****
  • Post: 2843
  • Karma: +9/-0
Re:passaggio di matrice per riferimento
« Risposta #14 il: Aprile 11, 2020, 11:15:56 am »
Per quanto riguarda la tua compilazione sembrerebbe che gli hai passato dei numeri troppo grandi alle matrici. Su quale sistema operativo stai lavorando?

Per fugare ogni tuo dubbio ti ho fatto un esempio per lavorare con le matrici.
Compilalo, ci sono tre pulsanti.
Il primo ti fa capire come lavorare con le matrici dinamiche dichiarate nella stessa funzione del codice.
Il secondo pulsante fa riferimento ad una matrice dichiarata globalmente.
Il terzo pulsante dichiara la matrice localmente ma poi fa caricare la matrice da un'altra procedura passandogli la matrice per referenza.

Guarda il codice e dimmi se hai capito come funzionano.

Inoltre guarda qui: http://www.lazaruspascal.it/index.php?page=23
E' un vecchio tutorial che scrissi riguardo alle matrici ormai 9 anni fa.

Un'ultima cosa, questo forum è portato avanti in maniera amatoriale, la gente risponde quando ha tempo e nei limiti del suo tempo libero, diventa inutile perdere la pazienza e gettare tutto alle ortiche. Invece perseverare e provare fino a che non ci si riesce paga sempre. Infatti io ho imparato così ad usare Lazarus. Successivamente ho aperto questo forum di supporto in italiano, dove sono confluiti altri bravi programmatori.
Ieri è passato, domani è futuro, oggi è un dono...

 

Recenti

How To

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

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.