EXPORT DE DONNÉE D'UN DATASET DANS UN FICHIER TEXTE

cs_Amadeus Messages postés 123 Date d'inscription mercredi 2 janvier 2002 Statut Membre Dernière intervention 15 mars 2004 - 6 janv. 2003 à 10:18
cs_Amadeus Messages postés 123 Date d'inscription mercredi 2 janvier 2002 Statut Membre Dernière intervention 15 mars 2004 - 6 janv. 2003 à 10:18
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/12253-export-de-donnee-d-un-dataset-dans-un-fichier-texte

cs_Amadeus Messages postés 123 Date d'inscription mercredi 2 janvier 2002 Statut Membre Dernière intervention 15 mars 2004 2
6 janv. 2003 à 10:18
Voici un exemple pour mcgyver :
procedure TForm1.Button1Click(Sender: TObject);
var
ExportDataSet: TExportDataSet;
begin
Table1.Active:= true;
ExportDataSet:= TExportDataSet.Create;
try
ExportDataSet.Dataset:= Table1;
ExportDataSet.FileName:= 'c:Table.txt';
ExportDataSet.Separateur:= ';';
ExportDataSet.ExportData;
finally
ExportDataSet.free;
end;
end;