TxT-Dateierstellung 'File not found'

[Crytap]

Guten Abend.
Ich wollte mich mal damit beschäftigen, dass ich in einem Programm, das gewisse Werte ins Array
speichert, damit diese Werte auf Knopfdruck bzw. im Timer als Txt-Datei gespeichert werden.
Da habe es mit dieser Prozedur versucht, jedoch klappte es nicht so ganz, da er mir nur den Fehler anzeigte, dass eine
Datei nicht vorhanden sei.
Ansonsten frage ich mich wie man eine "Speichern unter" Funktion für dieses Projekt einbauen könnte.

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);
var a: array [1..2] of shortstring;
var f: file of shortstring;
var i: integer;

begin
assignfile (f, 'C:\Users\---\Desktop\test.txt');
reset (f);
for i:=1 to 2 do
begin
write (f, a[i]);
end;
closefile (f);
end;

Hoffe, dass ihr mir dabei helfen könnt und bedanke mich schon mal im Vorraus.

Liebe Grüße Crytap

[Luckie]

Such mal im Forum nach AssignFile und vergleiche mal deinen Quellcode imt den Quellcodes, die du mit der Suche findest. Oder guck dir den Beispielquellcode aus der Hilfe an.

[Union]

Du hast das Reset nach dem assignfile vergessen.

[Crytap]

Zitat von Union:

Du hast das Reset nach dem assignfile vergessen.

Das stimmt, hab da etwas rumexperimentiert, da gehört natürlich ein reset anstatt read hin,
jedoch funktioniert es dennoch nicht.

[Sir Rufo]

AssignFile
Reset
Rewrite
Append

[Luckie]

Zitat von Crytap:

Das stimmt, hab da etwas rumexperimentiert, da gehört natürlich ein reset anstatt read hin,
jedoch funktioniert es dennoch nicht.

Und wie sieht dein Code jetzt aus?

[Crytap]

Zitat von Luckie:

Zitat von Crytap:

Das stimmt, hab da etwas rumexperimentiert, da gehört natürlich ein reset anstatt read hin,
jedoch funktioniert es dennoch nicht.

Und wie sieht dein Code jetzt aus?

Habe den Quelltext bereits editiert. Hatte gestern leider nicht genug Zeit um mir die Links von Sir Rufo genau anzugucken, werde ich heute machen,
sobald ich zu Hause bin.

[himitsu]

Den Desktoppfad hardgecodet?
Solche Verzeichnisse erfragt man besser bei Windows.

[Crytap]

Ich habe das Problem dank eurer Hilfe lösen können und die Prozedur in das eigentliche Programm eingesetzt und es funktioniert einwandfrei, bis
auf eine Kleinigkeit und zwar, dass die Werte nur in einer Reihe in der Txt-Datei abgespeichert werden.
Ansonsten fehlt noch die "Speichern unter" Funktion. Sodass ich die Test.txt überall speichern kann z.B. auf Knopfdruck.

Crytap

[Union]

Zitat:

und zwar, dass die Werte nur in einer Reihe in der Txt-Datei abgespeichert werden

Das liegt an Deiner File-Definition of shortstring.