Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

  1. #1
    Candidat au Club
    Inscrit en
    février 2006
    Messages
    2
    Détails du profil
    Informations forums :
    Inscription : février 2006
    Messages : 2
    Points : 3
    Points
    3
    Par défaut Error: Cannot find implementation of method DBGrid1 Title Click
    Je veux juste savoir où est l'erreur car je suis débutant en programmation.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    procedure Tfiche_produit.Edit1Change(Sender: TObject);
    begin
      if (edit1.text <> '') then
      begin
        table1.Close;
        table1.filtred :=true ;
        table1.Filter :='[Désignation}=' + #39 + edit1.Text + '*' + #39 ;
        table1.Active :=true ;
        end
      else
      begin
        table1.Close ;
        table1.filtred :=false ;
        table1.Active :=true ;
      end;
     
    end.

  2. #2
    Rédacteur/Modérateur

    Avatar de SergioMaster
    Homme Profil pro
    Développeur informatique
    Inscrit en
    janvier 2007
    Messages
    11 290
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 63
    Localisation : France, Loire Atlantique (Pays de la Loire)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Industrie

    Informations forums :
    Inscription : janvier 2007
    Messages : 11 290
    Points : 29 240
    Points
    29 240
    Billets dans le blog
    29
    Par défaut
    Bonjour et bienvenue,

    Plusieurs choses étranges dans ce code
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
      table1.Filter :='[Désignation}=' + #39 + edit1.Text + '*' + #39 ;
    tout d'abord : Désignation, commence par un [ mais se termine par un }
    mais surtout, vous voulez, sur ce que j'en comprends, faire un filtre sur "ce qui commence par Edit1.text" donc ce ne sera pas une égalité mais une clause LIKE qu'il faut utiliser.

    Pour "améliorer" le code, je propose

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    procedure Tfiche_produit.Edit1Change(Sender: TObject);
    begin
      table1.Close; // ou table1.Active:=false;
      if Edit1.Text='' 
       then   table1.filtered :=false
       else   begin
        table1.filetred :=true ;
        table1.Filter :=Format('Désignation LIKE %s*',[Quotedstr(edit1.Text)]); // je ne crois pas que Désignation STARTING WITH fonctionne comme Filtre
      end;
      table1.Open ; // ou  table1.Active :=true ;
    end;
    Bon, bien évidemment, tout cela dépend de votre version de Delphi (Edit1.Text.IsEmpty n'existe pas en D7), des composants utilisés pour se connecter (quoique Table1 laisse présager BDE ?) de la base de données, etc. Autant d'informations qu'il faut fournir pour des réponses plus "pointues"

    Si le filtre ne fonctionne pas, un requête (Query1) sera tout aussi efficace

    NB. J'ai du mal à faire la relation entre le titre et le corps du message
    La seule chose absolue dans un monde comme le nôtre, c'est l'humour. » Albert Einstein

    Delphi installés : D3,D7,D2010,XE4,XE7,D10 (Tokyo, Rio) et peut être quelques autres
    SGBD : Firebird 2.5, 3, SQLite
    générateurs Etats : FastReport, Rave, QuickReport
    OS : Window Vista, Windows 10, Ubuntu, Androïd

  3. #3
    Candidat au Club
    Inscrit en
    février 2006
    Messages
    2
    Détails du profil
    Informations forums :
    Inscription : février 2006
    Messages : 2
    Points : 3
    Points
    3
    Par défaut Erreurs de compilation
    Je tiens à vous remercier de l'intention que vous prêtez à mon message et je veux donner plus d'explications.
    Alors, je suis entrain d'apprendre delphi en autodidacte, et pour cela j'utilise des exemples que j'avais téléchargé.
    dans mon cas c'est un projet "gestion de scolarité"
    J'ai suivi l'exemple à la lettre, mais malheureusement quand il me demande de toucher à la touche F9, je reçois des erreurs.
    A cet effet, j'envois le code source afin que vous me guiderez pour savoir comment procéder pour corriger ces erreurs.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    73
    74
    75
    76
    77
    78
    79
    80
    81
    82
    83
    84
    85
    86
    87
    88
    89
    90
    91
    92
    93
    94
    95
    96
    97
    98
    99
    100
    101
    102
    103
    104
    105
    unit menu;
     
    interface
     
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, Menus, StdCtrls, ExtCtrls, ImgList, ComCtrls, ToolWin;
     
    type
      Tfiche_menu = class(TForm)
        MainMenu1: TMainMenu;
        Fichier1: TMenuItem;
        etudiant1: TMenuItem;
        professeur1: TMenuItem;
        specialite1: TMenuItem;
        matiere1: TMenuItem;
        quitter1: TMenuItem;
        Edition1: TMenuItem;
        Bulletin1: TMenuItem;
        Consultation1: TMenuItem;
        Etudiants1: TMenuItem;
        Etats1: TMenuItem;
        impressions1: TMenuItem;
        Statistiques1: TMenuItem;
        scolarite1: TMenuItem;
        Outils1: TMenuItem;
        Archivage1: TMenuItem;
        Protection1: TMenuItem;
        Cloture1: TMenuItem;
        N1: TMenuItem;
        Apropos1: TMenuItem;
        ToolBar1: TToolBar;
        ToolButton1: TToolButton;
        ToolButton2: TToolButton;
        ToolButton3: TToolButton;
        ToolButton4: TToolButton;
        ToolButton5: TToolButton;
        ToolButton6: TToolButton;
        ToolButton7: TToolButton;
        ToolButton8: TToolButton;
        ToolButton9: TToolButton;
        ToolButton10: TToolButton;
        ToolButton11: TToolButton;
        ToolButton12: TToolButton;
        ToolButton13: TToolButton;
        ToolButton14: TToolButton;
        ToolButton15: TToolButton;
        ToolButton16: TToolButton;
        ToolButton17: TToolButton;
        ToolButton18: TToolButton;
        ToolButton19: TToolButton;
        ImageList1: TImageList;
        Timer1: TTimer;
        Label1: TLabel;
        Image1: TImage;
        procedure Timer1Timer(Sender: TObject);
        procedure quitter1Click(Sender: TObject);
        procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
        procedure etudiant1Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
     
    var
      fiche_menu: Tfiche_menu;
     
    implementation
     
    uses etudiant;
     
    {$R *.dfm}
     
    procedure Tfiche_menu.Timer1Timer(Sender: TObject);
    begin
    if label1.left > -250 then
    label1.left:=label1.left-1
    else
    label1.left :=700 ;
    end;
     
    procedure Tfiche_menu.quitter1Click(Sender: TObject);
    begin
    close;
    end;
     
    procedure Tfiche_menu.FormCloseQuery(Sender: TObject;
      var CanClose: Boolean);
    begin
    if messagedlg('voulez vous quitter le logiciel?',mtconfirmation,[mbyes,mbno],0)=mryes then
    begin
    canclose:=true;
    application.terminate;
    end
    else
    canclose:=false;
    end;
     
    procedure Tfiche_menu.etudiant1Click(Sender: TObject);
    begin
    fiche_etudiant.showmodal;
    end;
     
    end.
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    73
    74
    75
    76
    77
    78
    79
    80
    81
    82
    83
    84
    85
    86
    87
    88
    89
    90
    91
    92
    93
    94
    95
    96
    97
    98
    99
    100
    101
    102
    103
    104
    105
    106
    107
    108
    109
    110
    111
    112
    113
    114
    115
    116
    117
    118
    119
    120
    121
    122
    123
    124
    125
    126
    127
    128
    129
    130
    131
    132
    133
    134
    135
    136
    137
    138
    139
    140
    141
    142
    143
    144
    145
    146
    147
    148
    149
    150
    151
    152
    153
    154
    155
    156
    157
    158
    159
    160
    161
    162
    163
    164
    165
    166
    167
    168
    169
    170
    171
    172
    173
    174
    175
    176
    177
    178
    179
    180
    181
    182
    183
    184
    185
    186
    187
    188
    189
    190
    191
    192
    193
    194
    195
    196
    197
    198
    199
    200
    201
    202
    203
    204
    205
    206
    207
    208
    209
    210
    211
    212
    213
    214
    215
    216
    217
    218
    219
    220
    221
    222
    223
    224
    225
    226
    227
    228
    229
    230
    231
    232
    233
    234
    235
    236
    237
    238
    239
    240
    241
    242
    243
    244
    245
    246
    247
    248
    249
    250
    251
    252
    253
    254
    255
    256
    257
    258
    259
    260
    261
    262
    263
    264
    265
    266
    267
    268
    269
    270
    271
    272
     
    unit etudiant;
     
    interface
     
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, Buttons, DBCtrls, StdCtrls, Mask, DB, DBTables, ComCtrls,
      ExtDlgs, ExtCtrls, Grids, DBGrids, TeEngine, Series, TeeProcs, Chart,
      DbChart;
     
    type
      Tfiche_etudiant = class(TForm)
        PageControl1: TPageControl;
        TabSheet1: TTabSheet;
        TabSheet2: TTabSheet;
        TabSheet3: TTabSheet;
        Table1: TTable;
        Table1Code_e: TIntegerField;
        Table1Nom_e: TStringField;
        Table1Prenom_e: TStringField;
        Table1Date_naissance: TDateField;
        Table1Lieu: TStringField;
        Table1Adresse: TStringField;
        Table1Doublant: TStringField;
        Table1Photo: TGraphicField;
        Table1Ref_classe: TIntegerField;
        DataSource1: TDataSource;
        DBEdit6: TDBEdit;
        Label1: TLabel;
        DBEdit1: TDBEdit;
        Label2: TLabel;
        DBEdit2: TDBEdit;
        Label3: TLabel;
        DBEdit3: TDBEdit;
        Label4: TLabel;
        DBEdit4: TDBEdit;
        Label5: TLabel;
        DBEdit5: TDBEdit;
        Label6: TLabel;
        DBEdit7: TDBEdit;
        Label7: TLabel;
        DBEdit8: TDBEdit;
        Label8: TLabel;
        DBImage1: TDBImage;
        Label9: TLabel;
        DBEdit9: TDBEdit;
        SpeedButton1: TSpeedButton;
        SpeedButton2: TSpeedButton;
        SpeedButton3: TSpeedButton;
        SpeedButton4: TSpeedButton;
        SpeedButton5: TSpeedButton;
        DBNavigator1: TDBNavigator;
        OpenPictureDialog1: TOpenPictureDialog;
        SpeedButton6: TSpeedButton;
        Label10: TLabel;
        ComboBox1: TComboBox;
        DBGrid1: TDBGrid;
        SpeedButton7: TSpeedButton;
        SpeedButton8: TSpeedButton;
        BitBtn1: TBitBtn;
        Label11: TLabel;
        Edit1: TEdit;
        Query1: TQuery;
        DBChart1: TDBChart;
        Series1: TPieSeries;
        procedure SpeedButton5Click(Sender: TObject);
        procedure SpeedButton4Click(Sender: TObject);
        procedure SpeedButton1Click(Sender: TObject);
        procedure SpeedButton3Click(Sender: TObject);
        procedure SpeedButton2Click(Sender: TObject);
        procedure SpeedButton6Click(Sender: TObject);
        procedure Table1AfterInsert(DataSet: TDataSet);
        procedure Edit1KeyDown(Sender: TObject; var Key: Word;
          Shift: TShiftState);
        procedure DBEdit1KeyDown(Sender: TObject; var Key: Word;
          Shift: TShiftState);
        procedure DBEdit2KeyDown(Sender: TObject; var Key: Word;
          Shift: TShiftState);
        procedure DBEdit3KeyDown(Sender: TObject; var Key: Word;
          Shift: TShiftState);
        procedure DBEdit4KeyDown(Sender: TObject; var Key: Word;
          Shift: TShiftState);
        procedure DBEdit5KeyDown(Sender: TObject; var Key: Word;
          Shift: TShiftState);
        procedure DBEdit6KeyDown(Sender: TObject; var Key: Word;
          Shift: TShiftState);
        procedure ComboBox1KeyDown(Sender: TObject; var Key: Word;
          Shift: TShiftState);
        procedure SpeedButton7Click(Sender: TObject);
        procedure SpeedButton8Click(Sender: TObject);
        procedure Edit1Change(Sender: TObject);
        procedure DBGrid1TitleClick(Column: TColumn);
        procedure Table1AfterPost(DataSet: TDataSet);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
     
    var
      fiche_etudiant: Tfiche_etudiant;
     
    implementation
     
    uses etat_etudiant;
     
    {$R *.dfm}
     
    procedure Tfiche_etudiant.SpeedButton5Click(Sender: TObject);
    begin
    table1.Append ; // table1.append = table1.last + table1.insert
    dbedit1.SetFocus ;
    end;
     
    procedure Tfiche_etudiant.SpeedButton4Click(Sender: TObject);
    begin
    if messagedlg('voulez vous supprimer cet enregistrement' ,mtconfirmation,[mbyes,mbno],0)=mryes then
    table1.Delete;
    end;
     
    procedure Tfiche_etudiant.SpeedButton1Click(Sender: TObject);
    begin
    table1.Edit;
    dbedit1.SetFocus;
    end;
     
    procedure Tfiche_etudiant.SpeedButton3Click(Sender: TObject);
    begin
    table1.Edit;
    table1.Post;
    end;
     
    procedure Tfiche_etudiant.SpeedButton2Click(Sender: TObject);
    begin
    table1.Edit;
    table1.Cancel;
    end;
     
    procedure Tfiche_etudiant.SpeedButton6Click(Sender: TObject);
    begin
    OpenPictureDialog1.Execute;
    dbimage1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
    end;
     
    procedure Tfiche_etudiant.Table1AfterInsert(DataSet: TDataSet);
    begin
    dbedit1.SetFocus;
    end;
     
    procedure Tfiche_etudiant.Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    begin
    If key = vk_return then
    Dbedit2.SetFocus;
    end;
     
    procedure Tfiche_etudiant.DBEdit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    begin
    if key = vk_return then
    Dbedit2.SetFocus;
    end;
     
    procedure Tfiche_etudiant.DBEdit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    begin
    If key = vk_return then
    Dbedit3.SetFocus;
    end;
     
    procedure Tfiche_etudiant.DBEdit3KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    begin
    If key = vk_return then
    Dbedit4.SetFocus;
    end;
     
    procedure Tfiche_etudiant.DBEdit4KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    var age : integer;
    begin
    If key = vk_return then
    Begin
    Table1.Edit;
    Table1.Post;
    Age :=trunc((date-table1.fieldbyname('date_naissance').AsDateTime)/365);
    Label9.Caption:=inttostr(age)+' ans';
    If age <17 then
    Showmessage('étudiant mineur');
    If age >60 then
    Showmessage('étudiant retraité');
    Dbedit5.SetFocus;
    End;
    End;
     
    procedure Tfiche_etudiant.DBEdit5KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    begin
    If key = vk_return then
    Dbedit6.SetFocus;
    end;
     
    procedure Tfiche_etudiant.DBEdit6KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    begin
    If key = vk_return then
    combobox1.setfocus;
    end;
     
    procedure Tfiche_etudiant.ComboBox1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    begin
    If key = vk_return then
    Dbedit8.SetFocus;
    end;
     
    procedure Tfiche_etudiant.SpeedButton7Click(Sender: TObject);
    begin
    fiche_etat_etudiant.quickrep1.preview;
    end;
     
    procedure Tfiche_etudiant.SpeedButton8Click(Sender: TObject);
    begin
    fiche_etat_etudiant.quickrep1.print;
    end;
     
    procedure Tfiche_etudiant.Edit1Change(Sender: TObject);
    begin
    if edit1.Text <> '' then
    begin
    table1.Close ;
    table1.filtred :=true;
    table1.Filter :='[Nom_e]=' + #39 + edit1.Text + '*' + #39;
    table1.Active := true;
    end
    else
    begin
    table1.Close;
    table1.filtred := false;
    table1.Active := true;
    end;
    end;
     
    procedure Tfiche_etudiant.DBGrid1TitleClick(Column: TColumn);
    begin
    If column.Index = 0 then
    Table1.IndexName :='c1';
    If column.Index = 1 then
    Table1.IndexName :='c2';
    If column.Index = 2 then
    Table1.IndexName :='c3';
    If column.Index = 3 then
    Table1.IndexName :='c4';
    If column.Index = 4 then
    Table1.IndexName :='c5';
    If column.Index = 5 then
    Table1.IndexName :='c6';
    If column.Index = 6 then
    Table1.IndexName :='c7';
    If column.Index = 7 then
    Table1.IndexName :='c8';
     
    end;
     
    procedure Tfiche_etudiant.Table1AfterPost(DataSet: TDataSet);
    begin
    Query1.Close;
    Query1.Active := true;
    end;
     
    end.
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    73
    74
    75
    76
    77
    78
    79
    80
    81
    82
    83
    84
    85
    86
    87
    88
    89
    90
    91
    92
    93
    94
    95
    96
    97
    98
    99
    100
    101
     
    unit matiere;
     
    interface
     
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, Buttons, DB, StdCtrls, Mask, DBCtrls, DBTables, ComCtrls, Grids,
      DBGrids, ExtCtrls;
     
    type
      Tfiche_matiere = class(TForm)
        PageControl1: TPageControl;
        TabSheet1: TTabSheet;
        TabSheet2: TTabSheet;
        Table1: TTable;
        Table1Reference_m: TIntegerField;
        Table1Designation_m: TStringField;
        Table1Coefficient: TIntegerField;
        Table1Ref_specialite: TIntegerField;
        Label1: TLabel;
        DBEdit1: TDBEdit;
        DataSource1: TDataSource;
        Label2: TLabel;
        DBEdit2: TDBEdit;
        Label3: TLabel;
        DBEdit3: TDBEdit;
        Label4: TLabel;
        DBEdit4: TDBEdit;
        SpeedButton1: TSpeedButton;
        SpeedButton2: TSpeedButton;
        SpeedButton3: TSpeedButton;
        SpeedButton4: TSpeedButton;
        SpeedButton5: TSpeedButton;
        DBNavigator1: TDBNavigator;
        DBGrid1: TDBGrid;
        SpeedButton6: TSpeedButton;
        SpeedButton7: TSpeedButton;
        BitBtn1: TBitBtn;
        procedure SpeedButton1Click(Sender: TObject);
        procedure SpeedButton2Click(Sender: TObject);
        procedure SpeedButton3Click(Sender: TObject);
        procedure SpeedButton4Click(Sender: TObject);
        procedure SpeedButton5Click(Sender: TObject);
        procedure SpeedButton6Click(Sender: TObject);
        procedure SpeedButton7Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
     
    var
      fiche_matiere: Tfiche_matiere;
     
    implementation
     
    {$R *.dfm}
     
    procedure Tfiche_matiere.SpeedButton1Click(Sender: TObject);
    begin
    table1.Append;
    //table1.append=table1.last+table1.insert
    dbedit1.SetFocus;
    end;
     
    procedure Tfiche_matiere.SpeedButton2Click(Sender: TObject);
    begin
    if messagedlg('voulez vous supprimer cet enregistrement',mtconfirmation,[mbyes,mbno],0)=mryes then
    table1.Delete;
    end;
     
    procedure Tfiche_matiere.SpeedButton3Click(Sender: TObject);
    begin
    table1.Edit;
    dbedit1.SetFocus;
    end;
     
    procedure Tfiche_matiere.SpeedButton4Click(Sender: TObject);
    begin
    table1.Edit;
    table1.Post;
    end;
     
    procedure Tfiche_matiere.SpeedButton5Click(Sender: TObject);
    begin
    table1.Edit;
    table1.Cancel;
    end;
     
    procedure Tfiche_matiere.SpeedButton6Click(Sender: TObject);
    begin
    fiche_etat_matiere.quickrep1.preview;
    end;
     
    procedure Tfiche_matiere.SpeedButton7Click(Sender: TObject);
    begin
    fiche_etat_matiere.quickrep1.print;
    end;
     
    end.

  4. #4
    Rédacteur/Modérateur

    Avatar de SergioMaster
    Homme Profil pro
    Développeur informatique
    Inscrit en
    janvier 2007
    Messages
    11 290
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 63
    Localisation : France, Loire Atlantique (Pays de la Loire)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Industrie

    Informations forums :
    Inscription : janvier 2007
    Messages : 11 290
    Points : 29 240
    Points
    29 240
    Billets dans le blog
    29
    Par défaut
    Bonjour,

    Même si vous fournissez quelques sources, ces unités ne sont pas en rapport avec votre question
    Dans les sources que vous avez fournies je ne vois aucune [Désignation] du premier post et aucun rapport évident avec le titre

    Error: Cannot find implementation of method DBGrid1 Title Click
    Cette erreur est, AMHA, due à votre version de Delphi et à celle du projet que vous avez copié ou une erreur dans un dfm
    Note : Un zip de l'ensemble du projet (proj, pas,dfm) aurait été plus simple.

    je suis en train d'apprendre delphi en autodidacte, et pour cela j'utilise des exemples que j'avais téléchargés.
    Moi aussi j'ai appris en autodidacte.
    AMHA, utiliser des exemples téléchargés peut être une méthode s'ils sont des exemples validés (i.e ceux des exemples fournis avec Delphi), mais les sources que vous nous montrez, sans vouloir vexer l'auteur, sont loin d'être un modèle du genre !
    La meilleure manière de progresser est d'écrire ses propres programmes.

    Déjà, quelle version de Delphi utilisez-vous, mon conseil utilisez la dernière version 10.3.3 Communauty ou plus si vous avez les moyens
    Ensuite abandonner BDE, je le répète assez souvent, cette technologie est classée comme obsolète : préférez Firedac comme composants de connexion et SQLite (dans le cas d'application mono poste) comme base de données
    La seule chose absolue dans un monde comme le nôtre, c'est l'humour. » Albert Einstein

    Delphi installés : D3,D7,D2010,XE4,XE7,D10 (Tokyo, Rio) et peut être quelques autres
    SGBD : Firebird 2.5, 3, SQLite
    générateurs Etats : FastReport, Rave, QuickReport
    OS : Window Vista, Windows 10, Ubuntu, Androïd

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Pour chaque projet, une erreur :-1: error: cannot find -lGL
    Par SMAIL_Yacine dans le forum Débuter
    Réponses: 2
    Dernier message: 18/09/2015, 16h32
  2. Réponses: 2
    Dernier message: 14/09/2015, 09h15
  3. maven compiler plugin :error: cannot find symbol class
    Par kader58 dans le forum Général Java
    Réponses: 0
    Dernier message: 26/05/2015, 17h30
  4. Error - Cannot find XMLScript
    Par hunzi dans le forum XMLRAD
    Réponses: 2
    Dernier message: 07/09/2006, 16h28
  5. ERROR: Cannot find dialog template with IDD
    Par emardjean dans le forum MFC
    Réponses: 10
    Dernier message: 24/01/2006, 16h26

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo