bonjour a tous !
 
voila je vient de creer mon premier logiciel sous delphie c'est un carnet d'adresse avec des chaine de caractère qui ecrive dans un fichier les informations que je rentre !
Et maintenant je cherche le moyen d'imprimer ces information!
 
donc j'ai fait un boutons imprimer auquel j'ai assigné la command PrintDialog1
 
mais rien ne se passe je pensse que cela ne suffit pas ! qq1 peut t'il m'aider ??  
 
merci d'avance!

si toute fois quelqu'un pouvait m'aider je donne mon mail afin de rester en contact ! meri  
 
eri_ri@ifrance.com
 
@++

Ton titre n'est pas trés adapté.
Pour t'aider tu peux aller voir les liens utiles sur Delphi (c.f. ma signature)
 
Pour ton pb regarde l'aide sur TPrinter.
 

merci de ta reponse !!!
 
mais a titre indicatif quand je dit que je suis novice c'est vraiment au plus bas niveau !!
 
c'est la premier fois que je fait du code !  
 
voila ce que j'ai fait ! je sais que ce n'est pas miro mais c'est mon premier ! et la je bloque pour l'impression ! en fait je voudrait imprimer ce qu'il ya dans le fichier adresse.adr qu'il cree sous c:\ mais je ne sais pas si deja cest possible !et si oui comment faire ???
 
 
 
Unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Menus, Buttons, ComCtrls, jpeg;
 
type
  TForm1 = class(TForm)
    Nom: TEdit;
    prenom: TEdit;
    Adresse: TMemo;
    telephone: TEdit;
    Mail: TEdit;
    Button1: TButton;
    suivant: TButton;
    precedent: TButton;
    Button2: TButton;
 
    Label8: TLabel;
    nouveau: TButton;
    fax: TEdit;
    code: TEdit;
    ville: TEdit;
    Bevel1: TBevel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    service: TEdit;
    Label11: TLabel;
    profession: TEdit;
    Label12: TLabel;
    web: TEdit;
    Label13: TLabel;
    entreprise: TEdit;
    Label14: TLabel;
    Bevel2: TBevel;
    Label15: TLabel;
    Bevel3: TBevel;
    Memo: TMemo;
    Label16: TLabel;
    imprimer: TButton;
    PrintDialog1: TPrintDialog;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure precedentClick(Sender: TObject);
    procedure suivantClick(Sender: TObject);
    procedure nouveauClick(Sender: TObject);
    procedure imprimerClick(Sender: TObject);
   
 
 
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
Type
Adr = record
N : String[20];
A : String[80];
P : String[20];
T : String[10];
F : String[10];
C : String[10];
V : String[20];
M : String[50];
S : String[50];
PR : String[50];
E : String[50];
W : String[50];
ME : String[80];
end;
 
var
  Form1: TForm1;
  f: File of Adr;
  Enr : Adr;
  Table : Array[1..100] of Adr;
  NE : LongInt;
  NbEnr : Integer;
  I : integer;
 
implementation
 
{$R *.dfm}
 
procedure affiche(Enr : Integer);
begin
Form1.Nom.Text:=Table[Enr].N;
Form1.Adresse.Text:=Table[Enr].A;
Form1.Prenom.Text:=Table[Enr].P;
Form1.Telephone.Text:=Table[Enr].T;
Form1.Fax.Text:=Table[Enr].F;
Form1.Code.Text:=Table[Enr].C;
Form1.Ville.Text:=Table[Enr].V;
Form1.Mail.Text:=Table[Enr].M;
Form1.Service.Text:=Table[Enr].S;
Form1.Profession.Text:=Table[Enr].PR;
Form1.Entreprise.Text:=Table[Enr].E;
Form1.Web.Text:=Table[Enr].W;
Form1.Memo.Text:=Table[Enr].ME;
end;
 
