Проект текстовый редактор и работа с word, excel приложениями - Delphi - Ответ 6213055

@stinfrai · Регистрация: 06.10.2013

Author24 — интернет-сервис помощи студентам

Всем форумчанам здраствуйте. Вот код текстового редактора. Нужно организовать в нем открытие и выгрузку файлов в word, excel. С технологией ole не знаком, подскажите как делать...

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ExtCtrls, StdCtrls, ComCtrls, XPMan, Buttons, WordXP,
  OleServer, ComObj;
 
type
  TForm1 = class(TForm)
    RichEdit1: TRichEdit;
    Panel1: TPanel;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    PrintDialog1: TPrintDialog;
    PrinterSetupDialog1: TPrinterSetupDialog;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    ColorDialog1: TColorDialog;
    N20: TMenuItem;
    N21: TMenuItem;
    N19: TMenuItem;
    FontDialog1: TFontDialog;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    XPManifest1: TXPManifest;
    ReplaceDialog1: TReplaceDialog;
    N27: TMenuItem;
    N28: TMenuItem;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    XPManifest2: TXPManifest;
    ComboBox1: TComboBox;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    PopupMenu1: TPopupMenu;
    N4: TMenuItem;
    N26: TMenuItem;
    N29: TMenuItem;
    WordDocument1: TWordDocument;
    WordApplication1: TWordApplication;
    Button8: TButton;
    Button9: TButton;
    procedure N6Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure N25Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N28Click(Sender: TObject);
    //procedure Button1Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
   // procedure SpeedButton5Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure SpeedButton6Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure N26Click(Sender: TObject);
    procedure N29Click(Sender: TObject);
 
 
    
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  r:integer;
 
implementation
 
uses Unit2;
 
{$R *.dfm}
 
procedure TForm1.N6Click(Sender: TObject);
begin
if OpenDialog1.Execute and FileExists (OpenDialog1.FileName) then
begin
RichEdit1.Lines.LoadFromFile (OpenDialog1.FileName);
RichEdit1.Modified := false;
End;
 
end;
 
procedure TForm1.N7Click(Sender: TObject);
begin
SaveDialog1.FileName := 'Ñòðàíèöà1';
if SaveDialog1.Execute then
begin
RichEdit1.Lines.SaveToFile (SaveDialog1.FileName+'.txt');
RichEdit1.Modified := false; 
end;
 
end;
 
procedure TForm1.N8Click(Sender: TObject);
begin
if PrintDialog1.Execute then
RichEdit1.Print (form1.Text);
end;
 
procedure TForm1.N9Click(Sender: TObject);
begin
PrinterSetupDialog1.Execute;
end;
 
procedure TForm1.N10Click(Sender: TObject);
begin
Close;
end;
 
procedure TForm1.N11Click(Sender: TObject);
begin
RichEdit1.Undo;
end;
 
procedure TForm1.N12Click(Sender: TObject);
begin
RichEdit1.SelectAll;
end;
 
procedure TForm1.N13Click(Sender: TObject);
begin
RichEdit1.CutToClipboard;
end;
 
procedure TForm1.N14Click(Sender: TObject);
begin
RichEdit1.CopyToClipboard;
end;
 
procedure TForm1.N15Click(Sender: TObject);
begin
RichEdit1.PasteFromClipboard;
end;
 
procedure TForm1.N16Click(Sender: TObject);
begin
RichEdit1.ClearSelection;
 
end;
 
procedure TForm1.N18Click(Sender: TObject);
begin
if ColorDialog1.Execute then
RichEdit1.SelAttributes.Color:=ColorDialog1.Color;
end;
 
 
 
procedure TForm1.N20Click(Sender: TObject);
begin
RichEdit1.Lines.Add (DateToStr (Date));
end;
 
procedure TForm1.N21Click(Sender: TObject);
begin
RichEdit1.Lines.Add (TimeToStr (Time));
end;
 
