Правила форума
Прочтите прежде чем задавать вопрос!
type STR = strin[40];
type MyRec= record
field1 : STR;
field2 : STR;
end;
type Myfiletype = file of MyRec;
Проблема в том, что на экран и файл ничего не выводиться, может кто заметит что и как? Файл с которого считываем точно содержит записи. Выручайте!
procedure Pair ( var fff : MyFiletype; var NewFile : MyFiletype ;var Fileopen: boolean);
var
i : integer;
NewFileName : String;
rec : MyRec;
begin
if (FileOpen=False) then
begin
WriteLntext(' Файл не открыт ; Действие нельзя выполнить');
exit;
end;
writeln ('Введите название файда в который пишем чётные записи ');
readln (NewFileName);
i:=-1;
{I-}
assign (NewFile,NewFileName + '.txt');
reset (fff);
rewrite (NewFile);
{$I+}
If IOResult = 0 then writeln ('файл ',NewFileName, ' успешно создан');
seek (fff,i);
while (eof(fff) <> True) do
begin
inc (i);
read (fff,rec);
if i mod 2 = 0 then
begin
write (NewFile,rec);
writeln (rec.field1[i],' ',rec.field2[i]);
end;
end;
seek(fff,0);
{$I-}
close (fff);
close (NewFile);
{$I+}
end;
Сообщение отредактировано: Tan -
