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