procedure TForm1.N19Click(Sender: TObject);
begin
if FontDialog1.Execute then
RichEdit1.SelAttributes.Assign(FontDialog1.Font);
end;
 
procedure TForm1.N4Click(Sender: TObject);
begin
 N15Click(Sender);   
end;
 
procedure TForm1.N23Click(Sender: TObject);
begin
RichEdit1.Paragraph.Alignment:=taLeftJustify;
end;
 
procedure TForm1.N25Click(Sender: TObject);
begin
RichEdit1.Paragraph.Alignment:=taCenter;
end;
 
procedure TForm1.N24Click(Sender: TObject);
begin
RichEdit1.Paragraph.Alignment:=taRightJustify;
end;
 
procedure TForm1.N5Click(Sender: TObject);
begin
RichEdit1.Lines.Clear;
Form1.Caption:=('My Text Editor');
end;
 
 
procedure TForm1.N17Click(Sender: TObject);
begin
RichEdit1.Clear;
end;
 
 
procedure TForm1.N28Click(Sender: TObject);
begin
If RichEdit1.WordWrap then
begin
RichEdit1.WordWrap:=false;
RichEdit1.ScrollBars:=ssBoth;
N14.Checked:=False;
end
else
begin
RichEdit1.WordWrap:=True;
RichEdit1.ScrollBars:=ssVertical;
N14.Checked:=True;
end;
end;
 
 
 
 
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
with RichEdit1.SelAttributes do
if ((fsBold)in Style) then Style:=Style -[fsBold] else
 Style:=Style+[fsBold];
end;
 
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
with RichEdit1.SelAttributes do
if ((fsItalic)in Style) then Style:=Style -[fsItalic] else
 Style:=Style+[fsItalic];
end;
 
 
procedure TForm1.SpeedButton4Click(Sender: TObject);
begin
with RichEdit1.SelAttributes do
if ((fsStrikeout)in Style) then Style:=Style -[fsStrikeOut] else
 Style:=Style+[fsStrikeOut];
end;
 
procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
with RichEdit1.SelAttributes do
if ((fsUnderline)in Style) then Style:=Style -[fsUnderline] else
 Style:=Style+[fsUnderline];
end;
 
 
 
 
 
 
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
case key of
 '0'..'9',',',#8:; {Çàïðåùàåì â ïîëå Edit ââîä ëþáûõ ñèìâîëîâ, êðîìå öèôð è çàïÿòûõ} 
 else key:=#0;end;
end;
 
procedure TForm1.SpeedButton6Click(Sender: TObject);
begin
RichEdit1.SelAttributes.Style:=[ ];
 
end;
 
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
RichEdit1.SelAttributes.Size:=StrToInt(ComboBox1.Text);
end;
 
procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0'..'9',',',#8]) then key:=#0;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
N23Click(Sender);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
N25Click(Sender);
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
N24Click(Sender);
end;
 
procedure TForm1.Button4Click(Sender: TObject);
begin
   N5Click(Sender);
end;
 
procedure TForm1.Button5Click(Sender: TObject);
begin
N6Click(Sender);
end;
 
procedure TForm1.Button6Click(Sender: TObject);
begin
N7Click(Sender);
end;
 
procedure TForm1.Button7Click(Sender: TObject);
begin
N17Click(Sender);
end;
 
procedure TForm1.N26Click(Sender: TObject);
begin
N13Click(Sender);
end;
 
procedure TForm1.N29Click(Sender: TObject);
begin
N14Click(Sender);
end;
 
 
 
 
 
end.

Вернуться к обсуждению:
Проект текстовый редактор и работа с word, excel приложениями Delphi

