Typisierte Datei erstellen

[Stillmatic]

Hallo!

Ich habe eine Frage!

Wie kann man auf ein OpenDialog eine Datei erstellen, falls sie nicht vorhanden ist?? und eine Datei öffnen wenn sie vorhanden ist??

Code:

if OpenDialog.Execute then

try
 If FileExists(SaveDialog.FileName) then
  reset(Datei) else
  rewrite(Datei);

Klappt net!!
aber warum??

[Klaus01]

Solltest Du da nicht den SaveDialog nehmen und nicht den OpenDialog?

Delphi-Quellcode:

if SaveDialog.Execute then

try
  AssignFile(Datei,SaveDialog.FileName);
  If FileExists(SaveDialog.FileName) then
    reset(Datei) 
  else
    rewrite(Datei);

wobei Datei: File of ... ist.

Grüße
Klaus

[Stillmatic]

Ja aber in meiner Aufgabenstellung steht beim Ablauf des Ladevorgangs also (OpenDialog)
-Datei erstellen,falls sie nicht vorhanden ist!

Wie soll das den dann gehen beim OpenDialog??

[Apollonius]

Wie will man denn eine nicht vorhandene Datei laden?

[Klaus01]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if openDialog1.execute then
    begin
      if FileExists(OpenDialog1.FileName) then
        ShowMessage('File vorhanden')
      else
        ShowMessage('File nicht vorhanden');
    end;
end;

Wenn der OpenDialog offen ist, dann kannst Du in das FileName(DateiName)
einen Dateinamen eingeben der nicht existiert.
Dann kommst Du in den else Zweig, kannst also auch eine neue Datei anlegen.

Aber etwas komisch ist das Verhalten schon, das würde ich nie von einem Programm erwarten.

Grüße
Klaus

[Stillmatic]

Nein wir haben im Prinzip jetzt einen Laden/Speichern button!

Auf dem kann man entweder eine Datei Laden, oder einen Dateinamen angeben...
Wenn der Dateiname nicht vorhanden ist wird die Datei mit dem Namen angelegt!

[Stillmatic]

Wie kann man den herausfinden ob eine Datei geöffnet ist oder nicht??

Hab gelesen das man das mit

....TFileRec(Datei).Mode <> fmClosed.....

macht, aber der Ausdruck liefert bei mir kein fmClosed oder Open sondern einen Integer!!

[Stillmatic]

Weiß das keiner??

Wie man überprüft ob eine Typisierte Datei geöffnet ist??

[DGL-luke]

Hallo,

FileExists, Rewrite sollte dir helfen.

PS: Hilft dir zwar nix, aber typisierte Dateien sind hoffnungslos veraltet :mrgreen:

[Stillmatic]

Hi,,

Mit FileExist prüft man ob eine Datei Existiert!
Mit Rewrite öffnet man eine neue Datei!!

In wiefern soll mir das bei der überprüfung ob eine Datei geöffnet ist helfen??

[DGL-luke]

das soll dir dabei helfen:

Zitat:

Wenn der Dateiname nicht vorhanden ist wird die Datei mit dem Namen angelegt!

[Stillmatic]

Zitat:

Zitat von Stillmatic

Wie man überprüft ob eine Typisierte Datei geöffnet ist??

Du bist noch bei einen meiner alten Post!

Das Problem mit der Datei erstellen hat sich gelöst!
Ich muss jetzt wissen wie man überprüft ob eine Datei geöffnet ist und nicht ob sie existiert!!

[DGL-luke]

...und deswegen gilt in der DP "Neue Frage, neuer Thread".

Inwiefern geöffnet? Von dir geöffnet? Von jemand anderem geöffnet? mit welchen rechten geöffnet?

[Stillmatic]

Ja okay, werd ich mir für die Zukunft merken!!

Allgemein!

Wenn eine Datei geöffnet ist, soll eine Funktion True zurückliefern
womit ich dann bei beenden des Programms und beim laden einer neuen Datei, die Datei Schliessen kann!!
Desweiteren möchte ich eine Paar Buttons deaktivieren solange keine Datei geöffnet ist!!