[Risolto] creare un pacchetto utility

[Stilgar]

Ma quell'assegnazione, che evidenzi, dove l'hai messa?
Nella dichiarazione o nella implementazione?
Se è nella dichiarazione per forza ti da errore.
Le assegnazioni, se non sono per le costanti, devono andare nell'implementazione.

Stilgar

[petrusic]

Ma quell'assegnazione, che evidenzi, dove l'hai messa?
Nella dichiarazione o nella implementazione?
Se è nella dichiarazione per forza ti da errore.
Le assegnazioni, se non sono per le costanti, devono andare nell'implementazione.

Ti riferisci a:

--- bla --- bla ---
coVoceEdt:=EditaCoVoce.EdtCoVo(coVoSeCor);
--- bla --- bla ---

questa?

Certo che fa parte dell'implementazione:

Codice: [Seleziona]

procedure TForm1.VoSecPartSelect(Sender: TObject);
var
  i: integer;
  coVoSeCor: Integer;  // Codice voce secondaria corrente
  risult: integer;
  coVoceEdt: string;
begin
  writeln();
  writeln('proc.TForm1.VoSecPartSelect');
  i:= 0;
  while (VoSecPart.Text <> tbDBpiancont[i,1]) do
  begin
    i:= i + 1;
  end;
  VoSotCtoPart.Items.Clear;
  coVoSeCor:= StrToInt(tbDBpiancont[i,0]);   // codice voce legato alla ComboBox.Text(VoSecPart)
  if ((StrToInt(tbDBpiancont[i,0]) div 1000*1000) = coVoSeCor) then
    begin
      coVoceEdt:=EditaCoVoce.EdtCoVo(coVoSeCor);
      CoVoSecPart.Text:=coVoceEdt;
    end;
   VoSotCtoPart.Items.Clear;
   while ((StrToInt(tbDBpiancont[i,0]) div 1000)*1000 = coVoSeCor) do
   begin
     VoSotCtoPart.Items.Add(tbDBpiancont[i,1]);
      i:= i +1;
   end;
end;                                             

Allego comunque tutto il file .pas

[Stilgar]

La funzione che esporti  da EditaCoVoce,è' dichichiarate nell'interface dell'unit che importi?Se non lo vede mi viene da pensare sia quello il problema.Stilgar

[petrusic]

Ho modificato la parte interface ed implementation così:

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, Types;

type
  { TForm1 }

  TForm1 = class(TForm)
    CoVoSecArri: TEdit;
    CoVoSecPart: TEdit;
    VoMasArri: TComboBox;
    VoMasPart: TComboBox;
    contabfamDB: TDataSource;
    pExit: TButton;
    DtFin: TDateEdit;
    DtIni: TDateEdit;
    Label5: TLabel;
    Label6: TLabel;
    pVia: TButton;
    CoVoSotCtoPart: TEdit;
    CoVoSotCtoArri: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    MovDest: TGroupBox;
    VoSotCtoPart: TComboBox;
    Label2: TLabel;
    SotCtoArri: TComboBox;
    VoSecPart: TComboBox;
    Label1: TLabel;
    MovTrasf: TGroupBox;
    VoSecArri: TComboBox;
    ZConnection1: TZConnection;
    ZQuery1: TZQuery;
    procedure FormActivate(Sender: TObject);
    procedure pExitClick(Sender: TObject);
    procedure VoMasPartChange(Sender: TObject);
    procedure VoSecPartSelect(Sender: TObject);
    function EdtCoVo(coVoce:integer):String;

  public

    end;

  var
  Form1: TForm1;

implementation

{$R *.lfm}
uses
  EditaCoVoce;
  function EdtCoVo(coVoce:integer):String;
  begin

  end;

{ TForm1 }                             
--- bla --- bla ---

però non è cambiato niente. Ricevo sempre lo stesso errore, allo stesso punto.
Inoltre ecco il contenuto della directory util_mie:

Codice: [Seleziona]

petrus@petrus-pc /media/dirdati/dativari/lazarus_progetti/Lazarus_progetti_miei/
util_mie $ ls
EditaCoVoce.pas  backup  utilmie.lpk

Sicuramente non sono capace, perchè non ho capito come procedere.

[Stilgar]

Ma dentro

