SynEdit der aktuellen Seite abspeichern

[XPLOSIV]

Ja, da kommt Fehler Bei

Delphi-Quellcode:

begin
  with Sender as TFileSaveAs do
    DoFileSaveAs(Dialog.FileName);

Hmm, mir erscheint es unmöglich diesen Fehler auzumerzen

[XPLOSIV]

Also, der Fehler war für ne Weile weg, doch nun isser wieder da, diesmal speichert er immer die SynEdit1 der Vorherigen Seite, und wenn keiner Vorhanden ist gibt er eine Fehlermeldung aus.

Delphi-Quellcode:

procedure TForm1.DoFileOpen(fn: TFileName);
var
  ts: TTabSheet;
  se: TSynEdit;
begin
  ts := TTabSheet.Create(PageControl1);
  ts.PageControl := PageControl1;
  if fn = ''
    then ts.Caption := Format('Neu [%d]', [PageControl1.PageCount])
    else ts.Caption := ExtractFileName(fn);
  ts.Hint := fn;
  se := TSynEdit.Create(ts);
  se.Parent := ts;
  se.Align := alClient;
    se.ActiveLineColor:= $00FFFF80;
  se.Gutter.ShowLineNumbers:= TRUE;
  if fn = ''
    then se.Lines.Clear
    else se.Lines.LoadFromFile(fn);
  Files.AddObject(fn, se);
  PageControl1.ActivePage := ts;
  se.SetFocus;
end;

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;

Delphi-Quellcode:

begin
  with Sender as TFileSaveAs do
    DoFileSaveAs(Dialog.FileName);
end;

Delphi-Quellcode:

begin
  with Sender as TFileOpen do
    DoFileOpen(Dialog.FileName);
end;

Hoffe jemand kann helfen...

MfG Innos

[marabu]

Hallo,

du hast deine TabSheets reorganisiert. Zu jedem TabSheet muss ein Eintrag in Files[] existieren:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Files := TStringList.Create;
  // Für jedes TabSheet ein Eintrag mit FileName, Editor
  Files.AddObject('', nil); // erstes TabSheet: kein Dateiname, kein Editor
  Files.AddObject('', SynEdit); // kein Dateiname, aber Editor vorhanden
  // Der folgende Eintrag muss weg, weil du ein TabSheet entfernt hast
  //  Files.Add(''); // kein Dateiname, kein Editor
end;

Freundliche Grüße