Fórum Editar dados ou algo do tipo dentro do arquivo pego pelo opendialog #560119

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

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;

seria possivel eu fazer isso com todo tipo de arquivo? a curto prazo, essa era a minha idéa

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

e vamos supor um arquivo .rar?