savedialog/opendialog

[himitsu]

Wenn ich mich nicht irre, dann ist in der OH eine Demo dazu (vermutlich unter TOpenDialog/TSaveDialog, oder so)

Du brauchst dazu nur die entsprechende Komponenten auf dein Form ziehen
und (ich glaube) mit Execute den gewünschten Dialog aufrufen.

Delphi-Quellcode:

If OpenDialog1.Execute Then Begin
  // Daten aus der Datei mit dem Namen in OpenDialog1.Filename auslesen
End;

Falls du noch eine bestimmte Dateiendung, oder andere Wünsche hast,
dann kanst du dieses direkt im OI einstellen oder vorher noch in OpenDialog.xyz verändern.


[add]
wenn in dem Array keine Pointer (z.B. lange Strings) vorhanden sind, dann kanst du die Daten z.B. so Speichern.

Delphi-Quellcode:

Var A: Array[1..100] of TDaten;
  F: File;

AssignFile(F, SaveDialog1.FileName);
Rewrite(F);
WriteBlock(F, @A, 100 * SizeOf(TDaten));
Close(F)

Delphi-Quellcode:

Var A: Array[1..100] of TDaten;
  F: File of TDaten;

AssignFile(F, SaveDialog1.FileName);
Rewrite(F);
For i := 1 to 100 do Write(F, A[i]);
Close(F);

[add2]
ichbins hat wohl schneller geschrieben, als ich editiert hab :cy: