 Posté le: 14 11 2002 20:10 Sujet du message: Delphi: Répertoire téléphone |
|
|
Code Delphi, le 14/11/02
| Code: | unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
type personne=Record
Nom:String[20];
Tel:String[14];
end;
var repertoire: file of personne;
individu:personne;
S:string;
begin
assignfile(repertoire,'C:\reptel.dat');
rewrite(repertoire);
end;
procedure TForm1.Button2Click(Sender: TObject);
type personne=Record
Nom:String[20];
Tel:String[14];
end;
var repertoire:file of personne;
individu:personne;
S:string;
begin
assignfile(repertoire,'C:\reptel.dat');
reset(repertoire);
with individu do
begin
repeat
S:=InputBox('Nom','Entrez le nom','');
nom:=s;
S:=InputBox('Téléphone','Entrez le numéro de téléphone','');
tel:=s;
IF length(nom) <> 0 then
write(repertoire,Individu);
until length(nom)=0;
end;
closefile(repertoire)
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
close
end;
end. |
|
|
Ice_man33
Posteur habitué
Inscrit le: 19 Sep 2002
Messages: 126
Localisation: Montréal
|
S'enregistrer
Rechercher
FAQ
Connexion
