Speichern

Grolle · Beiträge: 95 Win XP, Win 7 Delphi 2010 Pro

Ich brauche mal nen kleinen Denkanstoss....
Ich habe in meinem Programm folgende Routine für "Speichern unter":

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

procedure TForm1.Speichernals1Click(Sender: TObject);
begin
 if PageControl1.ActivePage = TabSheet1  then
    begin
    SaveDialog1.Filter := 'Html Dateien (*.html; *.htm)|*.html; *.htm';
    SaveDialog1.DefaultExt := 'html; htm';
      if SaveDialog1.Execute then
      SynEdit1.Lines.SaveToFile(SaveDialog1.FileName);
    end;
 if PageControl1.ActivePage = TabSheet2 then
    begin
    SaveDialog1.Filter := 'Php Dateien (*.php; *.php3; *.php4; *.dat)|*.php; *.php3; *.php4; *.dat';
    SaveDialog1.DefaultExt := 'php; php3; php4; dat';
      if SaveDialog1.Execute then
      SynEdit2.Lines.SaveToFile(SaveDialog1.FileName);
    end;

usw usw......

Das klappt auch wunderbar. Ich habe jetzt nur Probleme mit dem normalen
speichern (zwischenspeichern), da dies ja nicht über den SaveDialog geht!

:gruebel:

Viele Grüße: Grolle

AXMD · Verfasst: Di 15.02.05 16:43

Grolle hat folgendes geschrieben:

Das klappt auch wunderbar. Ich habe jetzt nur Probleme mit dem normalen
speichern (zwischenspeichern), da dies ja nicht über den SaveDialog geht!

Darf ich fragen welche Probleme? Fehlermeldungen? Leere Dateien? Hab meine Glaskugel grade nicht bei der Hand

AXMD

jasocul · Verfasst: Di 15.02.05 16:47

Er wird noch keinen Dateinamen haben, meint mein Glaskugel.
Also
- einen zufälligen nehmen
- Bei Programmende fragen ob gespeichert werden soll
- Nach dem Speichern (also SaveAs oder beim Programmende) die Zwischendatei löschen.

oder so ähnlich

Grolle · Beiträge: 95 Win XP, Win 7 Delphi 2010 Pro

Ich weiß einfach nicht, wie ich es umsetzen soll
Habs so probiert, aber es klappt natürlich nicht (EFCreateError)

markieren

Delphi-Quelltext

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

begin
  if PageControl1.ActivePage = TabSheet1 then
  begin
    SynEdit1.Lines.SaveToFile(pfad);
    SynEdit1.Modified := False;
  end;

Grolle

AXMD · Verfasst: Di 15.02.05 16:48

jasocul hat folgendes geschrieben:

Er wird noch keinen Dateinamen haben, meint mein Glaskugel.
Also
- einen zufälligen nehmen
- Bei Programmende fragen ob gespeichert werden soll
- Nach dem Speichern (also SaveAs oder beim Programmende) die Zwischendatei löschen.

oder so ähnlich

Hä

? Einen Dateinamen hat er sicher, siehe:

markieren

Delphi-Quelltext

1:
2:

if SaveDialog1.Execute then  
      SynEdit1.Lines.SaveToFile(SaveDialog1.FileName);

Grolle, was genau funzt nicht?

AXMD

Karlson · Beiträge: 2088

Den dateinamen hat er aber nur beim 'Speichern unter...' nicht beim normalen speichern, wenn man auf Datei...speichern geht wird ja normalerweise auch keine savedialog angezeigt.

@Grolle: Dein Code stimmt so, kann nicht nachvollziehen warum da ein Create-error auftritt. Poste mal bitte wo du pfad hernimmst...das ist doch nicht etwa ein leere Variable?

Grolle · Beiträge: 95 Win XP, Win 7 Delphi 2010 Pro

Das ist ja das Problem, ich weiß nicht wie ich Pfad deklarieren muss.
Ist im Moment unter private als string deklariert.

@ AXMD Verstehe ich das jetzt richtig, dass ich auch den FileName vom SaveDialog
übernehmen indem ich den Nutzer zwinge diesen zuerst zu benutzen?

Viele Grüße...

Karlson · Beiträge: 2088

Okay, du weisst also nicht woher der Pfad kommen soll.

Normalerweise kannst du das Zwischenspeichern nur ausführen, wenn schon einmal richtig gespeichert worden ist, also wenn schon eine neue Datei erstellt wurde.

Dann fügste deine Pfad-Variable mal in die globalen hotkeys ein, und schreibst deinen jetztigen Code um:

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:

procedure TForm1.Speichern();
//Mach ne Prozedure draus! Du wirst dir dafür noch danken wenn du mal die Gui umändern musst...
begin   
 if PageControl1.ActivePage = TabSheet1  then   
    begin   
    SaveDialog1.Filter := 'Html Dateien (*.html; *.htm)|*.html; *.htm';   
    SaveDialog1.DefaultExt := 'html; htm';   
      if SaveDialog1.Execute then
       begin   
        SynEdit1.Lines.SaveToFile(SaveDialog1.FileName);   
        Pfad := SaveDialog1.FileName;
       end;   
 if PageControl1.ActivePage = TabSheet2 then   
    begin   
    SaveDialog1.Filter := 'Php Dateien (*.php; *.php3; *.php4; *.dat)|*.php; *.php3; *.php4; *.dat';   
    SaveDialog1.DefaultExt := 'php; php3; php4; dat';   
      if SaveDialog1.Execute then   
       begin
        SynEdit2.Lines.SaveToFile(SaveDialog1.FileName);   
        Pfad := SaveDialog1.FileName;
       end;
    end;

Beim Klick auf Speichern Unter...rufst du dann einfach:

markieren

Delphi-Quelltext

1:	Speichern;

auf. Beim Klick auf das normale Speichern machst du das so:

markieren

Delphi-Quelltext

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

begin
 if Pfad <> '' then
  memo1.lines.savetofile(pfad)
  else
  Speichern;
end;

Grolle · Beiträge: 95 Win XP, Win 7 Delphi 2010 Pro

Supi. Danke für das entfernen des Brettes vor meinem Kopf.
Grolle

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme