(delphi) TSaveDialog hilfe (letzterbeitrag)

ppl · Beiträge: 53

Guten Abend,

ich finde einfach kein Codeschnipsel wie ich wenn ich auf dem ok button drücke,

ein zielort zum speichern der txtfile nehmen kann, momentan habe ich das so gelößt:

markieren

Delphi-Quelltext

1:
2:
3:
4:

 FileName: String;
begin

 FileName := 'C:\test.txt';

Blackheart666 · Beiträge: 2195 XP D3Prof, D6Pers.

OpenDialog, SaveDialog

_________________
Blackheart666
Der Irrsinn ist bei Einzelnen etwas Seltenes, - aber bei Gruppen, Parteien, Völkern, Zeiten die Regel. (Friedrich Nietzsche)

Jerk · Beiträge: 251 Vista Ultimate, Ubuntu Turbo Delphi 2006

Evtl kann dir ja die Komponente TsaveDialog weiterhelfen, ansonsten musste halt nen Editfeld oder ne Shellist benutzen um den Speicherort vom benutzen eingeben lassen zu können.

ppl · Beiträge: 53

das mit dem tedit feld wüsste ich wie es geht,

aber ich raff das mit opendialog und savedialog nicht,

tsavedialog hmm weiß auch net mehr,

kann mir einer villt detailierter helfen?

Xentar · Verfasst: Fr 22.08.08 19:43

Hast du dir schonmal die Hilfe davon angesehen?
So umfangreich sind die nun nicht, als dass man das nicht durchlesen könnte...

_________________
PROGRAMMER: A device for converting coffee into software.

ppl · Beiträge: 53

Funktiniert immer noch nicht so ganz,

meine txt file wird nicht mehr abgespeichert,... woran liegt das?

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

 FileName: String;

 saveDialog : TSaveDialog;
begin


  saveDialog := TSaveDialog.Create(self);

  saveDialog.Title := 'Save your word file';

  saveDialog.InitialDir := GetCurrentDir;

  saveDialog.Filter := 'Text file (.txt)|*.txt';

  saveDialog.DefaultExt := 'txt';

   saveDialog.FilterIndex := 1;

  if saveDialog.Execute
  then ShowMessage('File : '+saveDialog.FileName)
  else ShowMessage('Save file was cancelled');

  saveDialog.Free;

Xentar · Verfasst: So 24.08.08 15:38

Es könnte daran liegen, dass du garnichts speicherst, sondern dir nur den gewählten Dateinamen anzeigen lässt (Zeile 20).

_________________
PROGRAMMER: A device for converting coffee into software.

Boldar · Verfasst: So 24.08.08 15:38

Als erstes erzeugst du den Tsavedialog nicht dynamisch, sondern ziehst ihn einfach auch die Form (Seite Dialoge).Dann:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

var f: textfile;
begin
{...}
if savedialog1.execute then 
begin
assignfile (f, savedialog1.filename);
if fileexists (savedialog1.filename) then reset(f) else rewrite(f);
write (f, 'blablabla');   //_--->Hier muss dein Text stehen!!!
closefile(f);

ppl · Beiträge: 53

sorry das ich das noch nicht so auf anhiep verstehe aber ich code noch nicht lange mit delphi,

also
bloader danke das hilft mir schon einen großen schritt weiter, nur wo bei dir steht blablala wo mein text rein soll, habe ich das prob das ich eine wordlist generiere,.. und ich nicht weiß wie ich das comando dort einfüge

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

SetLength(Map, 0);

if checkbox1.checked then begin
 SetLength(Map, Length(Map)+26);
 Map[High(Map)-25] := 'A';
 Map[High(Map)-24] := 'B';
 Map[High(Map)-23] := 'C';
 Map[High(Map)-22] := 'D';
 Map[High(Map)-21] := 'E';
 // usw usw...

und das muss der doch da jetzt speichern,... aber wie, ich verstehe das nicht, mein alter code

markieren

Delphi-Quelltext

1:
2:
3:
4:

 FileName: String;
begin

 FileName := 'C:\test.txt';

hat es ja ohne prob hinbekommen, ist halt nur beschissen das der das nicht dorthinspeichert wo ich es brauche/will

elundril · Verfasst: So 24.08.08 16:03

markieren

Delphi-Quelltext

1:
2:

  if savedialog1.execute then
    Filename := Savedialog1.Filename;

so kannst du einen dynamischen speicherpfad machen. jedoch würd ich die von dir benutzte variable "Filename" in "Dateiname" umbenennen um nicht fehler mit savedialogs o.ä. zu provozieren.

lg elundril

_________________

This Signature-Space is intentionally left blank.
Bei Beschwerden, bitte den Beschwerdebutton (gekennzeichnet mit PN) verwenden.

ppl · Beiträge: 53

hey danke so klappt das wunderbahr, habe mich jetzt damit 2 tage rumgeschlagen >.<

elundril · Verfasst: So 24.08.08 16:16

gerne. und da ich gelesen habe das du noch neu im geschäft bist hab ich noch einen kleinen link für dich, denn fortbildung schadet nie ;-)

