Array speichern

[Creepin]

Hallo, ich hoffe ich habe die richtige Rubrik getroffen. ich möchte ein Array in einer Datei speichern, das klappt auch ganz gut mit folgendem code:

Delphi-Quellcode:

procedure TForm2.Button2Click(Sender: TObject);
 var  i: integer;
key: array[1..26] of integer;
  f: TFileStream;
begin
 f := TFileStream.Create('C:\rotor.dat',fmCreate);
  try
   for i := 0 to 26 do
     f.write(key[i],sizeOf(integer));
 finally
   f.free;

  end;
end;

bloß wie kann ich den dateinamen und speicherort bestimmen lassen vom benutzer?
Danke im voraus für eure antworten.

[edit=SirThornberry]Delphi-Tags gesetzt - Mfg, SirThornberry[/edit]

[stifflersmom]

Stichwort
SaveFileDialog

Moin

[FAlter]

Hi,

1. Bitte verwende den delphi-Tag für Delphi-Source. Beispiel: aus

Code:

[delphi]while x do 
  y;[/delphi]

wird

Delphi-Quellcode:

while x do 
  y;

2. Der SaveDialog (ohne File) oder SavePictureDialog für Bilder, beide auf der Palettenseite Dialogs.

3. Da du ein statisches array hast, kannst du auch über

f.write(key, sizeof(key)) das komplette Array auf einmal schreiben. Bei eindimensionalen (packed) arrays, auch dynamischen, sowie Short/Ansi/WideStrings, wenn mann statt 0 eine 1 einsetzt, geht folgendes:

f.write(key[0], sizeof(key[0])) Mfg
FAlter

//Edit: Willkommen in der DP!

[Creepin]

Danke für die Antworten, aber wo füge ich den savedialog ein in den code? Oder wie benutze ich den sonst?

[Neutral General]

Hi,

1. SaveDialog aufs Formular packen (Wie gesagt unter "Dialogs" gucken)
2.

Delphi-Quellcode:

procedure TForm2.Button2Click(Sender: TObject);
var i: integer;
    key: array[1..26] of integer;
    f: TFileStream;
begin
  if SaveDialog1.Execute then // öffnet den Dialog
  begin  // wenn auf "OK" gedrückt wurde:
    f := TFileStream.Create(SaveDialog1.Filename,fmCreate);
    try
      for i := 0 to 26 do
        f.write(key[i],sizeOf(integer));
    finally
      f.free;
    end;
  end;
end;

Gruß
Neutral General

[SirThornberry]

Zitat von FAlter:

das komplette Array auf einmal schreiben. Bei eindimensionalen (packed) arrays, auch dynamischen, sowie Short/Ansi/WideStrings, wenn mann statt 0 eine 1 einsetzt, geht folgendes:

f.write(key[0], sizeof(key[0]))

fast richtig, so wird nur das erste element geschrieben. Wenn dann so:
f.write(key[0], sizeof(key[0]) * Length(key))

[Creepin]

Danke funktioniert alles.

[FAlter]

Hi,

Zitat von SirThornberry:

fast richtig, so wird nur das erste element geschrieben. Wenn dann so:
f.write(key[0], sizeof(key[0]) * Length(key))

Danke, daran hab ich gedacht, aber wohl leider vergessen zu schreiben.

Mfg
FAlter