Программка на работу с файлами Опции

[Alexey]

Есть задача: создать новый типизированный файл, добавив к двум записям предыдущего файла третью запись.
Есть программка, которая вроде бы запускается и вроде бы работает:

Код

program files;
var f1,f2:file of string;
       a:string;
begin
assign(f1,'file1.txt');
assign(f2,'file2.txt');
rewrite(f1);
write(f1,'zapys 1');
write(f1,'zapys 2');
close(f1);
reset(f1);
rewrite(f2);
read(f1,a);
write(f2,a);
write(f2,'zapys 3');
close(f1);
close(f2);
end.

Единственное что - таинственные файлы file1.txt и file2.txt не появляются...
(есличо: change dir сделал, программу сохранил...)

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

Сообщение отредактировано: Alexey - 28.10.2007 21:58

[volvo]

Есть программка, которая вроде бы запускается и вроде бы работает:

В том виде, в котором ты программу привел, она не может ни запускаться ни работать... Она даже не должна компилироваться, потому что Write с бестиповыми файлами использовать нельзя.

Если ты запускал другую программу - так и скажи...

[Alexey]

эту
Правда, запускал не я, но тот, кто запускал, грит, что работает...
Будет file of string...
Так будет работать?

Меня особо волнует момент, где считываются две записи с первого файла... оно пойдет вообще все в одну переменную, или нет?..

Сообщение отредактировано: Alexey - 28.10.2007 22:01

[volvo]

Так будет работать?

И так не будет... Чтобы не играть глухие телефоны - уточни, какая именно была программа.

[Alexey]

Чтобы не играть глухие телефоны - уточни, какая именно была программа.

В смысле, какая была?

Задание: создать новый типизированный файл, добавив к двум записям предыдущего файла третью запись (имеется в виду, что "предыдущий" файл ты тоже создаешь сам).

Я написал вышеприведенную программу...

[volvo]

Вышеприведенная программа неработоспособна, я уже говорил...

Вот это - работает:

program files;
type str_type = string[20];
var
  f1, f2: file of str_type;
  a: str_type;

begin
  assign(f1,'file1.txt'); rewrite(f1);
  a := 'zapys 1'; write(f1, a);
  a := 'zapys 2'; write(f1, a);
  close(f1);

  reset(f1);
  assign(f2,'file2.txt'); rewrite(f2);
  while not eof(f1) do begin
    read(f1, a);
    write(f2, a);
  end;
  a := 'zapis 3'; write(f2, a);
  close(f1);
  close(f2);
end.