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ß