Text in eine Memo einlesen.

[delphi_newbie_123]

hallo,
ich hab ein problem beim lesen einer logdatei in meine memo.
ich will gerne eine log datei eines anderes programms auswerten, kann diese datei aber nicht
einlesen, da die gerade benutzt wird.
könnte man den fehler irgendwie umgehen und trotzdem diese datei einlesen.
ich mein,.. man kanns sie doch aufmachen und anschauen, warum nicht auch in das memo laden?
ich hoffe auf eine antwort danke!

[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');

[delphi_newbie_123]

danke sehr werde ich gleich machen

[delphi_newbie_123]

hi, sorry noch ne kurze frage.
wie aknn ich den status von dem file erfahren, obs benutzt wird doer nicht?
merke gerade, dass es viel besser gelöst werden kann, da ich beide programme steuere
falls das jemand vielelciht brauchen sollte:

Delphi-Quellcode:

function IsFileInUse(fName: string): Boolean; 
var 
HFileRes: HFILE; 
begin 
Result := False; 
if not FileExists(fName) then 
Exit; 
HFileRes := CreateFile(PChar(fName), GENERIC_READ or GENERIC_WRITE, 0, nil, 
OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0); 
Result := (HFileRes = INVALID_HANDLE_VALUE); 
if not Result then 
CloseHandle(HFileRes); 
end;