Speichern und Öffnen

[Chegga]

Hi,

lange hat's gedauert, aber die Lösung kommt immerhin!

Eine Menü mit verschiedenen Funktionen:

Suche in der Komponentenpalette das Symbol für
MainMenu und klicke darauf. Anschließend klickst
du irgendwo (am besten oben) auf dein Formular.
Dort erscheint nun das Symbol für das MainMenu.
Doppelklicke auf das Symbol. (Es erscheint der Menüeditor)
Tippe Datei ein und bestätige anschließend mit Enter.
Mit der selben Technik vervollständigst du nun das Menü noch
mit Öffnen und Speichern.
Wenn du fertig bist, schließe den M.-Editor mit Klick auf
X ganz rechts oben.
In deinem Formular sieht man jetzt schon etwas von deinem Menü!
So, legen wir los mit Öffnen und Speichern!
Suche die Komponenten OpenDialog und SaveDialog im Dialogregister.
(normalerweise zwischen System und Win 3.1)
und bringe sie jeweils auf dein Formular (am besten neben das
MainMenü Symbol).
Zunächst sind jedoch Einschränkungen nötig, damit (z.B.) nur
Textdateien angezeigt werden.
Klicke auf OpenDialog im Formular.
Klicke im O.-Inspektor auf die 3 kleinen Punkte hinter dem Eintrag
Filter. (Jetzt öffnet sich der Filtereditor)
Trage dort auf der linken Seite Textdateien (*.txt) ein
und auf der rechten Seite unter Filter kommt *.txt.
(Das ganze noch mal für Speichern im MainMenü.)

So weit, so gut.
Nun brauchen wir aber noch Methoden für Öffnen und Speichern!
Klicke im Formular auf den Menüeintrag Datei
und dann auf Öffnen. Jetzt bist du im Editorfenster.
Füge folgenden Code hinzu:

Delphi-Quellcode:

procedure TForm1.ffnen1Click(Sender: TObject);
begin
  try
   if OpenDialog1.Execute then
   wasduwillst.LoadFromFile (OpenDialog1.FileName);
   // "wasduwillst" ist in dem Fall eine Variablenvereinbarung
  except
   ShowMessage ('Fehler beim Öffnen der Datei!');
  end;
end;

Kurz: MainMenü/Klick auf Speichern.
Füge folgenden Code hinzu:

Delphi-Quellcode:

procedure TForm1.Speichern1Click(Sender: TObject);
begin
  try
   if SaveDialog1.Execute then
   wwasdduwwillst.SaveToFile (SaveDialog1.FileName);
   // eine weitere Variablenvereinbarung
  except
   ShowMessage ('Fehler beim Speichern der Datei!')
  end;
end;

Doppelklick auf das Formular:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  wasduwillst := TSringList.Create;
  wwasdduwwillst := TStringList.Create;
end;

MfG Marc