editor

[monty.ms]

hallo

ich arbeite zur zeit an einem kleinen programm (um mich ein bisschen in delphi einzu arbeiten)..

ich habe vor eine art ersatz für den standard editor zu schreiben. jetzt komm ich aber leider nicht weiter, und brauch eure hilfe:

ich habe bereits den opendialog eingerichtet. Nun will ich, dass er den Inhalt der .txt Datei in die Memo schreibt. Wie mache ich das?? und wie mache ich es, dass wenn ich die Datei speicher, der text aus der memo in die txt gespeichert wird??

wäre nett wenn ihr mir helft, bzw ansätze gebt! danke!

ps: wenn ich bei delphi auf "Hilfe" gehe, findet er die Datei nicht.. kann ich die irgendwo anders her noch bekommen?

[mirage228]

Hi,

TMemo bietet Dir dafür die Methode LoadFromFile bzw. SaveToFile ;)

mfG
mirage228

[alcaeus]

Hallo monty.ms,

eine Datei laden kannst du mit TStrings.LoadToFile, speichern mit TStrings.SaveToFile. In deinem Fall mit dem OpenDialog wuerde das so aussehen:

Delphi-Quellcode:

var
  FileName: String;

//...

//Laden
if OpenDialog1.Execute and FileExists(OpenDialog1.FileName) then
begin
  FileName := OpenDialog1.FileName;
  Memo1.Lines.LoadFromFile(FileName);
end;

//Speichern
Memo1.Lines.SaveToFile(FileName);

Noch eine kurze Erklaerung: Die Datei "FileName" wird dazu verwendet, den Dateinamen zu speichern, damit die Datei auch wieder gespeichert werden kann. Wenn also der OpenDialog mit "Open" bestaetigt wurde und die angegebene Datei existiert, so wird der Dateiname erstmal gespeichert, und anschliessend in das Memo geladen. Beim Speichern wird einfach mit SaveToFile der komplette Inhalt der Datei gespeichert.

Greetz
alcaeus

[monty.ms]

ok.. danke euch beiden, hat super funktioniert, ..

das ist ja aber die "Speichern unter.." methode! Gibt es auch die möglichkeit direkt in die datei zu speichern ohne den dialog zu öffnen?

edit: ahhh ^^ .. sry mein fehler ;)

funzt.. danke schööön =)

[alcaeus]

Hallo monty.ms,

das ist nicht "Speichern Unter", das ist speichern. Genau deshalb speicher ich auch den Namen der Datei in einer Variable, damit ich dann direkt mit .SaveToFile da reinschreiben kann. Der Dialog kommt nur bei Oeffnen einer Datei ;)

Greetz
alcaeus

[Ultimator]

Fast genauso wie oben ;-)

Delphi-Quellcode:

Memo1.Lines.SaveToFile('C:\Programme\Borland\Delphi 7\bin\delphi32.exe');

OK, blödes Beispiel, wenn du Delphi weiterhin verwenden willst, aber das Prinzip dürfte klar sein ;-)

[monty.ms]

mhh.. jetzt steh ich aber im konflikt..

ich hab einen speichern unter knopf der wunderbar funktioniert!
wenn man aber nun den speichern button klickt, obwohl die datei nicht existiert, dann sollte er ja doch mit dem speicherdialog arbeiten..

wie krieg ich das hin?

edit: k.. hat sich erledigt.. :)

[monty.ms]

mhh.. nochmal zu dem thema speichern :) .. kurz vor dem ende, fällt mir auf, dass der die datei gar nicht mit der endung .txt speichert..

das hab ich dann wie folgt gelöst:

Delphi-Quellcode:

Memo1.Lines.SavetoFile(SaveDialog1.Filename+'.txt');

aber ich will ja auch in .doc format speichern lassen können,.. wie kann ich eine unterscheidung machen? mit if then else?

[Airblader]

Doch, normal ist die Endung bereits dabei.

Ich vermute, dass bei dir bekannte Endungen ausgeblendet werden (Extras->Ordneroptionen/Interneroptionen)

air

[monty.ms]

nein, nein.. das ist an.. es ist auch kein "editor" icon da.. es ist wirklich nur eine datei! ..

hier der komplette auszug:

Delphi-Quellcode:

procedure TForm1.BSave_uClick(Sender: TObject);
begin
if SaveDialog1.Execute then
 TRY
  Memo1.Lines.SavetoFile(SaveDialog1.Filename+'.txt');
 EXCEPT
  ShowMessage ('Fehler beim Speichern der Datei!');
 END;
end;