Save-Dialog

[Chegga]

Hi,

@ publes:

Nächstes mal bitte den Delphi-Code Button verwenden.

Also aus:

procedure TForm1.Button1Click(Sender: TObject);
begin
GridzuExcel(stringGrid1, 'Meine Grid Daten', 'f:\daten.xls')
end;

wird:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
begin 
GridzuExcel(stringGrid1, 'Meine Grid Daten', 'f:\daten.xls') 
end;

Thanks

Zitat von weißer Zwerg:

if (frmForm1.SaveDialog1.Execute = true) then

Das ...Execute = true ist unnötig.
(Dann brauchst du auch keine Klammern.)

MfG Marc

[Erwin Pälzig]

Hallo alle zusammen.

Ich denke hier passt meine Frage ganz gut.
Es geht um die Eingabe von integer Werten für Variablen, welche anschließend in einem Textdokument abgespeichert werden.

Hier der Quellcode:

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;

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;
    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); //bei Programmstart wird jede Eingabe zu Null, da alle initierten Werte auf 0 gesetzt werden
end;

procedure TForm17.Edit2Change(Sender: TObject);
begin
 Edit2.Text:=IntToStr(Te); //bei Programmstart wird jede Eingabe zu Null, da alle initierten Werte auf 0 gesetzt werden
end;

procedure TForm17.Edit3Change(Sender: TObject);
begin
  Edit3.Text:=IntToStr(ER); //bei Programmstart wird jede Eingabe zu Null, da alle initierten Werte auf 0 gesetzt werden
end;

procedure TForm17.Edit4Change(Sender: TObject);
begin
 Edit4.Text:=IntToStr(RE); //bei Programmstart wird jede Eingabe zu Null, da alle initierten Werte auf 0 gesetzt werden
end;

procedure TForm17.Edit5Change(Sender: TObject);
begin
 Edit5.Text:=IntToStr(th); //bei Programmstart wird jede Eingabe zu Null, da alle initierten Werte auf 0 gesetzt werden
end;

procedure TForm17.Edit6Change(Sender: TObject);
begin
 Edit6.Text:=IntToStr(Di);  //bei Programmstart wird jede Eingabe zu Null, da alle initierten Werte auf 0 gesetzt werden
end;


{******** Export Data ********}
procedure TForm17.Button1Click(Sender: TObject);
var
 textis : textfile;   //  -> lokale Initialisierung der zu Speichernden Parameter in textfile   (textis.txt existiert im Ornder in dem Programm ist)
 savepath : string; //  -> lokale Initialisierung des Speicherpfades
 SaveDialog1 :TSaveDialog;  // -> ist Save dialog variable
begin

 if SaveDialog1.execute then // -> Darstellung des Dateiöffnungs Dialogs (Quelle www.Delphibasics.co.uk)
 begin
  savepath := SaveDialog1.Files[0]; // (?)
  assignfile(textis,savepath); // Versuch der Öffnung von textist aus Dateipfad savepath
  rewrite(textis); // -> Einschreiben der Daten in Textdokument textis
  writeln(textis, 'Time(s) Web Temperature(C) Evap Rate(g/m2s) Residual Solvent(%) Coat Thickness(m) Diffusivity(m2/s) ');
  write(textis, ts); // Einschreiben des ts
  write(textis,' '); // Einschreiben des Freizeischen
  write(textis,Te);  // Einschreiben der Te
  write(textis,' '); // Einschreiben des Freizeischen
  write(textis,ER);  // Einschreiben der ER
  write(textis,' '); // Einschreiben des Freizeischen
  write(textis,RE);  // Einschreiben des RE
  write(textis,' '); // Einschreiben des Freizeischen
  write(textis,th); // Einschreiben der th
  write(textis,' '); // Einschreiben des Freizeischen
  write(textis,Di);  // Einschreiben des Di
  write(textis,#13#10);  // (?)1*  The "#13#10" part represents a carriage-return + line-feed combination. The "#13" is the ASCII equivalent to the CR (carriage return) value; #10 represents LF (line feed).
  end;
  closefile(textis); // -> Schließen des Textdokuments
end;
end.

Was ich verstehe, warum bei Eingabe von Werten in die Edit-Bereiche, die Werte auf 0 springen.
Die Frage ist, warum bei Betätigung des Buttons die folgende Fehlermeldung erscheint? (Siehe Anhang)

Vielen Dank für eure Unterstützung!

[mkinzler]

In welcher Zeile?

[Erwin Pälzig]

Zitat von mkinzler:

In welcher Zeile?

Hallo mkinzler.

Meldung kommt, wenn Code komplett compiliert wurde und danach Button1Click erfolgt.
Grüße.

[mkinzler]

Dann Setzte dort mal einen Breakpoint und führe dann Zeile für Zeile aus

[DeddyH]

Man muss den SaveDialog erst erzeugen, bevor man ihn benutzt.

[mkinzler]

Und dieser nicht als Komponente auf der Form liegt.

[BadenPower]

Ich sehe ein SaveDialog1.execute in der Button1Click-Procedure, aber kein SaveDialog1: TSaveDialog; in der Typdeklaration von "TForm17"


EDIT:
Schon wieder zu langsam

[DeddyH]

Markus, selbst wenn er auf der Form läge, würde er nicht angesprochen, sondern die lokale Variable

[Erwin Pälzig]

Zitat von BadenPower:

Ich sehe ein SaveDialog1.execute in der Button1Click-Procedure, aber kein SaveDialog1: TSaveDialog; in der Typdeklaration von "TForm17"

EDIT:
Schon wieder zu langsam

Also fakt ist, im eigentlichen Programm, ist ebenfalls

Delphi-Quellcode:

type
SaveDialog1 :TSaveDialog;

initialisiert, nur es kommt zu folgende Fehlermeldung:
Unit17.pas(93): W1036 Variable 'SaveDialog1' ist möglicherweise nicht initialisiert worden

Danke für eure zahlreiche Hilfe!