Text in eine Memo einlesen.

[shmia]

Das hat mit den Share-Attributen zu tun. Versuch mal:

Delphi-Quellcode:

function FileToString(const FileName: AnsiString): AnsiString;
var
  fs: TFileStream;
  len: Integer;
begin
  fs := TFileStream.Create(FileName, fmOpenRead or fmShareDenyNone);
  try
    len := fs.Size;
    SetLength(Result, len);
    if len > 0 then
      fs.ReadBuffer(Result[1], len);
  finally
    fs.Free;
  end;
end;

// Beispiel
Memo1.lines.Text := FileToString('logdatei.txt');