Lazarus
Home
Forum
Help
TinyPortal
Search
Login
Register
Lazarus
»
Other Languages
»
Portuguese
»
Ajuda com Salvar e Salvar Como
Free Pascal
Website
Downloads
Wiki
Bugtracker
Mailing List
Lazarus
Website
Downloads (Laz+FPC)
FAQ
Wiki
Bugtracker
Packages
IRC channel
Developer Blog
Follow us on Twitter
Latest SVN
Mailing List
Other languages
Foundation
Website
Useful Wiki Links
Project Roadmap
Getting the Source
Screenshots
About donations (wiki)
Bookstore
Computer Math and Games in Pascal
Search
Advanced search
« previous
next »
Print
Pages: [
1
]
Author
Topic: Ajuda com Salvar e Salvar Como (Read 1458 times)
Almeida2016
Newbie
Posts: 2
Ajuda com Salvar e Salvar Como
«
on:
August 14, 2016, 04:26:47 pm »
Olá a todos!
Minha pergunta é básica mas não estou conseguindo implementar ou encontrar uma resposta. Estou iniciando com Lazarus, criando um editor de HTML simples. Gostaria de criar no menu arquivo, as opções
Salvar
e
Salvar como
como a maioria dos editores tem.
Estou usando o código para o
salvar como
if savedialog1.execute then
begin
SaveDialog1.FileName:= OpenDialog1.FileName;
SynEdit1.lines.savetofile(savedialog1.filename);
SynEdit1.setfocus;
end;
Mas para salvar já tentei varias formas e não tenho conseguido. Sendo mais específico: Geralmente o
Salvar
caso o arquivo já exista e se faça alguma alteração, quando acionado ele salva sem abrir a janela de diálogo. Caso seja novo e ainda não tenha sido salvo, abre a janela salvar como. E o
Salvar como
sempre abrirá a janela de diálogo.
Se alguém puder ajudar agradeço.
Logged
bylaardt
Sr. Member
Posts: 265
Re: Ajuda com Salvar e Salvar Como
«
Reply #1 on:
August 15, 2016, 01:48:03 am »
para saber se o arquivo já foi salvo anteriormente, verifique em com:
Code: Pascal
[Select]
if
(
length
(
savedialog1
.
filename
)
>
0
)
or
savedialog1
.
execute
then
...
não esqueça de, ao abrir o arquivo, identificar o arquivo com o nome padrão:
Code: Pascal
[Select]
savedialog1
.
opendialog
:
=
opendialog1
.
filename
Logged
Print
Pages: [
1
]
« previous
next »
Lazarus
»
Other Languages
»
Portuguese
»
Ajuda com Salvar e Salvar Como
Recent
free pascal (none-lazarus...
by
pielago
[
Today
at 03:02:20 am]
different selections to i...
by
jamie
[
Today
at 02:53:23 am]
Visual Pascal Community E...
by
valdir.marcos
[
Today
at 02:03:05 am]
How do I get the PLAN fro...
by
RedOctober
[
Today
at 01:39:22 am]
Import excel to dbgird
by
wp
[
Today
at 01:13:02 am]
[SOLVED] What am I doing ...
by
cpicanco
[
Today
at 01:12:43 am]
What does this TGtk2Widge...
by
cpicanco
[
Today
at 01:00:28 am]
Material Design
by
lainz
[
Today
at 12:43:01 am]
New version of BGRABitmap
by
lainz
[
Today
at 12:41:47 am]
Blogs
by
RAW
[
Today
at 12:21:17 am]