open,save dialoge

[hendy]

Wie benutze ich die open und save dialoge?

[monta]

ganz simples Beispiel:

Code: Alles auswählen

if OpenDialog.Execute then
  ShowMessage(OpenDialog.Filename);

Mit anderen Worten, Execute zum anzeigen und in Filename steht dann die gewählte Datei.

[creed steiger]

http://delphi.zsg-rottenburg.de/lektionen2a.html

[hendy]

danke euch beiden
Ich hab das immer mit Create() versucht, wie bei den forms

[Socke]

danke euch beiden
Ich hab das immer mit Create() versucht, wie bei den forms

also Formulare zeigt man mit form.Show oder form.ShowModal an.... Create() erstellt eine neue Instanz der Klasse (also ein neues Formular, ein neues Panel etc.)

[hendy]

ja, ich hab im programm eine zweite Form so erstellen lassen
Ich dachte, die dialoge müssten erst erstellt werden

[Garfield]

Ich dachte, die dialoge müssten erst erstellt werden

Das ist richtig. Wenn Du die Komponente auf Dein Formular legst, wird sie mit dem Formular erstellt und Du musst es nicht selbst tun. Du kannst den Dialog aber auch zur Laufzeit erstellen, dann musst Du ihn selbst mit Create erstellen und mit Free freigeben.

[pascal]

function OpenFile(var fn: String; const filter: String): boolean;
var
  OpenDlg : TOpenDialog;
begin
  Result := False;
  try
    OpenDlg := TOpenDialog.Create(Self);
    OpenDlg.Title := 'Datei öffen';
    OpenDlg.Filter := Filter;
    OpenDlg.Options := [...];
    Result := OpenDlg.Execute;
    if Result
    then fn := OpenDlg.FileName;
  finally
    OpenDlg.Free;
  end;
end;

[/pascal]
Bei älteren Delphiversionen konnte man damit die Größe der EXE verringern. Wie es bei Lazarus ist, habe ich noch nicht ausprobiert.

[Socke]

Bei älteren Delphiversionen konnte man damit die Größe der EXE verringern. Wie es bei Lazarus ist, habe ich noch nicht ausprobiert.

Ich glaube, dass das schon in Delphi 7 nichts mehr brachte. Da war es effizienter eine Komponente über das Formular zu erstellen als manuell im Quelltext (mitder LCL könnte das ähnlich sein).

MfG Socke

[Garfield]

Bei Delphi 7 hat es noch etwas gebracht. Hatte es mit Delphi 3, 7, 2005 und Turbo Explorer ausprobiert. Vielleicht müsste man dann über GetOpenFileName und GetSaveFileName gehen.

[hendy]

wie funktionieren eigentlich die Filter?
Wie richtet man die ein?
Bei mir gibt er immer einen Fehler aus

[Garfield]

Am besten erklärt man das wohl an einem Beispiel:
[pascal]

Filter := 'Text-Dateien (txt)|*.text|WordPerfect-Dateien (wpd)|*.wpd|Alle Dateien|*.*';

[/pascal]
Abwechselnd der Filtername (der anzuzeigende Text) und der dazugehörige Filter (die Maske) getrennt durch '|'. In der IDE kann bei der Eigenschaft Filter der Filtereditor verwendet werden.