[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) можно разнести в разные места, соответсвенно, сразу писать в него данные и не создавать доп. структуры для их хранения.

[angvelem]

Сообщение от lmikle

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

Вот поэтому я и писал это.

[Setup_007]

спасибо большое, а как потом прочитать записанную информацию? Я просто немного по другому сделал. На кнопку торможения я прописал:

Код:

// Попытка открыть файл Test.txt для записи
  AssignFile(myFile, 'Test.txt');
  ReWrite(myFile);

  // Запись данных в этот файл
  WriteLn(myFile, 'v(торможения)='+FloatToStr(Round(v*100)/100));

  // Закрытие файла
  CloseFile(myFile)

И поставил кнопку для вывода информации:

Код:

var
text   : string;
begin
  // открытие файла для чтения
  Reset(myFile);

  // Показ содержимого файла
  while not Eof(myFile) do
  begin
    ReadLn(myFile, text);
    ShowMessage(text);
  end;

  // Закрытие файла в последний раз
  CloseFile(myFile);

Но тут такая проблема возникла: в процессе моделирования движения я могу несколько раз нажимать кнопку тормоза и при выводе показывается скорость авто в момент последнего нажатия на тормоз, а мне необходима информация в момент самого первого нажатия. Что можно придумать?

[angvelem]

Проверять наличие файла и, если файл существует, писать не Rewrite, а Reset. Соответственно при открытии файла, в котором может быть больше чем одна запись, читать только первую.

[Setup_007]

подскажите, хочу отрыть тот же файл и дописать информацию к той которая там уже есть. У меня же при этом старая информация затирается и в ответе я вижу только то что хотел дописать. как решить эту проблему?

[angvelem]

Я уже писал: "писать не Rewrite, а Reset".

[Setup_007]

{$I-}
AssignFile(myFile, 'Test.txt');
if FileExists('C:\Documents and Settings\Àäìèíèñòðàòîð\Ðàáî÷èé ñòîë\ÀÂÒÎ_3\Test.txt')
then
Reset(myFile);
else
ReWrite(myFile);

WriteLn(myFile, 'Ïðîåçä íà êðàñíûé ñèãíàë ñâåòîôîðà');

CloseFile(myFile);
{$I+}
у меня так вот прописано и как я понимаю это значит если такой то файл существует то Reset иначе Rewrite...а дальше идет запись.

[angvelem]

А вот теперь используй процедуру Append для добавления записи в конец файла.

Код:

    AssignFile(f, OpenDialog1.FileName);
    Append(f);
    Writeln(f, 'I am appending some stuff to the end of the file.'); 
    { insert code here that would require a Flush before closing the file }
    Flush(f);  { ensures that the text was actually written to file }
    CloseFile(f);

[Setup_007]

Спасибо, работает) А что означает Flush(f)?