[phasha]

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

программа должна быть с типизированным файлом file of integer и должна добавлять в конец файла копии положительных чисел.

Код:

program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;

type fint=file of integer;

procedure test4c(var f:fint);
var g:fint;i,x:integer;
begin
reset(f); i:=0; x:=0;
assign(g,'asd.txt');
rewrite(g);
while not eof(f) do begin
read(f,i);
write(g,i);
end;close(f);
reset(f);
while not eof(f) do begin read(f,x);
if x>0 then begin write(g,x);end;
end;
close(f);close(g);
reset (g);
rewrite(f);
while not eof(g) do begin read(g,i); write(f,i);
end; close(f);close(g);erase(g);
end;
var f:fint;
begin
assign(f,'a.txt');
test4c(f);
end.

Админ: Пользуемся тегами, иначе последуют санкции!

[ChinYan]

она работает.но не так как хотелось бы

Что под этим понимается?

[phasha]

ну она дописывает в конец файла все подряд а должна дописывать ТОЛЬКО положительные числа...вот и не могу понять в чем может быть ошибка.может сам файл должен быть другим не знаю...третий день бьюсь...

[AND_REY]

Если использовать File of Integer и открывать получившийся текстовый файл блокнотом то в нём будут "крокозяблики" т.к тип Integer это 4 байта а не строка.
Так у меня всё работает:

Код:

Program Project1;

{$APPTYPE CONSOLE}

Uses
 SysUtils;

Var
 F, G: TextFile;
 S: String;

begin
 AssignFile(F, 'C:\1.txt');
 AssignFile(G, 'C:\2.txt');
 Reset(F);
 Rewrite(G);
 While Not Eof(F) Do
  begin
   Readln(F, S);
   Writeln(G, S);
  end;
 Reset(F);
 While Not Eof(F) Do
  begin
   Readln(F, S);
   if StrToInt(S) > 0 Then Writeln(G, S);
  end;
 CloseFile(F);
 CloseFile(G);
end.

В первом текстовике у меня в каждой строчке число от -10 до 10.

[phasha]

ну это да=)тока к какому файлу мне нужно применять мою программу не подскажете?понял что нужно 4хбайтовый...тока это же не значит что я щас возьму и в мой a.txt запишу только цифры(((какой формат?-
-------------------------------------------------
с текстом я работать могу но с file of integer чего то недопонимаю... это с файлом какого формата работать и где его вообще достать(

[AND_REY]

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

с текстом я работать могу но с file of integer чего то недопонимаю... это с файлом какого формата работать и где его вообще достать(

Вот так можно создать Файл с Integer:

Код:

Program Project1;

{$APPTYPE CONSOLE}

Type
 Fint = File of Integer;

Var
 F: Fint;
 i: Integer;

begin
 AssignFile(F, 'C:\FileofInteger.txt');
 Rewrite(F);
 For i:= -10 To 10 Do Write(F, i);
 CloseFile(F);
end.

Вот так можно открыть файл с Integer и посмотреть что в нём:

Код:

Program Project2;

{$APPTYPE CONSOLE}

Uses
 SysUtils;

Type
 Fint = File of Integer;

Var
 F: Fint;
 i: Integer;

begin
 AssignFile(F, 'C:\FileofInteger.txt');
 Reset(F);
 While Not Eof(F) Do
  begin
   Read(F, i);
   Writeln(IntToStr(i));
  end;
 CloseFile(F);
 Readln;
end.