Galera mais um problema cabeludo ..
Estava fechando o meu projeto, não sei o que aconteceu mais apaguei algum END
errado .. e sem querer eu acabei salvando o projeto.
Ja tentei de todos os jeitos e nada ... eu apaguei alguam coisa sem querer ...
Esta apresentando a seguinte mensagem.
Logo apos segue o codigo..
Exception class EReadError with message 'Invalid property value'. Process
Venus.exe
program Venus;
uses
Forms,
U_Venus in 'U_Venus.pas' {frmCodBarras},
U_DM_Venus in 'U_DM_Venus.pas' {DmCodBarras: TDataModule};
{$R *.res}
begin
Application.Initialize;
Application.Title := 'Venus - Sistema de Impressão de Código de Barras';
Application.CreateForm(TDmCodBarras, DmCodBarras);
Application.CreateForm(TfrmCodBarras, frmCodBarras);
Application.Run;
end.
unit U_Venus;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls, Buttons, ComCtrls,
Registry,
FileCtrl, Menus, Mask, dblookup, jpeg;
type
TfrmCodBarras = class(TForm)
PageControl1: TPageControl;
tbsImpressao: TTabSheet;
Panel1: TPanel;
Label5: TLabel;
Label6: TLabel;
edtCodProd: TEdit;
Panel2: TPanel;
BitBtn2: TBitBtn;
edtQuantidade: TEdit;
Panel3: TPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
DBText1: TDBText;
DBText2: TDBText;
DBText3: TDBText;
DBText4: TDBText;
Label7: TLabel;
DBText5: TDBText;
tbsConfigura: TTabSheet;
Panel4: TPanel;
Panel5: TPanel;
BitBtn1: TBitBtn;
Panel6: TPanel;
RadioGroup1: TRadioGroup;
rbPortaLPT1: TRadioButton;
rbPortaLPT2: TRadioButton;
rbPortaCom1: TRadioButton;
rbPortaCom2: TRadioButton;
tbsEAN: TTabSheet;
Panel7: TPanel;
Panel8: TPanel;
Panel9: TPanel;
Label8: TLabel;
Label9: TLabel;
edtEAN1: TEdit;
edtEAN2: TEdit;
tbsArquivos: TTabSheet;
Panel10: TPanel;
Panel11: TPanel;
Panel12: TPanel;
EdtLote: TEdit;
BitBtn3: TBitBtn;
FileListBox1: TFileListBox;
FilterComboBox1: TFilterComboBox;
DirectoryListBox1: TDirectoryListBox;
DriveComboBox1: TDriveComboBox;
Label11: TLabel;
TabSheet1: TTabSheet;
edtArq: TEdit;
BitBtn4: TBitBtn;
Label12: TLabel;
Image1: TImage;
DirectoryListBox2: TDirectoryListBox;
Label13: TLabel;
DriveComboBox2: TDriveComboBox;
edtQtde: TEdit;
private
function VerificaData: Boolean;
procedure BitBtn4Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure edtEAN1Exit(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure edtCodProdChange(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
public
function tbStrZero(const I: integer; const Casas: byte): string;
end;
var
frmCodBarras: TfrmCodBarras;
Porta, Diretorio : String;
ArqReg: TRegIniFile;
texto : String;
implementation
uses U_DM_Venus, DBClient;
{$R *.dfm}
procedure TfrmCodBarras.BitBtn1Click(Sender: TObject);
begin.....
.
.
.
......
[As partes desta mensagem que não continham texto foram removidas]
