Ergebnis der Suchanfrage

• Forum: Programmieren allgemein

  Re: Text in eine Memo einlesen.

   
    by shmia, 3. Dez 2004
  Das hat mit den Share-Attributen zu tun. Versuch mal:
  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);