SaveDialog Dateinamen

[Ouou]

Mahlzeit ihr Delphianer :mrgreen: ,

Ich hätte da ein kleines Problem, und zwar programmiere ich gerade einen SaveDialog, der als Dateinamen den Eintrag eines Edit-Feldes besitzen soll.

Bis dahin klappt alles soweit super...

Delphi-Quellcode:

var
    saveDialog: TSaveDialog;
begin
      saveDialog := TSaveDialog.Create(self);
      saveDialog.Filter := 'Textdatei*.txt';      
      saveDialog.DefaultExt := 'txt';                
      saveDialog.Options := [ofOverwritePrompt];
               if saveDialog.Execute then
   begin
      Systemauswertung.Lines.SaveToFile(saveDialog.Filename);
   end;
end;

Nur komme ich nicht drauf wie ich den Dateinamen von dem Edit beziehen kann...

Hat jemand einen Vorschlag?

Mfg Ouou

[nahpets]

Hallo,

Delphi-Quellcode:

var 
  saveDialog: TSaveDialog; 
begin 
  saveDialog := TSaveDialog.Create(self); 
  saveDialog.Filename := EditIrgendwie.text; // <-- so?
  saveDialog.Filter := 'Textdatei*.txt';      
  saveDialog.DefaultExt := 'txt';                
  saveDialog.Options := [ofOverwritePrompt]; 
  if saveDialog.Execute then 
  begin 
    Systemauswertung.Lines.SaveToFile(saveDialog.Filename); 
  end; 
end;

[himitsu]

du kannst z.B. saveDialog.Filename auch etwas zuseiten ... also natürlich vor dem Execute :zwinker:

[Jens Hartmann]

Hallo,

Probier es mal so...

Delphi-Quellcode:

SaveDialog1.FileName := Edit1.Text;

[EDIT] Jetzt kann ich mal schnell antworten ohne selber zu Probieren, und trotzdem 2mal schneller. Trotzdem hier die antwort.[/EDIT]
Gruß Jens

[Ouou]

Das Problem ist wenn ich das so mache...

Zitat:

[/delphi]var
saveDialog: TSaveDialog;
begin
saveDialog := TSaveDialog.Create(self);
saveDialog.Filename := EditIrgendwie.text; // <-- so?
saveDialog.Filter := 'Textdatei*.txt';
saveDialog.DefaultExt := 'txt';
saveDialog.Options := [ofOverwritePrompt];
if saveDialog.Execute then
begin
Systemauswertung.Lines.SaveToFile(saveDialog.Filen ame);
end;
end;[delphi]

dann wird der saveDialog gar nicht mehr aufgerufen. Es öffnet sich einfach nicht mehr.

Mfg Ouou

[Ouou]

Sry habe den Formatierer vergessen :wall:

[himitsu]

Wenn du Dateiname etwas zuweißt, was keinem gültigen Dateinamen entsprechen würde, dann triffst du so auf einen "netten" Bug seitens Windows. :angel2:

[nahpets]

Hallo,

dass das bei Dir nicht geht, wundert mich, da ich das eigentlich bei etlichen Programmen so oder sehr ähnlich umgesetzt habe.
Versuche es doch mal mit einem festen Dateinamen für SaveDialog.Filename und schaue, ob das geht. Dann wäre der Fehler wirklich bei der Zuweisung des Dateinamens aus dem Edit zu suchen. Ist sichergestellt, dass im Edit ein korrekter Dateiname steht?

[Ouou]

Also wenn ich einen festen Dateinamen saveDialog.Filename zuweiße dann klappt es.
Aus dem Edit wird die Mainbord Seriennummer rausgelesen... aber dürfte doch normal kein Problem sein oder?

[Jens Hartmann]

Hallo,

Sind dort Sonderzeichen drin vorhanden. Dann kann das Probleme geben. Ungültiger Dateiname.

Gruß Jens

[Ouou]

Jap da sind zwei enthalten die stehen hinter der Seriennummer.
Das sind so Vierecke... Ist mir noch gar nicht aufgefallen :gruebel: . Wie kommen die denn da hin?

[Jens Hartmann]

Schau dir mal die Funktionen

StringReplaced und Trim String an. Die sollten dir weiterhelfen.

Delphi-Quellcode:

    //Den Dateipfad säubern (Achtung: Doppelpunkt und Backslash sind hier sehr wohl gültig!)
    sFilePath := StringReplace(sFilePath, '/', '', [rfReplaceAll, rfIgnoreCase]);
    sFilePath := StringReplace(sFilePath, '*', '', [rfReplaceAll, rfIgnoreCase]);
    sFilePath := StringReplace(sFilePath, '?', '', [rfReplaceAll, rfIgnoreCase]);
    sFilePath := StringReplace(sFilePath, '"', '', [rfReplaceAll, rfIgnoreCase]);
    sFilePath := StringReplace(sFilePath, '<', '', [rfReplaceAll, rfIgnoreCase]);
    sFilePath := StringReplace(sFilePath, '>', '', [rfReplaceAll, rfIgnoreCase]);
    sFilePath := StringReplace(sFilePath, '|', '', [rfReplaceAll, rfIgnoreCase]);

So ähnlich wird das gemacht. Ich weiß nur nicht mit dem Viereck?

Gruß Jens

[DeddyH]

Für die "Vierecke" sollte Trim() im Normalfall reichen.

[Ouou]

Ok werde ich mir mal anschauen.

Vielen Danke soweit...

[Ouou]

Mahlzeit...

hatte gestern nicht mehr die Zeit um Trim() auszuprobieren... wollte nur sagen, dass es jetzt optimal klappt.

Danke für die Hilfe Leutz...

Bis demnächst

mfg