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

[SVeTLЫ'Й]

Возникла проблема в написание текстового редактора не знаю как написать в меню « Файл» - команды «Сохранить как», «Открыть» с использованием объекта Memo1 . Результат должен получиться как в стандартном «Блокнот» в Windowsе после нажатий разнообразных последовательностей кнопок «Yes, No, Cancel» - в моей программе возникают ошибки или не соответствие с стандартном «Блокнот» в Windowsе. Разбор примерных Исходников не к чему не привел. Познания в Delphi очень малы. Помогите кто чем сможет! Если можно объяснить. Уже не знаю где можно найти ответ на мою проблему!!! За ранние спасибо!!!:

[Miha85193]

Бросаем на форму компонепты TOpenDialog и TSaveDialog.
Пишем в TForm1, в разделе private: procedure OpenFile и procedure SaveFile. Нажымаем Ctrl+Shift+C появляются:

procedure TForm1.OpenFile;
begin
   
end;

procedure TForm1.SaveFile;
begin
   
end;

Пишем в них следующее:

procedure TForm1.OpenFile;
begin
   if OpenDialog1.Execute then
     Memo1.LoadFromFile(OpenDialog1.FileName);
end;

procedure TForm1.SaveFile;
begin
   if SaveDialog1.Execute then
     Memo1.SaveToFile(SaveDialog1.FileName);
end;

Далее вызываем эти процедуры в обработчиках событий главного меню. Конечно не совсем так как в Блокноте, но после несложной доработки будет работать аналогично.

[SVeTLЫ'Й]

Конечно не совсем так как в Блокноте, но после несложной доработки   будет работать аналогично.

вот мне и надо чтоб аналогично. Такие вещи у меня есть и много но аналогичны "Блокнот" нету!!!

[cheef]

Yes и No нету?
Если да то просто нужно ещё одну форму создать с кнопками да и нет и просто.
На кнопке да
if OpenDialog1.Execute then
Memo1.LoadFromFile(OpenDialog1.File Name);
На нет
form.close;

[Alex Cones]

В папке с дельфой (Demos) есть готовый текстовый редактор. Расковыряйте его.

[Пепел Феникса]

что именно вам нужно от блокнота то?
это стандартный MessageBox вообще то.

[betirsolt]

да какой yes no?вот же

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if memo1.Modified then
if messagedlg('Файл был изменен,сохранить его перед выходом',mtConfirmation,[mbYes,mbNo],0)=mrYes
then
  if savedialog1.execute then
  memo1.Lines.SaveToFile(savedialog1.filename +'.txt');
end;

если вы об этом конечно

[Sensizu]

А моя интуиция подсказывает мне, что ему нужен фейк блокнота. Функции все абсолютно реальны для копирования и переделывания самому, примеры Вам уже показаны.
Отмена и повтор:

memo1.undo; // отмена действия 
memo1.redo; // повтор действия
memo1.lines.savetofile(...); // сохранение
memo1.lines.loadfromfile(...); // загрузка текстового документа
memo1.wordWrap:=True/False; // тут честно не помню есть ли такой параметр в Мемо.

Поиск реализовать можно через Pos (правда так не очень удобно), или порыться в компонентах ких-нить.
Ну дату вставить по нажатию F5 я думаю Вы разберётесь.

[Пепел Феникса]

в блокноте MessageBox

case MessageBox(Handle,'текст вроде','вроде заголовок',MB_YESNOCANCEL) of
 IDYES://нажата кнопка Yes 
 IDNO://нажата кнопка No
 IDCANCEL://нажата кнопка отмена
end;

[SVeTLЫ'Й]

Уточняю свой вопрос!!! в Windowsе есть стандартная программка "Блокнот" - вот моя задача написать в Delphi текстовый редактор идентичный "Блокнот"-у, при написание кода возникла проблема с написанием вкладки "открыть" и "сохранить как"
вот у меня есть

Открыть!
Код:
procedure TForm1.N2Click(Sender: TObject);
var mes: integer;
begin
if Memo1.Modified = true then
begin
mes := MessageDlg ('Сохранить изменение страницы?', mtConfirmation, [mbYes, mbNo, mbCancel], 0);
if mes = mrYes then
begin
N15Click (Sender);
Memo1.Clear;
end;
{if mes = mrNo then
{Memo1.Clear;
end else
Memo1.Clear;
begin }
if OpenDialog1.Execute then Memo1.Lines.LoadFromFile(OpenDialog 1.FileName);
Caption := Format('Б локнотик - %s ', [ExtractFileName(OpenDialog1.FileNam e), Application.Title]);
Memo1.Modified:=false;
end;
end;

Сохранить как!

код:

procedure TForm1.N15Click(Sender: TObject);
var mes: integer;
begin
if SaveDialog1.Execute then
begin
if FileExists(SaveDialog1.FileName) then
if MessageDlg(Format(sOverWrite, [SaveDialog1.FileName]),
mtConfirmation, mbYesNoCancel, 0) <> idYes then Exit;
Memo1.Lines.SaveToFile(SaveDialog1. FileName);
SetFileName(SaveDialog1.FileName);
Memo1.Modified := False;
Path:= SaveDialog1.FileName
end;
end;


так то код рабочий выполняет половину нужного действия, но в связи с тем что этот код не является правильным по скольку при выполнение этих процессов, на этапе пересохранения, открытия повторного файла и т. п. при разнообразных комбинациях кнопок да, нет, отмена - возникаю не соответствие с тексовым редактором "Блокнот" в Windowsе необходимый результат идентичность "Блокнот" в Windowsе!!!
Можно чемто помочь?!?!?! надеюсь точно указал суть проблемы!!!