|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
30.09.2010, 07:34 | #1 |
Пользователь
Регистрация: 04.03.2010
Сообщений: 25
|
delphi избежать повторение кода из-за одного оператора
Здравствуйте, я Вам уже писала про эту программу, спасибо всем кто мне помог. Но написание курсового отложилось на определенное время и я снова хочу вернуться к нему
Программа написание текстового редактора на Delphi. Вопрос в следующем: Я написала код для пунктов "Сохранить", "Сохранить как" и "Создать". Все работает, но есть одно НО. При сохранении в заголовке текстового редактора появляется имя файла, которое я сохраняю. При написании пункта "Создать" я написала следующий код: Код:
Код:
Но хочется не усложнять код, а как сделать по другому сама не могу додуматься, помогите студентке А вот код процедуры SaveAs1Click (в Save1Click идет повторение): Код:
|
30.09.2010, 09:48 | #2 |
Меркантильный кю
Участник клуба
Регистрация: 02.02.2008
Сообщений: 1,001
|
А почему бы точно так же не прописать новый заголовок в функции создания нового документа?
Код:
Код:
пишите Код:
И вот эта проверка Код:
Росли вроде умными, выросли дурнями... (c)А.Васильев
|
30.09.2010, 10:10 | #3 |
Пользователь
Регистрация: 04.03.2010
Сообщений: 25
|
спасибо, попытаюсь сделать))) Последний раз редактировалось heny; 30.09.2010 в 10:18. |
05.10.2010, 11:48 | #4 | |
Пользователь
Регистрация: 04.03.2010
Сообщений: 25
|
Цитата:
Вот я понимаю как сделать сохранить Код:
Последний раз редактировалось heny; 05.10.2010 в 11:50. |
|
05.10.2010, 20:55 | #5 |
Меркантильный кю
Участник клуба
Регистрация: 02.02.2008
Сообщений: 1,001
|
У Вас же есть переменная FName, которая хранит имя текущего файла. Чистите её, когда создаёте новый документ, и если больше нигде багов нет, то всё должно быть ок. А вообще лучше покажите код с процедурами Save и SaveAs, а то уже непонятно что там происходит
Росли вроде умными, выросли дурнями... (c)А.Васильев
|
06.10.2010, 06:08 | #6 |
Пользователь
Регистрация: 04.03.2010
Сообщений: 25
|
Точно! Все гениальное просто. Иногда долго думаешь над чем-то долго придолго и мозг отказывается понимать простые вещи, хотя ведь до этого я так делала уже
Процедура save: Код:
Код:
Код:
Если делаешь изменения в уже сохраненном документа (FName > ''), то он открывает окно Execute, хотя должен просто сохранять. Я так понимаю, что проблема вот в этом фрагменте, но я как всегда не могу понять в чем, на мой взгляд все должно работать: Код:
Речь идет о пункте "Открыть". Я прекрасно понимаю, что он должен быть подобен компоненту SaveDialog. Пишу следующий код: Код:
FName:=OpenDialog1.FileName; но если ее убрать, то в заголовке окна не видно, имя открытого документа вся я измаялась Последний раз редактировалось heny; 06.10.2010 в 09:52. |
07.10.2010, 03:33 | #7 |
Меркантильный кю
Участник клуба
Регистрация: 02.02.2008
Сообщений: 1,001
|
Для начала в Save1Click здесь
Код:
Если будет глючить дальше, сделайте трассировку. Выделяете эту строчку Код:
Росли вроде умными, выросли дурнями... (c)А.Васильев
|
07.10.2010, 10:56 | #8 |
Участник клуба
Регистрация: 29.12.2009
Сообщений: 1,166
|
когда-то давным давно писал текстовый редактор на VB .Net (эх, были времена...), вот часть исходников
Код:
прогер C\C++\C#\Delphi
ася: [семь 3]-[97]-[1 шесть] |
08.10.2010, 06:58 | #9 |
Пользователь
Регистрация: 04.03.2010
Сообщений: 25
|
а чем можно заменить RichEdit1.Lines.SaveToFile(SaveDial og1.FileName);, похоже в этом и проблема
Последний раз редактировалось heny; 08.10.2010 в 09:12. |
10.10.2010, 02:32 | #10 |
Меркантильный кю
Участник клуба
Регистрация: 02.02.2008
Сообщений: 1,001
|
Заменить это особо нечем. Кстати, насколько я помню, может получиться так, что имя файла будет без расширения, тогда надо дополнительно приписывать его в зависимости от SaveDialog1.FilterIndex
Росли вроде умными, выросли дурнями... (c)А.Васильев
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Повторение | CraftR14 | Общие вопросы Delphi | 8 | 17.04.2010 20:15 |
Как избежать повторение одного и того же номера дважды | CockPuncher | Microsoft Office Excel | 6 | 03.09.2009 09:53 |
использование условного оператора в теле оператора цикла с условием | машко | Помощь студентам | 2 | 21.06.2009 23:55 |
delphi синтаксический контроль заданного оператора | lusuj | Помощь студентам | 1 | 10.12.2008 22:42 |