Hello luisante
Something like this ?
procedure Form1_CheckBox4_OnClick (Sender: TObject); // Sauvegarde au format Html
var SaveDialog : TSaveDialog;
begin
SaveDialog := TSaveDialog.Create(Form1);
SaveDialog := TSaveDialog.Create(Form1);
SaveDialog.Filter := 'Fichier HTML |*.html';
SaveDialog.DefaultExt := 'txt';
If SaveDialog.Execute then
Begin
Form1.TableGrid1.SaveToTextFile(SaveDialog.FileName);
end;
end;
procedure Form1_CheckBox5_OnClick (Sender: TObject); // Sauvegarde au format csv
var SaveDialog : TSaveDialog;
begin
SaveDialog := TSaveDialog.Create(Form1);
SaveDialog := TSaveDialog.Create(Form1);
SaveDialog.Filter := 'Fichier CSV |*.csv';
SaveDialog.DefaultExt := 'txt';
If SaveDialog.Execute then
Begin
Form1.TableGrid1.SaveToTextFile(SaveDialog.FileName);
end;
end;
procedure Form1_CheckBox3_OnClick (Sender: TObject;var Cancel: boolean); // Sauvegarde au format txt
var SaveDialog : TSaveDialog;
begin
SaveDialog := TSaveDialog.Create(Form1);
SaveDialog.Filter := 'Fichier TXT |*.txt';
SaveDialog.DefaultExt := 'txt';
If SaveDialog.Execute then
Begin
Form1.TableGrid1.SaveToTextFile(SaveDialog.FileName);
end;
JB