XPLOSIVs Fragentheard

[angos]

Hi,

machs mal so (ungetestet)

Delphi-Quellcode:

var
  MyEdit: TRichEdit;
begin
  if ((SaveDialog1.FileName <> '') or (SaveDialog1.Execute)) then
  begin
    MyEdit := TRichEdit(PageControl1.ActivePage.Controls[0]); // das ist ziemlich gefährlich... was ist wenn control[0] kein Richedit ist ;)
    MyEdit.PlainText := True;
    MyEdit.Lines.SaveToFile(SaveDialog1.FileName);
  end;
end;

[EDIT] noch wesentlich einfacher dürfte das sein:

Delphi-Quellcode:

begin
  if ((SaveDialog1.FileName <> '') or (SaveDialog1.Execute)) then
  begin
    // Hier kannste auch einfach den NAMEN des Richedits einsetzen
    TRichEdit(PageControl1.ActivePage.Controls[0]).PlainText := True;
    TRichEdit(PageControl1.ActivePage.Controls[0]).Lines.SaveToFile(SaveDialog1.FileName); 
  end;
end;

Und schau dir ruhig nochmal die ganzen Tutorials an, die mkinzler verlinkt hat, die dürften für dich Gold wert sein!

Gruß