BioStudio,
Cita:
Empezado por BioStudio
Ahora por ejemplo le quise agregar el saveDialog pero no crea el archivo
|
Esta sentencia esta respetida 2 veces en tu código:
Código Delphi
[-]
saveDialog := TSaveDialog.Create(self);
Esta es una combinación de tu código con el de ecfisa:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
var
i : Integer;
saveDialog : TSaveDialog;
begin
saveDialog := TSaveDialog.Create(self);
saveDialog.Title := 'Respaldo de Archivo en Formato CSV';
saveDialog.InitialDir := GetCurrentDir;
saveDialog.Filter := 'CSV (Formato de texto separado por comas)|*.csv';
saveDialog.DefaultExt := 'csv';
saveDialog.FilterIndex := 1;
if saveDialog.Execute then
begin
with TStringList.Create do
try
for i := 0 to Form1.ListView1.Items.Count-1 do
Add(Form1.ListView1.Items[i].Caption +',' +
Form1.ListView1.Items[i].SubItems.CommaText);
Text := StringReplace(Text,',',';',[rfReplaceAll]);
try
SaveToFile(SaveDialog.FileName);
except
ShowMessage('Error en la Generación del Archivo CSV');
end;
finally
free;
end;
end;
saveDialog.Free;
end;
Espero sea útil
Nelson.