Verifcando Existencia De Arquivo (Resolvido)

[alexsme]

Olá galera,

sou novato e estou fazendo um pequeno editor. Estou fazendo a opção salvar, mas não sei como verficar se o arquivo já existe e caso existe usar a mensagem pergunta se a pessoa deseja sobrescrever.

Espero que me ajudem. Isto deve ser baba pra vocês.

valeu galera!

Abraços

[Kikonanet]

Olá,

If FileExists('C:\arquivo') then...

Abs.

Kiko

[alexsme]

Essa função eu já conhecia cara, mas não tõ conseguindo fazer a mensagenzinha perguntando se o cara quer sobrescrever ou não..como faço pra tratar isso?

Falow

[alexsme]

estou usando assim, mas não tá funcionando:

procedure TForm1.Salvar1Click(Sender: TObject);
var
  F: textFile;
begin
  //indica os tipos de arquivos
  SaveDialog1.Filter := 'Arquivos texto (*.txt) |*.TXT';
  //abre a caixa de dialogo
  if SaveDialog1.Execute then
  begin
    //associa o nome do arquivo a variavel F
    AssignFile(F, SaveDialog1.FileName);
    //cria e abre um arquivo
    while (Application.MessageBox(PChar('Este nome de arquivo já existe!'#13'Deseja sobre escrevê-lo?'
         + ''), 'Confirmação', MB_ICONQUESTION
         + MB_YESNO + MB_DEFBUTTON2) = IdYes) do
     begin
     Rewrite(F);
     //grava o conteudo do memo m_edicao no arquivo
     Write(F, m_edicao.Text);
     //fecha o arquivo
     CloseFile(F);
     end;
  end;

end;

[Kikonanet]

Olá,

veja se é isso:

var
 F: textFile;
begin
 //indica os tipos de arquivos
 SaveDialog1.Filter := 'Arquivos texto (*.txt) |*.TXT';
 //abre a caixa de dialogo
 if SaveDialog1.Execute then
 begin
   //associa o nome do arquivo a variavel F
  If FileExists(SaveDialog1.FileName) then
   begin
    // qui você pergunta se quer reescrever o arquivo
   end; 
  end;

Abs.

Kiko

[Guest Guest]

É isso!

Valeu!