SynEdit der aktuellen Seite abspeichern

[XPLOSIV]

hmm, ich dahcte ich hätte alles richtig nunja, hier viele angaben.

1.

Delphi-Quellcode:

  private
    Files: TStrings;
    function CanFileClose(index: Integer): Boolean;
    procedure DoFileOpen(fn: TFileName);
   [b] procedure DoFileSaveAs(fn: [/b]TFileName);

In der Action List hab ich FileSaveAsAction

2. Bei der On Accept hab ich folgendes:

Delphi-Quellcode:

procedure TForm1.FileSaveAsActionAccept(Sender: TObject);
begin
  with Sender as TFileSaveAs do
    DoFileSaveAs(Dialog.FileName);
end;

3. Hab ich noch DoFileSaveAs

Delphi-Quellcode:

procedure TForm1.DoFileSaveAs(fn: TFileName);
var
  se: TSynEdit;
  i: Integer;
begin
  with PageControl1 do
    i := ActivePageIndex;
  se := TSynEdit(Files.Objects[i]);
  se.Lines.SaveToFile(fn);
  Files[i] := fn;
  if se.Modified then
    se.Modified := False;
end;

4. Hab ich oben noch

Delphi-Quellcode:

resourcestring
  S_DATALOSS
    = 'Text wurde verändert und noch nicht gespeichert.'#13
    + 'Alle Änderungen gehen verloren!'
    ;

Genügt das ? Wenn was fehlt poste ich umgehend