Другие темы раздела
Delphi Word, не получается вставить текст после таблицы https://www.cyberforum.ru/ delphi/ thread1184961.html Уважаемые люди, помогите разобраться. У меня не получается вставить текст после таблицы, текст вставляется все время в первую ячейку таблицы. Перепробовал много вариантов, много чего не помогло, надеюсь вы подскажете и немножко поможете мне. Часть кода из проекта: wdRng.InsertBefore(#13#10); wdRng.InsertAfter('Присвоено имя '+Edit7.Text+' (персональный идентификатор Touch Memory номер...	Запретить запуск второго экземпляра программы Delphi как сделать, чтобы прогу можно было запустить только один раз при повторном запуске выскакивало сообщение: "Программа уже запущена!". и прога потом не грузится второй раз..
Delphi Шрифт в delphi https://www.cyberforum.ru/ delphi/ thread1184079.html В программе поставил шрифт который скачал с интернета , в delphi на форме этот шрифт остается , а при передачи этой программы на другой компьютер шрифт становиться стандартный ... как сделать что бы шрифт остался тот который был задуман?	Delphi Combobox Здравствуйте! Помогите пожалуйста! создал Combobox ввел все данные, хочу чтобы кого выбирают из списка combobox, например "Авто" отображалось таблица для авто. А когда выбираешь другое например "автобус" выходил таблица для автобуса, а для авто убиралось. if combobox1.ItemIndex=1 then DBGrid2.Hide; DBGrid1.Show; if combobox1.ItemIndex=3 then DBGrid1.hide; DBGrid2.Show;так только показывает... https://www.cyberforum.ru/ delphi/ thread1183990.html
Delphi Загрузка EXE в FrontPage Здраствуйте, делаю тест в программе EasyQuizzy, а потом нужно этот самый готовый тест в формате EXE загрузить в FrontPage. Подскажите, пожалуйста, кто знает как это сделать?	Delphi Доброго времени суток ,товарищи, мне очень нужно перевести программу в Delphi <cut> Вот программа на Паскале, помогите несчастному гуманитарию перевести эту программу в Delphi . Правила Форума: 5.18 Запрещено размещать задания и решения в виде картинок и других файлов с их текстом.Перепечатывайте задание на форум https://www.cyberforum.ru/ delphi/ thread1183726.html
Delphi Использование функций Excel из Delphi https://www.cyberforum.ru/ delphi/ thread1183639.html Прочитал тему https://www.cyberforum.ru/delphi/thread21280.html и у меня возник вопрос, можно-ли использовать функции excel из delphi , например функция сумм Ap.Summ] :=b; //сумма значений из ячеек с А2 по B5 и D1	Delphi Управление AIMP3 Доброго времени суток. Перерыл кучу форумом, но нигде не нашел управление AIMP'ом через посылку сообщений программе. Код для управления WMP такой: procedure TForm1.Button1Click(Sender: TObject); var h:hwnd; begin h:=findwindow('WMPlayerApp',nil); sendmessage(h,wm_command,$4978,0); //Воспроизведение/пауза end;
Delphi Системы контроля управления доступом https://www.cyberforum.ru/ delphi/ thread1182859.html Нужно создать программу на дельфи! Системы контроля управления доступом двери!	Delphi Delphi программа с word на другом компе Какую библиотеку надо закинуть в папку с приложением, выводящим данные в MS Word, чтобы оно нормально работало на компьютере без Delphi? Побегал по форумам, нашел библиотеки, которые нужно скидывать, но в word все равно не выводит https://www.cyberforum.ru/ delphi/ thread1182818.html
Delphi Fast report "Access violation at address 119DCDBC in module 'frx17.bpl'" При закрытии Fast report выдает ошибку "Access violation at address 119DCDBC in module 'frx17.bpl'. Read of adress FFFFFFFF" нажимаю ок и выдает "out of memori"	Delphi Что со сборкой мусора? Слышал, что в современных версиях Delphi возможно использование сборки мусора. Что-то там с использованием интерфейсов. Можно ли узнать подробнее? https://www.cyberforum.ru/ delphi/ thread1182200.html

	22.05.2014, 21:29