Tail Funktionalität

[Klaus01]

Hiermit habe ich eine Datei erstellt und blockiert:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
  assignFile(f,ExtractFilePath(ParamStr(0))+'test.txt');
  rewrite(f);
  while true do
    begin
      writeLn(f,'test test test test test test test test');
      application.processMessages;

    end;
end;

Hiermit kann ich aus der Datei lesen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  fileHandle : Cardinal;
  buff: array[0..10] of char;
  i: Integer;
begin
  fileHandle := fileOpen(ExtractFilePath(ParamStr(0))+'test.txt',fmOpenRead or fmShareDenyNone);
  i:=fileRead(fileHandle,buff[0],length(buff));
  closeFile(fileHandle);
  edit1.Text:=buff+' '+IntToStr(i);
end;

Grüße
Klaus