TFileStream: Textdatei auslesen

[Pseudemys Nelsoni]

danke euch zwei

btw:

Delphi-Quellcode:

procedure TBL.Load(const AFileName: string); 
var 
  Fs: TFileStream; 
  BytesRead: Integer; 
  Buffer: array[1..15] of Char; 
begin 
  Fs := TFileStream.Create(AFileName, fmOpenRead + fmShareDenyNone); 
  try 
    While Fs.Position<=Fs.Size do 
      begin  
      BytesRead := Fs.Read(Buffer, Length(Buffer)); 
       // Hier geht's dann weiter 
      end; // While Fs.Position<=Fs.Size do 
  finally 
    Fs.Free; 
  end; 
end;

^^^^ dann brauch ich die variable "BytesRead" aber nicht oder?