Delphi Texdatei öffen - Delphi-PRAXiS

Thema durchsuchen

Ansicht

Themen-Optionen

Texdatei öffen

Ein Thema von carknue · begonnen am 26. Mai 2005 · letzter Beitrag vom 28. Mai 2005

Vorheriger Beitrag

Nächster Beitrag

carknue

Registriert seit: 26. Mai 2005
37 Beiträge

Turbo Delphi für Win32

Texdatei öffen

26. Mai 2005, 23: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.

markieren

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?