EditaCoVoce cosa c'è?

"Il compilatore si incazza in un punto, ma probailmente l'errore è da un'altra parte" (cit il mio prof di Sistemi d'automazione industriale).


Stilgar

[petrusic]

Ma dentro

EditaCoVoce cosa c'è?

Ecco il contenuto di EditaCoVoce:

Codice: [Seleziona]

unit EditaCoVoce;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils;

implementation
function EdtCoVo(coVoce:integer):String;
var
  i: Integer= 0;
  coVoceStr: String;
  crt: char;
  StriEdit: string;
begin
  SetLength (coVoceStr, 9);
  coVoceStr:=IntToStr(coVoce);
  WriteLn();
  WriteLn('coVoceStr= ', coVoceStr);
  WriteLn();
  for i:= 1 to 9 do
  begin
    crt := coVoceStr[i];
    StriEdit:= StriEdit + crt;
    case i of
        1,3,6:
          StriEdit:= StriEdit + '.';
    end;
  end;
  WriteLn('StriEdit= ', StriEdit);
  Result:= StriEdit;
end;

end.

[Stilgar]

La funzione è nascosta in quel modo.

Codice: [Seleziona]

interface
....

function EdtCoVo(coVoce:integer):String;

....

implementation
...

 function EdtCoVo(coVoce:integer):String;
.....

Stilgar

[petrusic]

Ora infatti funziona.

Quindi il problema era dentro il file EditaCoVoce.pas.
Bisogna allora ripetere il rigo della funzione sotto le uses della Interface, in modo che possa essere agganciato attraverso i contenuti di uses e dei successivi nomi di procedure e function, presenti nella parte Implementation del progetto destinatario.

Non so se sono riuscito ad esprimere il concetto che mi sono fatto, in maniera comprensibile. Se ho capito male, ti prego di chiarirmelo bene tu.

Grazieeee!

[Stilgar]

In modo più preciso.Bisogna renderla visibile, esportandola, quella definizione che vuoi usare da fuori dal modulo.

Stilgar

[petrusic]

Contento per la buona riuscita dell'import della nuova Unit nel progetto che sto portando avanti, ho pensato che la stessa Unit potrebbe ospitare più di una utililiy ed ho provato allora a duplicare quella, già pronta, cambiando ovviamente il nome e rispettando tutti gli agganci col progetto attuale.
Non l'avessi mai fatto: un vero disastro. Ho così fatto marcia indietro, però non sono convinto che non si possa fare.

[bonmario]

Certo che si può fare, io ho varie unit, suddivise per argomento: quella per la stampa, quella per i dialoghi, ecc. fino ad arrivare a quella "generica", dove c'è dentro roba che no ha senso mettere nelle altre.

[Otto]

Ciao petrusic.
Forse, questo esempio potrebbe esserti di aiuto.

[petrusic]

Da quanto letto attraverso i vostri suggerimenti, ho cercato di mettere dentro lo stesso file unit.pas
due function. Per la cronaca sono una l'opposto dell'altra.
Dopo la modifica, con l'aggiunta della seconda funcition, l'albero della directory
/media/dirdati/dativari/lazarus_progetti/lazarus_progetti_miei
contiene:

Codice: [Seleziona]

.
├── CoFamTrasf
│   ├── backup
│   │   ├── cofamtrasf.lfm
│   │   ├── cofamtrasflpi.lpi
│   │   ├── cofamtrasflpi.lpr
│   │   ├── cofamtrasflpi.lps
│   │   ├── cofamtrasf.pas
│   │   └── utilvarie.pas
│   ├── cofamtrasf.lfm
│   ├── cofamtrasflpi
│   ├── cofamtrasflpi.lpi
│   ├── cofamtrasflpi.lpr
│   ├── cofamtrasflpi.lps
│   ├── cofamtrasflpi.res
│   ├── cofamtrasf.pas
│   └── lib
│       └── x86_64-linux
│           ├── cofamtrasf.lfm
│           ├── cofamtrasflpi
│           ├── cofamtrasflpi.compiled
│           ├── cofamtrasflpi.o
│           ├── cofamtrasflpi.or
│           ├── cofamtrasflpi.res
│           ├── cofamtrasf.o
│           ├── cofamtrasf.ppu
│           ├── editacovoce.o
│           ├── editacovoce.ppu
│           ├── utilmie.o
│           ├── utilmie.ppu
│           ├── utilvarie.o
│           └── utilvarie.ppu
└── util_mie
    ├── backup
    │   ├── editacovoce.pas
    │   └── utilmie.pas
    └── utilmie.pas

CoFamTrasf è la directory contenente il progetto su cui sto lavorando;
util_mie è la directory contenente la unit utilmie.pas.

In: opzioni progetto -> percorsi -> altri file unit(-FU): ../util_mie  (la directory delle utility mi pare ben indirizzata)

Il file cofamtrasf.pas è così formato:

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, Types;

type
  { TForm1 }

  TForm1 = class(TForm)
    CoVoSecArri: TEdit;
    CoVoSecPart: TEdit;
    VoMasArri: TComboBox;
    VoMasPart: TComboBox;
    contabfamDB: TDataSource;
    pExit: TButton;
    DtFin: TDateEdit;
    DtIni: TDateEdit;
    Label5: TLabel;
    Label6: TLabel;
    pVia: TButton;
    CoVoSotCtoPart: TEdit;
    CoVoSotCtoArri: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    MovDest: TGroupBox;
    VoSotCtoPart: TComboBox;
    Label2: TLabel;
    SotCtoArri: TComboBox;
    VoSecPart: TComboBox;
    Label1: TLabel;
    MovTrasf: TGroupBox;
    VoSecArri: TComboBox;
    ZConnection1: TZConnection;
    ZQuery1: TZQuery;
    procedure pExitClick(Sender: TObject);
    procedure VoMasPartChange(Sender: TObject);
    procedure VoSecPartSelect(Sender: TObject);
    procedure VoSotCtoPartSelect(Sender: TObject);

  public

    end;

  var
  Form1: TForm1;

implementation

{$R *.lfm}
uses
  utilmie;

  function DisEdtCoVo(coVoEdt:String):integer;
  function EdtCoVo(coVoce:integer):String;

  begin

  end;

{ TForm1 }
type
Ttbpiacon = array of array of string;

const
    ctiCassa: array[0..1, 0..1] of string = (('101001000', '101997999'),     // 1° range conti di Cassa (tabella piancont)
                                      ('101999000', '101999999'));       // ultimo range conti di Cassa (tabella piancont)


    ctiPart: array[0..2, 0..1] of string = (('102000000', '103999999'),  // 1° range conti di contropartita pertinenti a "partmovv" (tabella piancont)
                                            ('105000000', '203999999'),   // 2° range conti di contropartita pertinenti a "partmovv" (tabella piancont)
                                            ('205000000', '999999999')); // ultimo range conti di contropartita pertinenti a "partmovv" (tabella piancont)

    ctiPrest: array[0..1, 0..1] of string = (('104000000', '104999999'),     // 1° range conti di contropartita pertinenti a "prestmom" (tabella piancont)
                                             ('204000000', '204999999'));    // ultimo range conti di contropartita pertinenti a "prestmom" (tabella piancont)
var
  tbDBpiancont: Ttbpiacon;     {tabella di memoria coi dati letti dalla tabella DB.piancont
                                le colonne sono: |- NumVoce, NomeVoce, ContrPartSiNo, DtPrimoUso, DtUltimUso -|}
  indSotcto1: Integer= 0;    // Indice di tbDBpiancont per la 1.a voce di sottoconto, subordinata a quella secondaria corrente
  indSotCto9: Integer= 0;    // Indice di tbDBpiancont per l'ultima voce di sottoconto, subordinata a quella secondaria corrente
procedure TForm1.pExitClick(Sender: TObject);
begin
  Application.Terminate;
end;

procedure TForm1.VoMasPartChange(Sender: TObject);
var
sql, sql2: String;
sql1: String= 'SELECT NumVoce, NomeVoce, ContrPartSiNo, DtPrimoUso, DtUltimUso ' +
              'FROM piancont WHERE ';
i, ii, n: integer;
totRecQry: integer;

begin
{  writeln();
  writeln('proc.TForm1.VoMasPartChange');}
  case VoMasPart.Text of
    'CASSA':
        sql2:= ('(NumVoce >= ' +  ctiCassa[0,0] + ' AND NumVoce <= ' + ctiCassa[0, 1] +
                ') OR (NumVoce >= ' + ctiCassa[1, 0] + ' AND NumVoce <= ' + ctiCassa[1, 1] + ')');

    'PARTMOVV':
        sql2:= '(NumVoce >= ' +  ctiPart[0,0] + ' AND NumVoce <= ' + ctiPart[0, 1] +
               ') OR (NumVoce >= ' + ctiPart[1, 0] + ' AND NumVoce <= ' + ctiPart[1, 1] +
               ') OR (NumVoce >= ' + ctiPart[2, 0] + ' AND NumVoce <= ' + ctiPart[2, 1] + ')';
    else //'PRESTMOM':
        sql2:= '(NumVoce >= ' +  ctiPrest[0,0] + ' AND NumVoce <= ' + ctiPrest[0, 1] +
               ') OR (NumVoce >= ' + ctiPrest[1, 0] + ' AND NumVoce <= ' + ctiPrest[1, 1] + ')';
  end;
  sql:= sql1 + sql2 + ' ORDER BY NumVoce';
{  WriteLn();
  WriteLn('sql= ', sql);}
  ZQuery1.SQL.Text := sql;
  ZQuery1.Open;
  totRecQry:= ZQuery1.RecordCount;
{  WriteLn();
  WriteLn('totRecQry= ', totRecQry);}
  SetLength(tbDBpiancont, totRecQry,5);
  n := -1;
  ZQuery1.First;
  while not ZQuery1.EOF do
  begin
    n:= n+1;
    tbDBpiancont[n,0]:= ZQuery1.FieldByName('NumVoce').AsString;
    tbDBpiancont[n,1]:= ZQuery1.FieldByName('NomeVoce').AsString;
    tbDBpiancont[n,2]:= ZQuery1.FieldByName('ContrPartSiNo').AsString;
    tbDBpiancont[n,3]:= ZQuery1.FieldByName('DtPrimoUso').AsString;
    tbDBpiancont[n,4]:= ZQuery1.FieldByName('DtUltimUso').AsString;
    if ((StrToInt(tbDBpiancont[n,0]) mod 1000) = 0) then
      VoSecPart.Items.Add(tbDBpiancont[n,1]);
    ZQuery1.Next;
  end;
  ZQuery1.Close;
{  WriteLn();
  WriteLn('n= ',n);}
  for i:= 0 to n do
  begin
    WriteLn();
    for ii:= 0 to 4 do
    begin
{      writeln('tbDBpiancont[', i,', ', ii,']= ', tbDBpiancont[i,ii]);}
    end;
  end;
end;

procedure TForm1.VoSecPartSelect(Sender: TObject);
var
  swFine: Boolean = False;
  i: integer;
  coVoSeCor: Integer;  // Codice voce secondaria corrente
  tEl: integer;
  coVoceEdt: string;
begin
{  writeln();
  writeln('proc.TForm1.VoSecPartSelect');}
  i:= 0;
  while (VoSecPart.Text <> tbDBpiancont[i,1]) do
  begin
    i:= i + 1;
  end;
  VoSotCtoPart.Items.Clear;
  coVoSeCor:= StrToInt(tbDBpiancont[i,0]);   // codice voce legato alla ComboBox.Text(VoSecPart)
  if ((StrToInt(tbDBpiancont[i,0]) div 1000*1000) = coVoSeCor) then
  begin
//    coVoceEdt:=EditaCoVoce.EdtCoVo(coVoSeCor);
    coVoceEdt:= utilmie.EdtCoVo(coVoSeCor);
    CoVoSecPart.Text:=coVoceEdt;
    i:= utilmie.DisEdtCoVo(coVoceEdt);
  end;
  VoSotCtoPart.Items.Clear;
  tEl:= Length(tbDBpiancont);
  indSotCto1:= 0;    // Indice di tbDBpiancont per la 1.a voce di sottoconto, subordinata a quella corrente
  indSotCto9:= 0;    // Indice di tbDBpiancont per l'ultima voce di sottoconto, subordinata a quella corrente
{  writeln();
  writeln('tEl= ', tEl);}
  i:= i + 1;
  while not swFine do
  begin
    if (i = 879) then
    begin
{      writeln();
      writeln('i= ', i);}
      write();
    end;
    if ((StrToInt(tbDBpiancont[i,0])) >= (coVoSeCor + 1)) and
        ((StrToInt(tbDBpiancont[i,0])) <= (coVoSeCor + 999)) then
    begin
    {-----------------------------------------------------------------------------------------------}
      VoSotCtoPart.Items.Add(tbDBpiancont[i,1]);
      indSotCto9:= i;
      if (indSotCto1 = 0) then
        indSotCto1:= i;
{      writeln('tbDBpiancont[', i,', ', 1,', ',0, ']= ', tbDBpiancont[i,1], ', ', tbDBpiancont[i,0]);}
      i:= i +1;
    end else
      if ((StrToInt(tbDBpiancont[i,0])) > (coVoSeCor + 999)) then
        swFine:= True;
    {-----------------------------------------------------------------------------------------------}
    if (i >= tEl) then
      swFine:= True;
  end;
end;

procedure TForm1.VoSotCtoPartSelect(Sender: TObject);
  var
    i: integer;
    coVoce: Integer;  // Codice voce secondaria corrente
    risult: integer;
    coVoceEdt: string;
  begin
{    writeln();
    writeln('proc.TForm1.VoSecPartSelect');}
    i:= indSotCto1;
    while (VoSotCtoPart.Text <> tbDBpiancont[i,1]) do
    begin
      if (i < indSotCto9) then
        i:= i + 1;
    end;
    coVoce:= StrToInt(tbDBpiancont[i,0]);   // codice voce legato alla ComboBox.Text(VoSecPart)
{    if (StrToInt(tbDBpiancont[i,0]) = coVoce) then
    begin}
      coVoceEdt:=EditaCoVoce.EdtCoVo(coVoce);
      CoVoSotCtoPart.Text:=coVoceEdt;
      MovDest.Enabled:= True;
      VoMasArri.Items.Add(VoMasPart.Text );
//    end;

end;

end.

mentre il file delle utility "utilmie.pas" contiene:

Codice: [Seleziona]

unit utilmie;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils;
type
  striEdt = String;
  coVoce9 = Integer;

  var
    striEdit: striEdt;
    coVoce: coVoce9;

function EdtCoVo(coVoceNum: Integer): striEdt;
function DisEdtCoVo(coVoEdt: String):coVoce9;

implementation

function EdtCoVo(coVoceNum:integer):String;
var
  i: Integer= 0;
  coVoceStr: String;
  crt: char;
//  striEdit: string;
begin
  SetLength (coVoceStr, 9);
  coVoceStr:=IntToStr(coVoceNum);
  for i:= 1 to 9 do
  begin
    crt := coVoceStr[i];
    striEdit:= striEdit + crt;
    case i of
        1,3,6:
          striEdit:= striEdit + '.';
    end;
  end;
  WriteLn('striEdit= ', striEdit);
  Result:= striEdit;
end;
function DisEdtCoVo(coVoEdt:String):integer;
var
  i: Integer= 0;
  crt: char;
  striMia: string = '';
begin
  WriteLn();
  WriteLn('function utilvarie.DisEdtCoVo');
  SetLength (coVoEdt, 9);
  for i:= 1 to 9 do
  begin
    crt := coVoEdt[i];
    if (crt <> '.') then
      striMia:= striMia + crt;
  end;
  coVoce:= StrToInt(striMia);
  WriteLn();
  WriteLn('coVoce= |', coVoce, '|');
  Result:= coVoce;
end;
end.

Con Esegui, la compilazione termina con successo, ma il progetto, pur risultando avviato, non apre nemmeno la Form iniziale.
Ma perchè, se la compilazione è terminata senza errori?

[Stilgar]

Ciao
cofamtrasflpi[/size].[/size]lpr
[/size]cosa contiene?
[/size]
[/size]Stilgar

[petrusic]

cofamtrasflpi[/size].[/size]lpr
[/size]cosa contiene?
[/size]
[/size]Stilgar

Ecco:

Codice: [Seleziona]

program cofamtrasflpi;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Interfaces, // this includes the LCL widgetset
  Forms, utilmie;

{$R *.res}

begin
  RequireDerivedFormResource:=True;
  Application.Scaled:=True;
  Application.Initialize;
  Application.Run;
end.