Показать сообщение отдельно
  #6  
Старый 17.04.2011, 13:31
Аватар для AND_REY
AND_REY AND_REY вне форума
Активный
 
Регистрация: 31.03.2009
Адрес: Украина, г.Днепропетровск
Сообщения: 324
Версия Delphi: Delphi7
Репутация: 3877
По умолчанию

Цитата:
Сообщение от 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.
__________________
If end Then begin;
Ответить с цитированием