Save direto
Qual é a rotina para se salver um arquivo, que já tem nome, exemplo, um arquivo aberto ou um que já foi salvado como...
Valew
Valew
Lipe
Curtidas 0
Respostas
Anonymous
16/02/2003
Voce foi muito generico, acho que e isto que voce quer se nao for ...
[color=blue:9ee4e64a3b]procedure CriaOuAnexaArquivoTexto(Filename, Texto: String);
Var Arquivo : TextFile;
begin
if FileExists(FileName) then
Begin
AssignFile(Arquivo,FileName);
Append(Arquivo);
Writeln(Arquivo,Texto);
Flush(Arquivo);
CloseFile(Arquivo);
end
else
Begin
AssignFile(Arquivo,FileName);
Rewrite(Arquivo);
Writeln(Arquivo,Texto);
CloseFile(Arquivo);
end;
end;[/color:9ee4e64a3b]
[color=blue:9ee4e64a3b]procedure CriaOuAnexaArquivoTexto(Filename, Texto: String);
Var Arquivo : TextFile;
begin
if FileExists(FileName) then
Begin
AssignFile(Arquivo,FileName);
Append(Arquivo);
Writeln(Arquivo,Texto);
Flush(Arquivo);
CloseFile(Arquivo);
end
else
Begin
AssignFile(Arquivo,FileName);
Rewrite(Arquivo);
Writeln(Arquivo,Texto);
CloseFile(Arquivo);
end;
end;[/color:9ee4e64a3b]
GOSTEI 0
Anonymous
16/02/2003
Bem eu acho que vc deve pegar o fileName do arquivo quando abrir daí comparar com o que será salvo.
quando o usuário clicar em salvar vc salva no filename que vc ja tem
quando o usuário clicar em salvar como vc abre um saveDialog e dá um saveTofile(novo_filename);
no Demo do Delphi tem um exemplo muito bom;
C:\Arquivos de programas\Borland\Delphi4\Demos\Richedit;
Té+ vê,
Gean. :)
quando o usuário clicar em salvar vc salva no filename que vc ja tem
quando o usuário clicar em salvar como vc abre um saveDialog e dá um saveTofile(novo_filename);
no Demo do Delphi tem um exemplo muito bom;
C:\Arquivos de programas\Borland\Delphi4\Demos\Richedit;
Té+ vê,
Gean. :)
GOSTEI 0