Fórum Linhas em TXT #336418

procedure TForm1.Timer1Timer(Sender: TObject);
var
  DBRALFM: TextFile;
  existe: boolean;
  arquivo: string;
begin
  arquivo := ´c:\teste_append.txt´;

  existe := FileExists(arquivo);

  AssignFile(DBRALFM, arquivo);
  if existe then
    Append(DBRALFM) // se existe, inclui o texto no arquivo
  else
    Rewrite(DBRALFM); // se não existe, cria o arquivo

  Writeln(DBRALFM,Timetostr(Now),´ ´,´Teste1´,´ ´,´Teste2´);

  CloseFile(DBRALFM);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  DBRALFM: TextFile;
  existe: boolean;
begin
  existe := FileExists(SaveDialog1.FileName);

  AssignFile(DBRALFM, SaveDialog1.FileName);

  if existe
  then Append(DBRALFM) // se existe, inclui o texto no arquivo
  else Rewrite(DBRALFM); // se não existe, cria o arquivo

  Writeln(DBRALFM,Timetostr(Hora), ´ ´, a, ´ ´, b);

  CloseFile(DBRALFM);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  DBRALFM: textfile;
  existe: boolean;
  arquivo,s: string;
begin
  // desligo o timer para não encavalar os processos
  Timer1.Enabled := False;

  Hora := now;
  s := FormatDateTime(´yyymmdd´,Hora);

  Edit1.Text:=s;
  nome:=s;

  a := a + 1;
  b := a + b;
  a := RoundTo(a,-2);
  b := RoundTo(b,-2);

  Edit2.text := floattostr(a);
  Edit3.text := floattostr(b);

  Series1.Addxy(Hora,a);
  Series2.Addxy(Hora,2*a);

  //salva os dados no arquivo criado
  arquivo := ´c:\´+nome+´.txt´;
  existe := FileExists(arquivo);

  AssignFile(DBRALFM, arquivo);

  if existe then
    Append(DBRALFM)
  else
    ReWrite(DBRALFM);

  Writeln(DBRALFM,Datetostr(Hora),´ ´,Timetostr(Hora),´ ´,
     format(´¬18.2f´,[a]),´ ´, format(´¬18.2f´,[b]));
  CloseFile(DBRALFM);

  // religo o timer
  Timer1.Enabled := True;
end;