ANTICHAT — форум по информационной безопасности, OSINT и технологиям

var
  arr: array[1..80] of integer;
  i: integer;
...
assign(input, 'input.txt');
reset(input);
i := 1;
while not eof(input) do
begin
  readln(arr[i]);
  i := i + 1;
end;
closefile(input);

var
   input: Text;
   a: array[1..80] of Integer;
   n, i: Integer;
begin
     Assign(input, 'input.txt');
     Reset(input);
     i := 0;
     while not Eof(input) do
     begin
          i := i+1;
          Read(input, a[i]);
     end;
     Close(input);
end.

ULONG CountLinesInFile(char* name)
{
	FILE* file;
	ULONG ret = 0;
	char buf[64];
	
	file = fopen(name, "rt");
	if (file)
	{
		while (!feof(file))
		{
			if (fgets(buf, 64, file)) 
			{
				ret++;
			}
		}
		
		fclose(file);
	}
	
	return ret;
}

var
 buf:array[0..1024*64-1];  //типа 64 кила буфер
 len:dword; // кол-во считанных данных
 h:dword;
 cnt : dword;
 x :dword;
begin
h := CreateFile(....);
if h <> $FFFFFFFF then
  begin
    cnt := 0;
    while true do
    begin
      if ReadFile(h,...., len) then
      begin
        for x := 0 to len-1 do if buf[x] = #10 then inc(cnt);
      end else break;
      if len < 1 then break;
    end;
   
    CloseHandle(h)
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
FStream : TFileStream;
ProgressBar :TProgressBar;
i,j,count: integer;
buf : array[1..40000] of Char;
begin with OpenDialog1 do if Execute then
begin
i:=round(FStream.Size/40000);
if (i*40000<FStream.Size) then i:=i+1;
ProgressBar.Max:=i;
Application.ProcessMessages;
for j:=1 to i do
begin
if i=j then
count:=FStream.Read(buf,FStream.Size-((i-1)*40000))
else count:=FStream.Read(buf,length(buf));
ProgressBar.Position:=j;
while get_accept=false do Application.ProcessMessages;
get_accept:=false;


Listbox1.Items.Add(opendialog1.FileName);
FStream:=TFileStream.Create(OPenDialog1.FileName,f mOpenRead);
Edit2.Text:=IntToStr(Round(FStream.Size/1024))+' êèëîáàéò.';
FStream.free;
end;
end;

end;