cc11aa22ss33aa44

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

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

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

aqui está uma foto do erro

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

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.