: www.christian-stelzm...rials_crashkurs.html

lg elundril

_________________

This Signature-Space is intentionally left blank.
Bei Beschwerden, bitte den Beschwerdebutton (gekennzeichnet mit PN) verwenden.

Blackheart666 · Beiträge: 2195 XP D3Prof, D6Pers.

elundril hat folgendes geschrieben:

markieren

Delphi-Quelltext

1:
2:

  if savedialog1.execute then
    Filename := Savedialog1.Filename;

so kannst du einen dynamischen speicherpfad machen. jedoch würd ich die von dir benutzte variable "Filename" in "Dateiname" umbenennen um nicht fehler mit savedialogs o.ä. zu provozieren.

lg elundril

Und genau das liefert die Hilfe wenn man SaveDialog dort eintippt, das hättest du aber in zwei Tagen finden können. :wink:

_________________
Blackheart666
Der Irrsinn ist bei Einzelnen etwas Seltenes, - aber bei Gruppen, Parteien, Völkern, Zeiten die Regel. (Friedrich Nietzsche)

ppl · Beiträge: 53

meine liefert mir sowas type TSaveDialog = class (Dialogs.TOpenDialog);

das habe ich net verstanden,

nun was ich jetzt nicht schaffe ist das hier einzufügen,... der gibt mir immer nen fehler raus

markieren

Delphi-Quelltext

1:
2:
3:

  if saveDialog.Execute
  then ShowMessage('File : '+saveDialog.FileName)
  else ShowMessage('Save file was cancelled');

außerdem were ex nicht schlecht wenn es auch als txt gespeichert wird,... ich schtaffe es nicht den code so zusammen zu führen

kann mir einer tips oder hilfe hierzu geben?

elundril · Verfasst: So 24.08.08 16:33

du solltest dir echt den link anschauen!

wenn du nun auch eine bestätigung ausgeben willst darfst du nich 2 mal execute aufrufen. execute führt den dialog aus und zeigt ihn an. und gibt dir als boolean zurück ob er erfolgreich (mit der OK-Taste) oder nicht erfolgreich (mit der Abbrechen-Taste) ausgeführt wurde. willst du in einem if-block nun mehrere anweisungen haben musst du mit begin und end arbeiten. Aber aufpassen!!! vor einem else darf kein strichpunkt kommen. das ganze sieht dann so aus:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

var Dateiname: string;
begin
  if SaveDialog1.Execute then begin
    Dateiname := SaveDialog1.Filename;
    Showmessage('Datei (' + Dateiname + ' wurde erfolgreich gespeichert.');
    end
  else 
    Showmessage('Der speichervorgang wurde abgebrochen');

lg elundril

//edit: hochkomma vergessen!

_________________

This Signature-Space is intentionally left blank.
Bei Beschwerden, bitte den Beschwerdebutton (gekennzeichnet mit PN) verwenden.

ppl · Beiträge: 53

hey vielen dank du bist echt der beste, den link habe ich mir schon gespeichert, werde gleich mal reingucken wenn ich hier paar sachen erledigt habe vielen dank

werde dein codevorschlag gleich mal reinsetzen , hoffentlich funzt es

mfg

ppl · Beiträge: 53

so elluigi,

irgendwas war da nicht gans richtig, beim compilieren kommen diese fehler die ich mir nicht alle erklären kann.

markieren

Delphi-Quelltext

1:
2:

75:    Showmessage(Datei (' + Dateiname + 'wurde erfolgreich gespeichert.');
76:    end

markieren

Quelltext

1:
2:
3:
4:
5:
6:

[Pascal Fehler] Unit1.pas(75): E2003 Undefinierter Bezeichner: 'Datei'
[Pascal Fehler] Unit1.pas(75): E2029 ')' erwartet, aber Bezeichner 'wurde' gefunden
[Pascal Fehler] Unit1.pas(75): E2066 Operator oder Semikolon fehlt
[Pascal Fehler] Unit1.pas(75): E2052 Nicht abgeschlossener String
[Pascal Fehler] Unit1.pas(76): E2014 Anweisung erforderlich, aber Ausdruck vom Typ 'string' gefunden
[Pascal Fataler Fehler] Project1.dpr(5): F2063 Verwendete Unit 'Unit1.pas' kann nicht compiliert werden

Blackheart666 · Beiträge: 2195 XP D3Prof, D6Pers.

Steht doch alles in der Fehlerbeschreibung geh die doch mal einzeln durch angefangen mit was ist Datei ?

_________________
Blackheart666
Der Irrsinn ist bei Einzelnen etwas Seltenes, - aber bei Gruppen, Parteien, Völkern, Zeiten die Regel. (Friedrich Nietzsche)

ppl · Beiträge: 53

also ich dachte das man datei bei var definiren muss aber keine ahnung wie genau

Xentar · Verfasst: So 24.08.08 17:46

Da fehlt einfach nur ein '

_________________
PROGRAMMER: A device for converting coffee into software.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme