SCHNELL: Erste 100 Zeichen aus Textdatei lesen

[Mavarik]

OK Leute...

OLD SCHOOL

Delphi-Quellcode:

Procedure Schnell;
Var
  Buffer  : array[0..99] of byte;
  F       : file;
  gelesen : Integer;
begin
  AssignFile(F,'Cool.txt');
  reset(F,1);
  Blockread(F,Buffer[0]),100,gelesen);
  Closefile(F);
  if gelesen = 100 then
   begin
     bla;
   end;
end;

Würde sagen NIX ist schneller!

Mavarik