Wenn als diese Endung Speichern dann

[TKC]

z.B. so ...

Delphi-Quellcode:

procedure TMainForm.AOeffnenExecute(Sender: TObject);
var
  sl                          : TStringList;

begin
  if OpenDialog1.Execute then
    begin
      if FileExists(OpenDialog1.Filename) then
        begin
          // auf .XXX Dateiendung prüfen
          if ExtractFileExt(OpenDialog1.Filename) = '.XXX' then
            begin
              //Stringliste erzeugen
              sl := TStringList.Create;

              //Datei in Stringliste Laden
              sl.LoadFromFile(OpenDialog1.Filename);

              //1. Zeile löschen
              sl.Delete(0);

              //Inhalt von Stringliste an Richedit übergeben
              RichEdit1.Lines.Assign(sl);

              //Stringliste freigeben
              sl.Free;
            end
          else
            RichEdit1.Lines.LoadFromFile(OpenDialog1.Filename);
        end;
    end;
end;


procedure TMainForm.AspeichernuExecute(Sender: TObject);
var
  sl                          : TStringList;

begin
  if SaveDialog1.Execute then
    begin
      if SaveDialog1.Filename <> '' then          // ist Dateiname angegeben?
        begin
          // auf .XXX Dateiendung prüfen
          if ExtractFileExt(SaveDialog1.Filename) = '.XXX' then
            begin
              //Stringliste erzeugen
              sl := TStringList.Create;

              //Inhalt von Richedit an Stringliste übergeben
              sl.Assign(RichEdit1.Lines);

              //Zeile in Stringliste einfügen
              sl.Insert(0, 'diese Linie wird eingefügt');

              //Stringliste speichern
              sl.SaveToFile(SaveDialog1.Filename);

              //Stringliste freigeben
              sl.Free;
            end
          else
            RichEdit1.Lines.SaveToFile(SaveDialog1.Filename);

          OpenDialog1.Filename := '';
        end;
    end;
end;