Save-Dialog

[Sir Rufo]

Ist dein Internet kaputt oder warum suchst du nicht mal nach der Fehlernummer? Dazu gibt es sogar mind. einen Beitrag hier im Forum.

Und der Debugger würde dir hier auch helfen ... und eine Angabe, an welcher Stelle der Fehler kommt wäre auch sehr nett gewesen.

[Dalai]

Ich empfehle dringend, mal mit dem Debugger durch den Code zu steppen (F7 und F8) und dabei ein Auge auf die Inhalte der Variablen zu haben. Dann fällt auch gleich auf, dass die ersten Zeilen der Methode Button1Click so niemals funktionieren können.

MfG Dalai

[p80286]

Nun sagt ihm schon, daß er mit
savepath:=savedialog1.filename; weiter kommt.

Wie wenn nicht so, soll denn der ausgewählte Dateiname an assign weiter gereicht werden?
(multichoice und filenamelist ignorieren wir jetzt mal)

übrigens könntest Du das auch etwas verkürzen

Delphi-Quellcode:

textis : textfile; // -> (textis.txt existiert im Ornder in dem Programm ist)
  savefile : string;
  satz : string;
begin
  if SaveDialog1.execute=true then
  begin
    savefile:=Savedialog1.Filename;
    assignfile(textis,savefile);
    rewrite(textis);
    writeln(textis, 'Ts(s) WT(C) ERate(g/m2s) RS(%) CThick(m) Dif(m2/s) ');
    satz:=inttostr(ts)+' '+inttostr(te)+' '+inttostr(er)+' '+inttostr(re)+' '+inttostr(th)+' '+inttostr(di);
    writeln(textis,satz);
    closefile(textis);
  end;

oder noch knapper:

Delphi-Quellcode:

    assignfile(textis,savefile);
    rewrite(textis);
    writeln(textis, 'Ts(s) WT(C) ERate(g/m2s) RS(%) CThick(m) Dif(m2/s) ');
    writeln(format('%d %d %d %d %d %d',[ts,te,er,re,th,di]));
    closefile(textis);

Das ist übrigens kein Grund sich nicht mit dem Debugger auseinander zu setzen.

Gruß
K-H

[himitsu]

writeln(textis, format(... , sonst heult gleich wieder jemand.

[p80286]

geschlampt

K-H