Memo speichern

[Satty67]

Vielleicht postest Du nochmal hier den Code ab
procedure TForm1.BitBtn1Click damit wir das prüfen und Dich benoten ähh korrigieren können.

[jaenicke]

Naja, aber dann wird exakt die Eingabe aus dem Dialog als Dateiname verwendet. Egal ob der Filter gesetzt ist, das ist nur nebenbei nett.

Klappt denn auch das Speichern jetzt richtig?

[hansdieter11]

klappt alles, und das programm schmiert ab wenn man zeichen wie " / \ * < > usw in der memo benutzt, aber ich denke das ist normal?

das einzige ist halt wie gesagt das der name unter dem ich das programm abspeichere nicht übernommen wird und die textdatei gar keinen namen hat wie man auf dem screen sieht

Delphi-Quellcode:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
     IF SaveDialog1.Execute
     THEN
        begin
        Memo1.Lines.SaveToFile(OpenDialog1.FileName);
        end;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
     IF OpenDialog1.Execute
     THEN
        begin
        Memo1.Lines.Clear;
        Memo1.Lines.LoadFromFile(OpenDialog1.Filename);
        end;
end;

[DeddyH]

Zitat:

Delphi-Quellcode:

IF SaveDialog1.Execute
     THEN
        begin
        Memo1.Lines.SaveToFile(OpenDialog1.FileName);
        end;

Schau mal genau, welche Dialoge Du da ansprichst/abfragst

[jaenicke]

@DeddyH: Und vergleich mal mit dem was ich als allererstes geschrieben hatte...

Das war mein Fehler beim schnellen Schreiben, aber das liegt am einfach blind kopieren, dass du das nicht gemerkt hast.

[DeddyH]

Nenn es einfach "Easteregg"

[Satty67]

Er antwortet gar nicht mehr, hoffe er war nicht mit der letzten Version zufrieden?

Zudem könnte sein, das er nicht sieht, was offensichtlich ist:

Delphi-Quellcode:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin 
  IF SaveDialog1.Execute
     THEN
        begin
        Memo1.Lines.SaveToFile({Open}SaveDialog1.FileName);
        end;

[hansdieter11]

nein ich bin nicht zufrieden, jetzt krieg ich fehlermeldungen manchmal beim abspeichern von wegen datei kann nicht erstellt werden..
ich steig da grad nicht mehr durch, weil eben ging so noch alles und jetzt gar nicht mehr oO
trotzdem danke

[taaktaak]

Na, dann schreib doch mal, wie die Fehlermeldung lautet.
Wir helfen doch weiter...

[hansdieter11]

hab nochmal rumprobiert jetzt geht alles einwandfrei
danke