Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Аналог блокнота [D7, XP]

Страницы: 1 2 >
Human © (2010-02-21 15:01:00)
Здравствуйте уважаемые мастера Delphi. Подскажите пожалуйста. Пытаясь написать аналог болокнота Windows, столкнулся с такой проблемой: прописываю пункт меню файл(создать,открыть,сохранить...).Каким образом можно сравнить уже открытый файл в поле Memo1 и тот текст который нужно сохранить? Открываю файлы из OpenDialog.

Human (2010-02-22 00:19:00) [1]
Удалено модератором

{RASkov} (2010-02-22 00:19:00) [2]
Удалено модератором

Human (2010-02-22 00:12:00) [3]
Удалено модератором

Eraser (2010-02-22 00:09:00) [4]
> [31] Human © (21.02.10 23:17)

> но ни кто не предложил не одного решения.

решение одно - форматировать код вручную при написании, например по стандарту http://www.delphikingdom.com/asp/viewitem.asp?catalogid=802. различные инструменты полезны только когда нужно править какие-нибудь сторонние горе-исходники вроде [24].

Плохиш (2010-02-21 23:55:00) [5]

> Human © (21.02.10 23:17) [31]

Графу "Образование" в анкете исправь, а то смешно просто...

@!!ex (2010-02-21 23:51:00) [6]
> [31] Human © (21.02.10 23:17)

Отношение такое по очень простой причине:
Если прочитать хотя бы одну книжку по основам программирования - этих проблем просто не будет.

Игорь Шевченко (2010-02-21 23:41:00) [7]

> но ни кто не предложил не одного решения

Никто не должен предлагать решения. Удивись.

> А вы только кричите про порнографию и чужие проблемы

Это действительно твои проблемы. А не нащи - разбираться в твоем неотформатированном коде.

Human (2010-02-21 23:17:00) [8]
Вы все говорите о форматировании, но ни кто не предложил не одного решения. За то время пока я сидел в форуме пытался, что то исправить, кое что начало получаться. А вы только кричите про порнографию и чужие проблемы. Лично я начинающий и поэтому пишу в форум для начинающих. Интересно, какие вопросы на форуме задаёте вы? Eraser, спасибо за подсказку про Д2010.

{RASkov} (2010-02-21 21:54:00) [9]
> [24] Human © (21.02.10 18:49)
> в чем ошибка? Здесь код:

При таком форматировании грех без ошибок писать...)

Eraser (2010-02-21 21:15:00) [10]
> [24] Human © (21.02.10 18:49)

установи Д2010, там жмешь ctrl+D и получаешь
procedure TForm1.N4Click(Sender: TObject); begin if Memo1.Modified = true then begin MessageBeep(Mb_Iconexclamation); if MessageDlg('Текст в файле Новый был изменён. Сохранить изменения?', mtWarning, [mbOk, mbCancel, mbNo], 0) = mrCancel then exit else if MessageDlg('Текст в файле Новый был изменён. Сохранить изменения?', mtWarning, [mbOk, mbCancel, mbNo], 0) = mrNo then OpenDialog1.Filter := 'Текстовые файлы (*.txt)|*.txt'; if OpenDialog1.Execute and FileExists(OpenDialog1.FileName) then Memo1.Lines.LoadFromFile(OpenDialog1.FileName) else if MessageDlg('Текст в файле Новый был изменён. Сохранить изменения?', mtWarning, [mbOk, mbCancel, mbNo], 0) = mrOk then SaveDialog1.Filter := 'Текстовые файлы (*.txt)|*.txt'; if SaveDialog1.Execute then Memo1.Lines.SaveToFile(SaveDialog1.FileName + '.txt') end else if Memo1.Modified = false then OpenDialog1.Filter := 'Текстовые файлы (*.txt)|*.txt'; if OpenDialog1.Execute and FileExists(OpenDialog1.FileName) then Memo1.Lines.LoadFromFile(OpenDialog1.FileName); Memo1.Modified := false; end;

