txt speichern savedial error

MagicRain · Verfasst: Mi 01.07.09 20:46

Hallo ich möchte gerne eine text file erstellen mit bestimmten daten von mir und sie dann abspeichern. Und zwar soll man mit dem SaveDialog auswählen wo die file gespeichert wird. Nur ich bekomme is nicht hin weiß auch nicht mehr weiter suche schon stunden im i-net aber finde nicht das richtige nun hoffe ich auf euch.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TForm1.Button1Click(Sender: TObject);
var
  datei: Textfile;
begin
if savedialog1.excute then
 // assignfile(datei, ('C:\fucgfgfk1.txt')); <<< :/ 
  assignfile(datei, (Savedialog1.Execute));
  rewrite(datei);
  writeln(datei, 'Das ist die erste Zeile in meiner Textdatei');
  closefile(datei);
else
Label1.caption := 'wrong';
end;

MfG danke

jaenicke · Verfasst: Mi 01.07.09 21:13

Da fehlt ein begin..end, ohne gehört nur die erste Zeile nach dem if dazu.

Nebenbei: Was sollen die Klammern um Savedialog1.Execute? :gruebel:

Meistens sind die nur überflüssig, manchmal gibts nen Fehler.

MagicRain · Verfasst: Mi 01.07.09 22:05

Danke nun funktioniert es perfekt

MfG

turboPASCAL · Verfasst: Mi 01.07.09 22:44

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TForm1.Button1Click(Sender: TObject);
var
  datei: Textfile;
begin
  if savedialog1.excute then
  begin
    assignfile(datei, Savedialog1.FileName);
    rewrite(datei);
    writeln(datei, 'Das ist die erste Zeile in meiner Textdatei');
    closefile(datei);
  end else
  Label1.caption := 'Abbruch durch User';
end;

Besser ?

_________________
Nein, ich bin nicht der turboPASCAL aus der DP, ich seh nur so aus...

jaenicke · Verfasst: Mi 01.07.09 22:45

Es funktioniert doch schon?! :gruebel:

SvenAbeln · Beiträge: 334 Erhaltene Danke: 3

jaenicke hat folgendes geschrieben :

Es funktioniert doch schon?! :gruebel:

Diese Zeile im original Post, kann aber nicht funktionieren.

markieren

Delphi-Quelltext

1:	assignfile(datei, (Savedialog1.Execute));

turboPASCAL hat recht, dort gehört Savedialog1.FileName hin.

jaenicke · Verfasst: Do 02.07.09 09:00

Oha, ja, das ist mir gar nicht aufgefallen, ich habs sogar einfach kopiert. :shock:

MagicRain · Verfasst: Do 02.07.09 12:43

jaenicke hat schon recht es funktioniert bereits muss ja nicht heißen mit dem code oben....Danke trotzdem

MfG

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme