Ir ao conteúdo
  • Comunicados

    • Gabriel Torres

      Seja um moderador do Clube do Hardware!   12-02-2016

      Prezados membros do Clube do Hardware, Está aberto o processo de seleção de novos moderadores para diversos setores ou áreas do Clube do Hardware. Os requisitos são:   Pelo menos 500 posts e um ano de cadastro; Boa frequência de participação; Ser respeitoso, cordial e educado com os demais membros; Ter bom nível de português; Ter razoável conhecimento da área em que pretende atuar; Saber trabalhar em equipe (com os moderadores, coordenadores e administradores).   Os interessados deverão enviar uma mensagem privada para o usuário @Equipe Clube do Hardware com o título "Candidato a moderador". A mensagem deverá conter respostas às perguntas abaixo:   Qual o seu nome completo? Qual sua data de nascimento? Qual sua formação/profissão? Já atuou como moderador em algo outro fórum, se sim, qual? De forma sucinta, explique o porquê de querer ser moderador do fórum e conte-nos um pouco sobre você.   OBS: Não se trata de função remunerada. Todos que fazem parte do staff são voluntários.
    • DiF

      Poste seus códigos corretamente!   21-05-2016

      Prezados membros do Fórum do Clube do Hardware, O Fórum oferece um recurso chamado CODE, onde o ícone no painel do editor é  <>     O uso deste recurso é  imprescindível para uma melhor leitura, manter a organização, diferenciar de texto comum e principalmente evitar que os compiladores e IDEs acusem erro ao colar um código copiado daqui. Portanto convido-lhes para ler as instruções de como usar este recurso CODE neste tópico:  
Entre para seguir isso  
Roarealva

Duvida iniciante salvar texto .txt [ajuda]

Recommended Posts

Eheheh é uma coisinha simples mais to quebrando a cabeça no DELPHI !!!:wacko:

declarei a

var F:textfile;

Adicionei um botão e um memo1

no botão coloquei o codigo:

procedure TForm1.Button1Click(Sender: TObject);

var

F:textfile;

begin

Assignfile(F,'c:\text.txt');

if not FileExists('c:\text.txt') Then

begin

Rewrite(F);

Closefile(F);

End

Else

Assignfile(F,'c:\text.txt');

{$I-}

Append(F);

{$I+}

If IOResult<> 0 Then

Begin

End;

Write(F,Form1.Memo1.text);

Closefile(F);

end;

Ai o programa faz o seguinte ele cria o c:\text.txt e quando eu aperto o botão ele salva o tudo que eu escrevi no memo1

massss

tipo se eu escrever

TESTANDO O PROGRAMA e apertar o botão e depois escrever TEST DE NOVO e apertar de novo

no documento vai ficar assim:

TESTANDO O PROGRAMA

TESTANDO O PROGRAMA

TEST DE NOVO

sendo que era para ficar assim

TESTANDO O PROGRAMA

TEST DE NOVO

tipo quando eu salvo ele salva des do começo ,ele não salva só o que foi adicionado ao texto, ele vai ficar duplicando o texto.....

AJUDA AEWWWWWW!!!!!!!!

Editado por Roarealva

Compartilhar este post


Link para o post
Compartilhar em outros sites

EHheeh quase resolvi...

eu coloquei um componente SaveDialog que fica na paleta Dialog

e coloquei mais um botão com o comando

begin

if Savedialog1.Execute then

begin

memo1.Lines.SavetoFile(Savedialog1.FileName);

memo1.SetFocus;

end;

end;

aí quando eu cliko ele abre a janela para salvar , eu coloco o local , o nome do .txt e aperto salvar

EHEHEh salvo normal

ele salva certinho sem 'duplicar' o texto

mais eu quero que eu não tenha que clicar em nada

Compartilhar este post


Link para o post
Compartilhar em outros sites

kkkkkkkkk

to até com vergonhaa:unsure:

era só por em um botão....

memo1.Lines.SavetoFile('c:\text.txt');

:D

[Resolvido]

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Entre para seguir isso  





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×