Bonsoir,

Je viens récemment de passer de Delphi 2005 à Lazarus 0.9.20.

Je désire reprendre l'élaboration d'une apllication de gestion de bibliothèque personnelle. Pour ceci, j'utilise un base de type TDbf créée à partir de ce code qui fonctionne sans aucun problème :
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
 
unit Unit1; 
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs,
  Db, Dbf, Dbf_common;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 
 
var
  Form1: TForm1;
  MyDbf: TDbf;
  Source: String;
 
implementation
 
{ TForm1 }
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Source := ExtractFilePath(Application.Name);
  MyDbf := TDbf.Create(nil);
  try
    MyDbf.FilePath := 'data';
    MyDbf.TableLevel := 7;
    MyDbf.Exclusive := True;
    MyDbf.TableName := 'base.dbf';
    With MyDbf.FieldDefs do begin
      Add('Titre', ftString, 50, True);
      Add('SousTitre', ftString, 50, True);
      Add('Auteur', ftString, 30, True);
      Add('Editeur', ftString, 30, True);
      Add('Genre', ftString, 30, True);
      Add('ISBN', ftString, 10, True);
      Add('Resume', ftMemo, 255, True);
      Add('Commentaires', ftMemo, 255, True);
    End;
    MyDbf.CreateTable;
  finally
    MyDbf.Free;
  end;
end;
 
initialization
  {$I Unit1.lrs}
 
end.
Mais après je ne sais pas comment faire pour relier le contenu de cette base à par exemple une TDBGrid. Je me doute qu'il faut utiliser TDataSource et TDbf mais je n'arrive pas à les configurer correctement.

Est-ce que quelqu'un aurait un exemple de code et une aide à la configuration des différents éléments pour ceci ?

Merci d'avance.

Lohot