Bonsoir,
J'ai un projet qui commence plus ou moins a prendre forme quand je veux executer j'obtiensl'erreur suivante:
Project project1.exe raised exeption class EReadError with message 'invalid property value'. Process stopped. use step or run to continue.
Et quand je lance l'execution etape par etape il s'arrete au niveau d'une unité, le probleme est que je vois pas ce qu'il cloche dessu (d'autant plus que jl'utilise pas vraiment pour le moment)
je vous donne le programme si cela peut m'aider à etre plus explicite:
unit Unit4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, jpeg, ExtCtrls, Grids, DBGrids, StdCtrls, Buttons, ComCtrls, DB,
ADODB, DBTables;
type
TAnnulation = class(TForm)
Image1: TImage;
Panel1: TPanel;
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
DateTimePicker1: TDateTimePicker;
Panel2: TPanel;
BitBtn1: TBitBtn;
Edit2: TEdit;
Label3: TLabel;
Button1: TButton;
Button2: TButton;
ADOConnection1: TADOConnection;
Query1: TQuery;
DataSource1: TDataSource;
Query2: TQuery;
DBGrid1: TDBGrid;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;
var
Annulation: TAnnulation;
implementation
uses Unit1;
{$R *.dfm}
procedure TAnnulation.Button2Click(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
Annulation.Close;
DateTimePicker1.Date:=date;
query1.Active:=false;
end;
procedure TAnnulation.Button1Click(Sender: TObject);
begin
query1.Active:=true;
end;
procedure TAnnulation.BitBtn1Click(Sender: TObject);
begin
query2.Active:=true;
//inserer
end;
end.
Merci de bien vouloir m'aider 