Em vez de usar o AssignFile use um tStringList;
lArquivo := tStringList.Create;
lArquivo.LoadFromFile('web\GE.INFO');
For Contador := 0 to lArquivo.Count -1 do
Begin
if Copy(lArquivo.Strings[Contador],1,5) = '#date' then
lArquivo.Strings[Contador] := lArquivo.Strings[Contador] + wdata);
Você pode usar um tStringList, e adicionar as linhas que você deseja,
e quando o seu arquivo estiver pronto, use o método SaveToFile(cNomeArq),
onde cNomeArq é o nome do arquivo que você deseja criar.
Arnaldo V. Scarin
[EMAIL PROTECTED]
[EMAIL PROTECTED]
[EMAIL PROTECTED]
[EMAIL PROTECTED]
No Componente tMemo, use o metodo Lines.Add('Texto que você quer adicionar')
que este será adicionado como se fosse uma nova linha...
Arnaldo V. Scarin
[EMAIL PROTECTED]
[EMAIL PROTECTED]
[EMAIL PROTECTED]
[EMAIL PROTECTED]
[EMAIL PROTECTED]
-Mensagem original-
De: David Leão
3 matches
Mail list logo