Текстовый редактор

[Nazario]

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ActnList, StdActns, ExtActns,Printers;

type
  TMainForm = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    WindowMenu: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    FontDialog1: TFontDialog;
    PrintDialog1: TPrintDialog;
    ActionList1: TActionList;
    WindowCascade1: TWindowCascade;
    WindowTileHorizontal1: TWindowTileHorizontal;
    WindowTileVertical1: TWindowTileVertical;
    EditCut1: TEditCut;
    EditCopy1: TEditCopy;
    EditPaste1: TEditPaste;
    EditUndo1: TEditUndo;
    SearchFind1: TSearchFind;
    SearchReplace1: TSearchReplace;
    RichEditAlignLeft1: TRichEditAlignLeft;
    RichEditAlignRight1: TRichEditAlignRight;
    RichEditAlignCenter1: TRichEditAlignCenter;
    procedure N2Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N26Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation

uses child, AboutUnit1;

{$R *.dfm}

procedure TMainForm.N2Click(Sender: TObject);
begin
TChildForm.Create(Self);
end;

procedure TMainForm.N7Click(Sender: TObject);
begin
close;
end;

procedure TMainForm.N3Click(Sender: TObject);
begin
If OpenDialog1.Execute then  {}

begin
ChildForm:=TchildForm.Create(Self);        {Створюєм Вікно}
ChildForm.RichEdit1.Lines.LoadFromFile(OpenDialog1.FileName);{Загружаєм В RichEdit1 вибраний файл}

ChildForm.Caption:= OpenDialog1.FileName;
ChildForm.RichEdit1.Tag:=0;
end;
end;

procedure TMainForm.N16Click(Sender: TObject);
begin
If FontDialog1.execute then     {Якщо Користувач вибрав шрифт}

(ActiveMDIChild as TChildForm).RichEdit1.Font:=FontDialog1.Font;   {Встановити шрифт}

end;

procedure TMainForm.N5Click(Sender: TObject);
var FName:string;
begin
If MDIChildCount=0 then Exit;
SaveDialog1.FileName:=FName;

SaveDialog1.Title:='Зберегти файл як...'; {Заголовок діалогового вікна збереження файла}

if SaveDialog1.Execute then
  begin
  Fname:=saveDialog1.Filename;      {Відкрити діалог і запам'ятати нове ім'я файл}

  case SaveDialog1.FilterIndex of      {Змінюєм розширення файла}
  1:FName:=ChangeFileExt(FName,'.txt');
  2:FName:=ChangeFileExt(FName,'.rtf');
  end;
end;
(ActiveMDIChild as TChildForm).RichEdit1.Lines.SaveToFile(FName);
{Записуєм у файл властивості Line об'єкта RichEdit  активного вікна}
(ActiveMDIChild as TChildForm).Caption:=FName;
{Замsнити ім'я файла в заголовку активного вікна}
(ActiveMDIChild as TChildForm).RichEdit1.Tag:=0;
{Зміни у файлі збережені}
end;

procedure TMainForm.N4Click(Sender: TObject);
begin
if MDIChildCount=0 then Exit;

if (ActiveMDIChild as TChildForm).Caption='Новий' then  N5Click(Sender)
                                                  else
                                                  begin
                                        (ActiveMDIChild as TCHildForm).RichEdit1.Lines.SaveToFile((ActiveMDIChild as TChildForm).Caption);
                                        (ActiveMDIChild as TCHildForm).RichEdit1.Tag:=0;
                                        end;


end;



procedure TMainForm.N6Click(Sender: TObject);
begin
if PrintDialog1.Execute then
begin
Assign Prn(F);
Rewrite(F);
Writeln(F,(ActiveMDIChild as TChildForm).RichEdit1.Text);
System.CloseFile(F);
end;
end;

procedure TMainForm.N26Click(Sender: TObject);
begin
About.Showmodal;
end;

end.

[MyLastHit]

procedure TMainForm.N6Click(Sender: TObject);
var f:TextFile;//или глобальную переменную объяви
begin
if PrintDialog1.Execute then
begin
Assign Prn(F);
Rewrite(F);
Writeln(F,(ActiveMDIChild as TChildForm).RichEdit1.Text);
System.CloseFile(F);
end;
end;

Заметил

uses child, AboutUnit1;

. Если F у тебя объявлена там, то тащи ее через Child.F(или AboutUnit1.F). Но при условии что она глобально объявлена.

[Nazario]

Большое спасибо. Реально помогли. еще раз благодарю .!!!!!