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.