@!!ex (2010-02-21 20:49:00) [11]
> [24] Human © (21.02.10 18:49)
> if MessageDlg('Текст в файле Новый был изменён. Сохранить
> изменения?',
> mtWarning, [mbOk,mbCancel,mbNo],0)= mrCancel then
> exit else
> if MessageDlg('Текст в файле Новый был изменён. Сохранить
> изменения?',

LOL.
Ты понимаешь что пишешь, или чужой код просто вставляешь без понимания???

Игорь Шевченко (2010-02-21 19:46:00) [12]

> Подскажите, в чем ошибка?

В перекладывании своих проблем на других

> Здесь код:

Это не код, это порнография. Открой любой пример из Demos и посмотри форматирование

Human (2010-02-21 18:58:00) [13]
Как именно?

Anatoly Podgoretsky (2010-02-21 18:51:00) [14]
> Human (21.02.2010 17:21:20) [20]

Тогда это почти непригодный редактор, надо еще уметь и создавать файл.

Human (2010-02-21 18:49:00) [15]
Спасибо. Подскажите пожалуйста, я пишу обработчик для кнопки открыть, происходит следующее: открываю текст, вношу изменения, опять открываю, если на вопрос сохранить или нет отвечаю нет, этот же вопрос выскакивает еще раз. Подскажите, в чем ошибка? Здесь код:
procedure TForm1.N4Click(Sender: TObject);
begin
if Memo1.Modified = true then
begin
MessageBeep(Mb_Iconexclamation);
if MessageDlg('Текст в файле Новый был изменён. Сохранить изменения?',
mtWarning, [mbOk,mbCancel,mbNo],0)= mrCancel then
exit else
if MessageDlg('Текст в файле Новый был изменён. Сохранить изменения?',
mtWarning, [mbOk,mbCancel,mbNo],0)= mrNo then
OpenDialog1.Filter := 'Текстовые файлы (*.txt)|*.txt';
if OpenDialog1.Execute and
FileExists(OpenDialog1.FileName)
then
Memo1.Lines.LoadFromFile(OpenDialog1.FileName)else
if MessageDlg('Текст в файле Новый был изменён. Сохранить изменения?',
mtWarning, [mbOk,mbCancel,mbNo],0)= mrOk then
SaveDialog1.Filter := 'Текстовые файлы (*.txt)|*.txt';
if SaveDialog1.Execute
then
Memo1.Lines.SaveToFile
(SaveDialog1.FileName + '.txt')
end else
if Memo1.Modified = false then
OpenDialog1.Filter := 'Текстовые файлы (*.txt)|*.txt';
if OpenDialog1.Execute and
FileExists(OpenDialog1.FileName)
then
Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
Memo1.Modified:= false;
end;

@!!ex (2010-02-21 18:13:00) [16]
> [20] Human © (21.02.10 17:21)

Открыть:
FFileName = OpenDialog.FileName;

Сохраненить:
SaveToFile(FFileName);

Сохранить как:
FFileName = SaveDialog.FileName;
SaveToFile(FFileName);

Loginov Dmitry (2010-02-21 18:11:00) [17]

> открытый файл, или сохранённый ранее

"открытый файл" - он и есть "сохраненный ранее".
В общем не до конца ясно, что именно должна делать эта кнопка.

Palladin (2010-02-21 17:57:00) [18]
Запомнить имя файла.

Human (2010-02-21 17:21:00) [19]
@!!ex, я решаю такую задачу: в блокноте для кнопки сохранить есть два варианта - или она сохраняет в уже открытый файл, или сохранённый ранее. Как дать понять программе куда сохранять внесённые изменения?

Anatoly Podgoretsky (2010-02-21 16:31:00) [20]
> Human (21.02.2010 16:11:17) [17]

В Демос

Страницы: 1 2 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »