Форум программистов, компьютерный форум, киберфорум
Delphi
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.50/6: Рейтинг темы: голосов - 6, средняя оценка - 4.50
6 / 6 / 2
Регистрация: 11.04.2009
Сообщений: 122
1

Как лечить код

17.03.2010, 16:57. Показов 1234. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Вчера последний раз компилировал исходник своей проги,сегодня открыл и у меня код превратился в следуйщее.Как вернуть обратно в исходный код каторый был.
Самое что интерестное что исходник компилируется.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
procedure TForm1.BitBtn1Click(Sender: TObject);
var
s,settings,adres,fileName:string;
begin
//Считываем параметры из файла settings.xml и записываем их в него
settings:=GetSpecialPath(26)+'\ETach\settings.xml';
s:=copy(Combobox1.text,1,pos(':',Combobox1.text)-1[Language]
msg1=Файл отчета программы установки
msg2=Удаление программы "%s"
msg3=Невозможно открыть файл INSTALL.LOG
msg4=Файл INSTALL.LOG испорчен
msg5=Выберите файлы программы для удаления
msg6=Следующие файлы могут быть удалены с Вашего диска. Выберите файлы, которые Вы хотите удалить, или нажмите кнопку "Выбрать Все" для удаления всех файлов.
msg7=Добро пожаловать в программу для удаления "%s"!
msg8=Выберите системные файлы для удаления
msg9=Следующие файлы были скопированы в Ваш Windows/System каталог при установке программы. Будьте внимательны при удалении этих файлов, они могут использоваться другими программами.
msg10=Выберите способ удаления: "Полный" - все элементы программы будут удалены автоматически.|"Выборочный" - элементы программы будут удалены по Вашему желанию.|Нажмите "Далее" для продолжения.
msg11=Выберите каталоги для удаления.
msg12=Следующие каталоги были созданы программой установки. Выберите каталог, который будет удален.
msg13=Вся информация, необходимая для удаления программы "%s" с Вашего компьютера, получена.
msg14=Выберите INI файлы для удаления
msg15=Следующие INI файлы были созданы программой установки. Выберите INI файлы, которые Вы хотите удалить.
msg16=Выберите метод удаления
msg17=Выберите элементы INI файла для редактирования
msg18=Следующие элементы INI файла были изменены программой установки. Выберите элементы INI файла, которые Вы хотите восстановить. 
msg19=Процесс удаления
msg20=Выбор элементов системного реестра для удаления
msg21=Следующие элементы системного реестра были созданы программой установки. Выберите элементы, которые Вы хотите удалить.
msg22=Нажмите кнопку "Готово" для продолжения, кнопку "Назад" для изменения каких-либо установок, или кнопку "Отмена" для выхода из программы удаления.
msg23=Выбор элемента системного реестра для редактирования
msg24=Следующие элементы системного реестра были изменены во время установки. Выберите элементы, которые Вы хотите восстановить.
msg25=Удаление
msg26=Выберите иконки для удаления.
msg27=Следующие иконки были добавлены при установке программы. Выберите иконки, которые Вы хотите удалить.
msg28="Interbase" сервер должен быть остановлен до того, как BDE будет удалено. Пожалуйста выключите "interbase" сервер и нажмите кнопку "Повтор".
msg29=Удаляется файл:|
msg30=Удаляется системный файл:|
msg31=Удаляется каталог:|
msg32=Удаляется пустой каталог:|
msg33=Удаляется INI файл:|
msg34=Редактируется INI файл:|
msg35=Удаляется элемент системного реестра:|
msg36=Редактируется элемент системного реестра:|
msg37=Удаляется иконка:|
msg38=Система установила, что в данный момент следующие файлы не используются другими программами и могут быть удалены. Если каким-либо программам для работы необходимы удаленные Вами Файлы, то эти программы не смогут нормально функционировать.
msg39=Удаление этого файла не повлияет на работу системы. Если Вы не уверены в своих действиях, нажмите кнопку "Нет для Всех". Вы действительно хотите удалить совместно используемые файлы.
msg40=Незарегистрированный файл:|
msg41=Следующие подсистемы были сконфигурированы при установке программы. ВЫберите подсистемы, которые Вы хотите удалить.
msg42=Выбор подсистем для удаления
msg43=Нажмите кнопку "Продолжить" для удаления выбранных подсистем.|Нажмите "Отмена" для прерывания программы удаления.
msg44=Удаление подсистемы:|
msg45=Удаление "%s"...||Нажмите кнопку "Закончить" для того, чтобы прервать процесс удаления и выйти из программы.
msg46=&Далее >
msg47=< &Назад
msg48=&Отмена
msg49=Выбрать &Все
msg50=&Отменить выбор
msg51=&Да
msg52=&Нет
msg53=Нет для &Всех
msg54=Выбор деревьев, содержащих элементы системного реестра, которые Вы хотите удалить.
msg55=Следующие деревья, содержащие элементы системного реестра, были добавлены при установке программы. Выберите элементы, которые Вы хотите удалить.
msg56=Удаление дерева каталогов, содержащих элементы системного реестра:|
msg57=Выполняется внешняя программа:|
msg58=Удаление сервиса:|
msg59=Вы уверены, что хотите прервать удаление программы?
msg60=&Полный
msg61=&Выборочный
msg62=Удаление совместно используемых компонентов
msg63=&Готово
msg64=Произвести "Откат"
msg65=Вы выбрали производить резервное копирование файлов, которые замещались при установке. Выбор "отката" вернет Ваш компьютер в состояние, в котором он находился перед последней инсталляцией востановлением резервных копий файлов.
msg66=Вы можете сделать "откат" только в том случае, если никакие другие программы не устанавливались после установки этой программы. Только последняя установка отменяется. Вы хотите произвести "отвкат"?
msg67=Эта программа была установлен
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.03.2010, 16:57
Ответы с готовыми решениями:

Как лечить рак?
Добрый день! У меня четвертая стадия рака матки. Есть ли на этом форуме кто-то с похожим диагнозом....

Ошибка 15. Как лечить?
При загрузке windows выдается следующие сообщение: Типа, загрузка граба, подождите, Граб не...

COM surrogate как лечить
Недавно начал сильно тупить комп, что то люто жрало оперативку и диск. В диспетчере маячил процесс...

Как лечить флешку?
флешка подхватила вирусы, теперь файлы превратились в ярлыки, как лечить флешку? помогите.

1
18 / 18 / 9
Регистрация: 07.10.2008
Сообщений: 89
18.03.2010, 08:30 2
Ну я так понял, что начиная с восьмой строки всё было безвозвратно удалено и заменено ключами из какого-то Ini файла? =)

Добавлено через 2 минуты
Delphi автоматически создает резервные копии файлов в той же папке, что и оригинал.

для Unit1.pas появится резервный Unit1.~pas. В нём и посмотри.
Просто открой ~pas отдельно и посмотри.

Учти, если сохранишься еще раз - содержимое ~pas будет потеряно.
0
18.03.2010, 08:30
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.03.2010, 08:30
Помогаю со студенческими работами здесь

Как лечить Error?
Во view есть колонка, отображает поле Division Так вот при открытии view ругается: Missing...

Как лечить нешта?
Отказываются запускаться некоторые ехе файлы, тупит система, помогите с лечением Касперский...

WebBrowser ругается на IE, как лечить
Компонент WebBrowser на форме и некоторые веб адреса просто ругается на то, что IE 6 очень устарел...

Как лечить win32/qhost?
При приверке Nod32 не находит ничего, но с каждым перезапуском уведомляет об угрозе win32/qhost....

Как лечить файловый вирус
На сегодняшний день нет абсолютных методик лечения файловых вирусов. 1) Скачайте на заведомо...

как лечить "испорченные" документы
иногда начали появлятся документы которые при наведении курсора на них в представлении вызывает...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru