Olá sou iniciante neste grupo.
mas vamos ao que interessa:
estou gravando tres informações em arquivo de texto, estas são, nome
matricula e aparelho, este arquivo tem como nome a data do dia em que foi
gravado, mas ao atualizar o mesmo está sendo sobreescrito, ou seja, fica
apenas com a gravação atual.
como faço para salvar este arquivo, mas sendo que a nova informação fique
na linha abaixo no arquivo e como faço depois para jogar estas informações em
um stringgrid ????
fico grato com a colaboração de todos
segue abaixo o codigo utilizado:
procedure LeArquivo ( NomeArquivo : String );
var
arquivorw : Textfile;
linha : String;
begin
Assignfile( arquivorw, nomearquivo );
reset( arquivorw );
while not Eof( arquivorw ) do
begin
readln( arquivorw, linha );
radiocontrole.dados.matricula := copy ( linha, 0, 11 );
radiocontrole.dados.nome := copy ( linha, 11, 51 );
radiocontrole.dados.aparelho := copy ( linha, 51, 60 );
end;
closefile ( arquivorw )
end;
procedure gravaArquivo ( nomearquivo : String );
var
linha : String;
arquivorw : textfile;
begin
if( arquivorw ) formatdatetime( 'DD-MM-YYY', now )) is true then
begin
readln( arquivorw, linha );
while not Eof( arquivorw ) do
begin
writeln( arquivorw, linha );
end;
begin
with radiocontrole do
begin
linha := edtmatricula.text;
linha := linha + edtnomeagente.text;
linha := linha + edtaparelho.text;
writeln( arquivorw, linha );
closefile( arquivorw );
end;
end;
end;
procedure Tradiocontrole.FormCreate(Sender: TObject);
begin
assignfile( arquivorw, formatdatetime( 'DD-MM-YYY', now ));
rewrite( arquivorw );
end;
---------------------------------
Yahoo! doce lar. Faça do Yahoo! sua homepage.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
