Thema: Delphi Texdatei öffen

Einzelnen Beitrag anzeigen

carknue

Registriert seit: 26. Mai 2005
37 Beiträge
 
Turbo Delphi für Win32
 
#1

Texdatei öffen

  Alt 27. Mai 2005, 00:54
Hallo,

ich möchte eine vorhandene Textdatei nur zum lesen öffen, gleichzeitig soll aber ein anderes Programm in die Datei schreiben dürfen. Wie ich es jetzt mache, funktioniert es nicht, weil das andere Programm nicht in die Datei schreiben kann.


Delphi-Quellcode:
OpenDialog1.Filter := 'DRM Log Files|*.log;*.txt;*.bak|All Files|*.*';
 if not OpenDialog1.Execute then
 Exit;
 Filemode:= fmOpenRead or fmShareCompat;
 
 {$I-}
 AssignFile(f, OpenDialog1.FileName);
 Reset(f);
 {$I+}
Was mache ich falsch?
  Mit Zitat antworten Zitat