AGENDA +FICHIER
babsbabs
Messages postés
3
Date d'inscription
jeudi 19 décembre 2002
Statut
Membre
Dernière intervention
11 janvier 2008
-
6 août 2003 à 16:30
Meghslim Messages postés 3 Date d'inscription mardi 21 mars 2006 Statut Membre Dernière intervention 23 mars 2006 - 21 mars 2006 à 22:22
Meghslim Messages postés 3 Date d'inscription mardi 21 mars 2006 Statut Membre Dernière intervention 23 mars 2006 - 21 mars 2006 à 22:22
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/12618-agenda-fichier
https://codes-sources.commentcamarche.net/source/12618-agenda-fichier
21 mars 2006 à 22:22
mais dans l'ensemble bien
16 août 2003 à 08:07
var r:integer;
begin
combobox1.Clear;
r:=0;
begin
// tant que r < le derniere enregistrement
while r < filesize(fagenda) do
begin
//on ce position sur le fichier
seek(fagenda,r);
//et on lit le fichier
read(fagenda,xagenda);
//mais si xagenda.supprime est = * on ne le lit pas
if (trim(xagenda.supprime) <> '*')then
begin
combobox1.Items.Add(xagenda.nom);
end;
//on ajoute +1 a r pour effectuer la boucle
r:=r+1;
end;
end;
end;
end.
voila la soluce
6 août 2003 à 16:30
merci