procedure Enregistre;
begin
Table[NE].N:=Form1.Nom.Text;
Table[NE].A:=Form1.Adresse.Text;
Table[NE].P:=Form1.Prenom.Text;
Table[NE].T:=Form1.Telephone.Text;
Table[NE].F:=Form1.Fax.Text;
Table[NE].C:=Form1.Code.Text;
Table[NE].V:=Form1.Ville.Text;
Table[NE].M:=Form1.Mail.Text;
Table[NE].S:=Form1.Service.Text;
Table[NE].PR:=Form1.Profession.Text;
Table[NE].E:=Form1.Entreprise.Text;
Table[NE].W:=Form1.Web.Text;
Table[NE].ME:=Form1.Memo.Text;
 
  end;
 
 
 
 
 
 
 
procedure TForm1.FormCreate(Sender: TObject);
begin
Adresse.Clear;
AssignFile(F,'c:\adresse.adr';
{$I-}
Reset(F);
{$I+}
NE:=1;
if IOResult=0 then
begin
Repeat
Read(F,Enr);
Table[NE]:=enr;
NE:=NE+1
Until Eof(F);
NbEnr:=NE-1;
Closefile(F);
NE:=1;
Affiche(NE);
end
else
begin
With Enr do
begin
Table[1].N:='';
Table[1].A:='';
Table[1].P:='';
Table[1].T:='';
Table[1].F:='';
Table[1].C:='';
Table[1].V:='';
Table[1].M:='';
Table[1].S:='';
Table[1].PR:='';
Table[1].E:='';
Table[1].W:='';
Table[1].ME:='';
 
end;
NbEnr:=1;
end;
end;
 
 
 
 
 
procedure TForm1.precedentClick(Sender: TObject);
begin
if (NE>1) then
begin
enregistre;
NE:=NE-1;
Affiche(NE);
end;
  end;
 
 
procedure TForm1.suivantClick(Sender: TObject);
begin
   Enregistre;
   NE:=NE+1;
   if (NE<=NbEnr)
   then Affiche(NE)
 
end;
 
procedure TForm1.nouveauClick(Sender: TObject);
begin
 
   Enregistre;
   NE:=NbEnr;
   Affiche(NE);
 
   NE:=NE+1;
  Nom.Clear;
   Adresse.Clear;
   Prenom.Clear;
   Telephone.Clear;
   Fax.Clear;
   Mail.Clear;
   Code.Clear;
   Ville.Clear;
   Service.Clear;
   Profession.Clear;
   Entreprise.Clear;
   Web.Clear;
   Memo.Clear;
   NbEnr:=NbEnr+1;
 
   end;
 
 
 
 
 
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
if
(Nom.Text+Prenom.Text+Adresse.Text+Code.Text+Ville
.Text+Telephone.Text+Fax.Text+Mail.Text+Service.Te
xt+Profession.Text+Entreprise.Text+Web.Text+Memo.T
ext<>''
then enregistre;
rewrite(F);
For I:=1 to NbEnr do
Write(F,Table[I]);
CloseFile(F);
 
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
application.terminate;
end;
 
 
 
 
 
 
procedure TForm1.imprimerClick(Sender: TObject);
var S, S2 : String;
begin
PrintDialog1.Execute;
 
Str(PrintDialog1.Copies, S);
 
 
 
if PrintDialog1.PrintRange = prAllPages Then S:='Toutes les pages';
if PrintDialog1.PrintRange = prSelection then s:='La sélection';
if PrintDialog1.PrintRange = prPageNums then
  begin
  S:='Page ';
  Str(PrintDialog1.FromPage, S2);
  S:=S + S2 + ' à ';
  Str(PrintDialog1.ToPage, S2);
  S:=S + S2;
  end;
 
 
 
S:='Impression dans un fichier : ';
if PrintDialog1.PrintToFile=False then S:=S+'Non'
                                  else S:=S+'Oui';
Memo.Lines[2]:=S;
end;
 
end.

juste un conseil :
mettres des noms de variable concret et representatif de ce qu elles stockent ! OK ?
tu verras apres pr coder c vraiment plus clair !!!

 
Et indenter c'est pas mal non plus  

cest vraiment simpa ce que vous me dite mais je n'ai pas compris la moitier  !!!
 
je suis vraiment !!!! novice !!!!!

Et des noms d'objets plus parlants que ceux donnés par Delphi

Conseil : Aprend déjà les bases de la programmation
www.developpez.com