Wie kann ich eine Datei erstellen ohne Savedialog?

[NikoMitDaMacht]

Hallo ich habe ein Problem.(..sonst würd ich hier ja nichts schreiben)

Also... wie kann ich einfach und problemlos eine Datei erstellen ohne dafür einen Savedialog
aufzurufen?

[S2B]

Was für eine Datei willst du denn erstellen?

[fiasko]

kannst du ein bißchen genauer erklären was du genau machen willst? Ein TSaveDialog legt doch keine Datei an?!

[NikoMitDaMacht]

Tja... eine text datei mit der endung *.dat (also eine *.dat-Datei)

[fiasko]

Und was soll drinne stehe, also woher kommen die Sachen die da rein sollen? Zum Anfang vielleicht sowas der Art:

Delphi-Quellcode:

var
  f: Text;

begin
  AssignFile(f,'c:\text.dat');
  Rewrite(f);
  writeln(f,'Blah');
  CloseFile(f);
end.

[S2B]

Woher soll der Text denn kommen? Aus einem Memo wäre es leicht:
Memo1.Lines.SaveToFile('Filename');

[NikoMitDaMacht]

Also ich habe so einen ich nenns mal "Trecord" so stehst eim Type :

Delphi-Quellcode:

type
  tDaten = record
           WinFolder: string[60];
           LastIp: string[60];
           soundpfad: string[60];
           sound: string[1];
           soundAn: string[1]
end;

...
  public
    { Public-Deklarationen }
    dateiname:string;
    datei: file of tDaten;
    daten: tDaten;
  end;

...

so ... und dann un das zu nutzen hab ich's so gemacht

Delphi-Quellcode:

procedure TFormConfig.ButtonNeueDateiClick(Sender: TObject);
begin
    if savedialog1.execute then
       begin
         if dateiname <> '' then closefile(datei);
         dateiname:=savedialogdatei.filename;
         assignfile(datei,dateiname);
         rewrite(datei);

         timer2.Enabled:=true ;

         buttonaenderungenspeichern.enabled:=true;

       end
end;


procedure TFormConfig.Timer2Timer(Sender: TObject);
begin
timer2.Enabled:=false;
  try
     reset(datei);
     seek(datei, filesize(datei));
     edit1.text:='';
     edit2.text:='';
     edit3.text:='';
     edit4.text:='';
    daten.winfolder:=edit1.text;
    daten.Lastip:=edit2.text;
    daten.soundpfad:=edit3.Text;
    daten.soundan:=edit4.Text;
    daten.sound:=editort.Text;
     write(datei,daten);
     edit1.setfocus
  except
     showmessage('Fehler: Zuerst Datei öffnen!')
  end
end;
// bitte nicht über die namen der strings wundern

so und jetzt will ich eigentlich nur dass das programm die datei eben automatisch erstellt

[NikoMitDaMacht]

Hey ich glau jetzt hab ich's :

TSaveDialog erstellt wirklich keine datei sondern das "AssignFile(f,'c:\text.dat');" oder?
also kann ich's doch so machen :

Delphi-Quellcode:

procedure TFormConfig.ButtonNeueDateiClick(Sender: TObject);
begin
         if dateiname <> '' then closefile(datei);
         dateiname:='datei.dat';
         assignfile(datei,dateiname);
         rewrite(datei);

         timer2.Enabled:=true ;

         buttonaenderungenspeichern.enabled:=true;

       end
end;

[Sharky]

Zitat von NikoMitDaMacht:

...TSaveDialog erstellt wirklich keine datei sondern das "AssignFile(f,'c:\text.dat');" oder?...

Jup. TSaveDialog und TOpenDialog erzeugen oder öffnen nichts.
Sie geben dir immer nur einen Pfad inkl. Dateinamen zurück. Was Du daraus machst ist dann deine Sache.