could not compile used unit 'principal.pass'

[cc11aa22ss33aa44]

unit UPrincipal;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, Menus, jpeg, ComCtrls;

type
  TfrmPrincipal = class(TForm)
    procedure Sar4Click(Sender: TObject);
    procedure Extrair;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmPrincipal: TfrmPrincipal;

implementation

uses UDM_dados, UUsuario, uUtil, UImpDigital, uCallbacks, uDBClass, GrFinger;

{$R *.dfm}

procedure TfrmPrincipal.Timer1Timer(Sender: TObject);
begin

end;

procedure TfrmPrincipal.Cargos1Click(Sender: TObject);
begin

end;

procedure TfrmPrincipal.N6Click(Sender: TObject);
begin

end;

procedure TfrmPrincipal.Sar2Click(Sender: TObject);
begin

end;

procedure TfrmPrincipal.N7Click(Sender: TObject);
begin

end;

procedure TfrmPrincipal.N1Click(Sender: TObject);
begin

end;

procedure TfrmPrincipal.Enderecos1Click(Sender: TObject);
begin

end;

procedure TfrmPrincipal.Funcionarios1Click(Sender: TObject);
begin

end;

procedure TfrmPrincipal.Endereo1Click(Sender: TObject);
begin

end;

procedure TfrmPrincipal.Alunos1Click(Sender: TObject);
begin

end;

var
   frmUPrincipal: TfrmPrincipal;
   imageImpDig: TImage;
   memoImpDig: TMemo;

implementation

uses UUsuario, UImpDigital, uUtil, uCallbacks, uDBClass,
GrFinger;

{$R *.dfm}

procedure TfrmPrincipal.Sar4Click(Sender: TObject);
begin
     try
     application.CreateForm(TfrmUsuario, frmUsuario);
     frmUsuario.ShowModal;
     finally
     freeandnil(frmUsuario);
     end;
end;
procedure TfrmPrincipal.Extrair;
var
   ret: Integer;
begin
    // extract template
   ret := ExtractTemplate();
   // write template quality to log
   if (ret = GR_BAD_QUALITY)
    then writeLog('Digital extraida com sucesso.baixa qualidade.')
   else if(ret = GR_MEDIUM_QUALITY)
   then writeLog('Digital extraida com sucesso.media qualidade.')
   else if(ret = GR_HIGT_QUALITY)
   then writeLog('Digital extraida com sucesso.alta qualidade.')
   if ret >= 0 then
begin
   // if no error, display minutiae/segments/directions into the image
   PrintBiometricDisplay(true, GR_NO_CONTEXT);
   // enable operations we can over extracted template
// BtExtract.Enabled := false;
// btEnroll.Enabled := true;
// btIdentify.Enabled := true;
// btVerify.Enabled := true;

end

else
    // white error to log
    white error(ret);
end;
end.

[Juliomar Marchetti]

Sem entender ?

o tem ? a unit foi bagunçada e por isso não compíla

[cc11aa22ss33aa44]

11 horas atrás, Juliomar Marchetti disse:

Sem entender ?

o tem ? a unit foi bagunçada e por isso não compíla

Boa tarde Juliomar Marchete ! como assim a unit foi bagunçada ?

[cc11aa22ss33aa44]

11 horas atrás, Juliomar Marchetti disse:

Sem entender ?

o tem ? a unit foi bagunçada e por isso não compíla

aqui está uma foto do erro 

 

[Juliomar Marchetti]

veja que tu tem duas vezes {$R *.dfm}

 

[cc11aa22ss33aa44]

12 minutos atrás, Juliomar Marchetti disse:

veja que tu tem duas vezes {$R *.dfm}

 

devo apagar somente a ($R *.dfm) de cima ou a de baixo ? ou também a implementação de cima ou a de baixo ?

[Juliomar Marchetti]

17 minutos atrás, cc11aa22ss33aa44 disse:

devo apagar somente a ($R *.dfm) de cima ou a de baixo ? ou também a implementação de cima ou a de baixo ?

tu vai precisar ver pois está com esse erro.

[cc11aa22ss33aa44]

2 horas atrás, Juliomar Marchetti disse:

tu vai precisar ver pois está com esse erro.

te agradeço pois já exclui o da parte de baixo mas o erro continua.

[Juliomar Marchetti]

23 minutos atrás, cc11aa22ss33aa44 disse:

te agradeço pois já exclui o da parte de baixo mas o erro continua.

não é só ele jovem

anexe a unit e o dfm aqui

[cc11aa22ss33aa44]

3 horas atrás, cc11aa22ss33aa44 disse:

devo apagar somente a ($R *.dfm) de cima ou a de baixo ? ou também a implementação de cima ou a de baixo ?

Juliomar Marchete Obrigado por me ajudar mesmo. conseguir resolver o problema com a tua ajuda.

[Juliomar Marchetti]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.