Цитата:
Сообщение от 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.