Save-Dialog

[Erwin Pälzig]

Zitat von BadenPower:

Zitat von Erwin Pälzig:

Also habe nun eine einfachere Variante gefunden.

Jetzt hast Du Dir aber die Möglichkeit genommen den Speicherort und die Datei auszuwählen.

Du musst doch nur die Komponente TSaveDialog auf Dein Formular legen und vorher die unnötigen "SaveDialog1"-Variablen entfernen.


Poste noch einmal die ganze Unit, damit wir Dir zeigen können, was Du falsch gemacht hast.

Hallo BadenPower,
Danke für deinen Hinweis.

Delphi-Quellcode:

unit Unit17;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;//Dialogs;

type
    TForm17 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    SaveDialog1: TSaveDialog;
    procedure Button1Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure Edit5Change(Sender: TObject);
    procedure Edit4Change(Sender: TObject);
    procedure Edit3Change(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure Edit6Change(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form17: TForm17;
  ts,Te,ER,Re,th, Di: integer;

implementation

{$R *.dfm}

procedure TForm17.Edit1Change(Sender: TObject);
begin
  Edit1.Text:=IntToStr(ts);
end;

procedure TForm17.Edit2Change(Sender: TObject);
begin
 Edit2.Text:=IntToStr(Te);
end;

procedure TForm17.Edit3Change(Sender: TObject);
begin
 Edit3.Text:=IntToStr(ER);
end;

procedure TForm17.Edit4Change(Sender: TObject);
begin
 Edit4.Text:=IntToStr(RE); 
end;

procedure TForm17.Edit5Change(Sender: TObject);
begin
 Edit5.Text:=IntToStr(th);
end;

procedure TForm17.Edit6Change(Sender: TObject);
begin
 Edit6.Text:=IntToStr(Di);  
end;


{******** Export Data ********}
procedure TForm17.Button1Click(Sender: TObject);
var
 textis : textfile;   //  ->  (textis.txt existiert im Ornder in dem Programm ist)
 savepath : string;
begin
 if SaveDialog1.execute=true then
  begin
   //assignfile(textis,'textis.txt');
   assignfile(textis,savepath);
   rewrite(textis);
   writeln(textis, 'Ts(s) WT(C) ERate(g/m2s) RS(%) CThick(m) Dif(m2/s) ');
   write(textis, ts);
   write(textis,' ');
   write(textis,Te);
   write(textis,' ');
   write(textis,ER);
   write(textis,' ');
   write(textis,RE);
   write(textis,' ');
   write(textis,th);
   write(textis,' ');
   write(textis,Di);
   write(textis,#13#10);
  end;
  closefile(textis);
end;
end.

Nun kann ich den Speicherort festlegen und Datei auswählen, jedoch kommt es zu einer Fehlermeldung. (Siehe Anhang)
Vielen dank für deine Hilfe.

Grüße