[Setup_007]

Есть программа моделирующая движение автомобиля, есть кнопки для торможения и ускорения авто. Суть в том чтобы при нажатии на одну из кнопок торможения шла запись скорости автомобиля и оставшегося расстояния до объекта (эти значения рассчитываются по формуле в программе). Как это лучше организовать и куда записывать? Возможно ли записать в txt файлик?

[angvelem]

Да возможно. Нужно более точно знать условия, чтобы выбрать, что лучше использовать.

[AND_REY]

Простенький пример, можно подогнать под свою прогу:

Код:

Var
 F: TextFile;
 n: Integer;
begin
 AssignFile(F, 'MyTxt.txt');
 ReWrite(F);
 For n:= 1 To 100 Do Writeln(F, '№ '+IntToStr(n));
 CloseFile(F);
end;

[GriLab]

AND_REY, если ты непротив, то я немного дополню твой код:

Код:

var
 F: TextFile;
 n: Integer;
begin
 AssignFile(F, 'MyTxt.txt');
 try
  if not FileExists('MyTxt.txt')
    Rewrite(F)
  else
    Reset(F);
  for n := 1 To 100 do 
    WriteLn(F, '№ ' + IntToStr(n));
 finally
   CloseFile(F);
 end;
end;

[AND_REY]

Да, с проверками правильнее будет.

[angvelem]

Совсем правильно, будет так:

Код:

var
 F: TextFile;
 n: Integer;
begin
{$I-}
 AssignFile(F, 'MyTxt.txt');
 try
  if not FileExists('MyTxt.txt')
    Rewrite(F)
  else
    Reset(F);
  for n := 1 To 100 do 
    WriteLn(F, '№ ' + IntToStr(n));
 finally
   CloseFile(F);
 end;
{$I+}
end;

[lmikle]

А не проще так:

Код:

var
  L : TStringList;
  I : Integer;
begin
  L := TStringList.Create;
  For I := 1 To 100 Do
    L.Add('№ ' + IntToStr(n));
  Try
    L.SaveToFile('MyFile.txt');
  Finally
    L.Free;
  End;
end;

Создание, сохранение и уничтожение объекта (L) можно разнести в разные места, соответсвенно, сразу писать в него данные и не создавать доп. структуры для их хранения.