Bases de données delphi
Fermé
nadadouaa
Messages postés
34
Date d'inscription
mercredi 12 novembre 2008
Statut
Membre
Dernière intervention
6 août 2010
-
21 nov. 2008 à 18:01
NM - 11 déc. 2008 à 11:34
NM - 11 déc. 2008 à 11:34
A voir également:
- Bases de données delphi
- Telecharger delphi 7 - Télécharger - Langages
- Reinstaller windows sans perte de données - Guide
- Effacer les données de navigation - Guide
- La zone de données passée à un appel système est insuffisante - Windows 11
- Désolé l'utilisation de la base de données a expiré epic games - Forum Jeux vidéo
1 réponse
Salut.
Adapter ce code et le mettre dans l'évenement onclick d'un bouton (ou autre emplacement celon vos besoins) :
var
f : textfile;
begin
assignefile(f, 'chemin\nomfichier.txt');
rewrite(f);
table1.first;
while not table1.eof do
begin
write(f, table1.fiueldvalues['chap1'] + '////'); {un ou plusieurs caractères pour désigner les séparation entre les
valeurs de différents champs de la table }
.....
.....
writeln(f, table1.fiueldvalues['chapN'] );
table1.next;
end;
showmessage('opération terminée avec succès.');
end;
c'est à vous de faire quelques modifications pour adapter le code à vos besoins.
***************
Adapter ce code et le mettre dans l'évenement onclick d'un bouton (ou autre emplacement celon vos besoins) :
var
f : textfile;
begin
assignefile(f, 'chemin\nomfichier.txt');
rewrite(f);
table1.first;
while not table1.eof do
begin
write(f, table1.fiueldvalues['chap1'] + '////'); {un ou plusieurs caractères pour désigner les séparation entre les
valeurs de différents champs de la table }
.....
.....
writeln(f, table1.fiueldvalues['chapN'] );
table1.next;
end;
showmessage('opération terminée avec succès.');
end;
c'est à vous de faire quelques modifications pour adapter le code à vos besoins.
***************