Editar dados ou algo do tipo dentro do arquivo pego pelo opendialog
to com uma dificuldade cabulosa nisso, teria como atraves do open dialog do delphi eu pode mecher nos dados dos arquivos ou pode editar qualquer coisa que poderia modificalo????? ajudem por favor
Mateus
Curtidas 0
Respostas
Natanael Ferreira
10/08/2016
O OpenDialog serve para o usuário selecionar um arquivo e como resultado você tem o caminho deste arquivo selecionado.
Para editar os dados, vai depender da extensão do arquivo selecionado.
Por exemplo, se for txt, você pode ver exemplos de manipulação neste link:
https://www.devmedia.com.br/criando-e-gravando-dados-em-txt-com-delphi/22630
Para editar os dados, vai depender da extensão do arquivo selecionado.
Por exemplo, se for txt, você pode ver exemplos de manipulação neste link:
https://www.devmedia.com.br/criando-e-gravando-dados-em-txt-com-delphi/22630
GOSTEI 0
Raimundo Pereira
10/08/2016
Qual o tipo de arquivo, qual o conteúdo desse arquivo e o quê exatamente você quer modificar?
Se for um arquivo de texto simples.
veja
Criamos duas variáveis
var
Form1: TForm1;
var
Xmemo:tmemo;
XOD:TOpenDialog;
Dois button
Load: TButton;// Carregar o arquivo
Post: TButton;// Gravar alterações
procedure LoadClick(Sender: TObject);
procedure PostClick(Sender: TObject);
procedure TForm1.LoadClick(Sender: TObject);// Esse carrega o arquivo no opendialog
begin
try
Xmemo := tmemo.Create(nil);
XOD := TOpenDialog.Create(nil);
Xmemo.Parent := Form1;
Xmemo.Align := alBottom;
XOD.Execute();
if FileExists(XOD.FileName) then
begin
Xmemo.Clear;
Xmemo.Lines.LoadFromFile(XOD.FileName);
end
else
begin
ShowMessage('Arquivo não informado');
end;
Except
ShowMessage('Falha no processo de criação');
end;
end;
procedure TForm1.PostClick(Sender: TObject);// Aqui grava os dados editados no memo no arquivo.
begin
try
Xmemo.Lines.SaveToFile(xod.FileName);
ShowMessage('Gravação Finalizada');
Xmemo.Free;
XOD.Free;
except
ShowMessage('Falha na gravação');
end;
end;
Se for um arquivo de texto simples.
veja
Criamos duas variáveis
var
Form1: TForm1;
var
Xmemo:tmemo;
XOD:TOpenDialog;
Dois button
Load: TButton;// Carregar o arquivo
Post: TButton;// Gravar alterações
procedure LoadClick(Sender: TObject);
procedure PostClick(Sender: TObject);
procedure TForm1.LoadClick(Sender: TObject);// Esse carrega o arquivo no opendialog
begin
try
Xmemo := tmemo.Create(nil);
XOD := TOpenDialog.Create(nil);
Xmemo.Parent := Form1;
Xmemo.Align := alBottom;
XOD.Execute();
if FileExists(XOD.FileName) then
begin
Xmemo.Clear;
Xmemo.Lines.LoadFromFile(XOD.FileName);
end
else
begin
ShowMessage('Arquivo não informado');
end;
Except
ShowMessage('Falha no processo de criação');
end;
end;
procedure TForm1.PostClick(Sender: TObject);// Aqui grava os dados editados no memo no arquivo.
begin
try
Xmemo.Lines.SaveToFile(xod.FileName);
ShowMessage('Gravação Finalizada');
Xmemo.Free;
XOD.Free;
except
ShowMessage('Falha na gravação');
end;
end;
GOSTEI 0
Mateus
10/08/2016
seria possivel eu fazer isso com todo tipo de arquivo? a curto prazo, essa era a minha idéa
GOSTEI 0
Raimundo Pereira
10/08/2016
Como
Natanael Ferreira, disse vai depender da extensão do arquivo;
Por exemplo, você pode usar o open dialog, para abrir um txt pelo bloco de notas.
Um arquivo PDF usando o adobe.
Uma imagem pelo mspaint.
Tudo depende do arquivo
Natanael Ferreira, disse vai depender da extensão do arquivo;
Por exemplo, você pode usar o open dialog, para abrir um txt pelo bloco de notas.
Um arquivo PDF usando o adobe.
Uma imagem pelo mspaint.
Tudo depende do arquivo
GOSTEI 0
Mateus
10/08/2016
e vamos supor um arquivo .rar?
GOSTEI 0