|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
01.03.2015, 17:19 | #1 |
Пользователь
Регистрация: 23.04.2013
Сообщений: 76
|
Экранная форма
ДЕлфи. Помогите пожалуйста создать программу поддерживающую работу с экранной формой, на которой размещены 2 кнопки: «Пуск», «Выход». При нажатии кнопки «Пуск» должно происходить следующее: открытие файла PRIMER1.DAT с проверкой доступности файла и соответствующими диагностическими сообщениями, считывание из него 3-х чисел: сумма вклада, процентная ставка и срок в месяцах, на который размещается вклад, занесение их в ячейки памяти, обозначенные, соответственно, VKLAD, PROZENT, SROK,
отображение введенных чисел на форме с сопровождающими текстами, например, «Сумма вклада = 2400». Содержание файла PRIMER1.DAT 35000 5.23 6 Последний раз редактировалось Xo6ut; 01.03.2015 в 17:38. |
01.03.2015, 18:30 | #2 |
Пользователь
Регистрация: 23.04.2013
Сообщений: 76
|
Поможет кто?
|
01.03.2015, 19:27 | #3 |
Пользователь
Регистрация: 23.04.2013
Сообщений: 76
|
Напишите хотя бы пожалуйста код для кнопки, которая будет открывать файл и выводить диагностические сообщения
|
01.03.2015, 19:36 | #4 |
Старожил
Регистрация: 12.11.2010
Сообщений: 8,568
|
Проверить доступность файла?
Знаю функцию только fileExists(ИМЯ_ФАЙЛА), которая проверяем существование файла. Однако, могут быть и другие причины, по которым файл нельзя будет прочитать, например, нет прав. В этом случае, я бы применил отлов исключительных ситуаций и вывод обобщённого диагностического сообщения, если она возникла. |
01.03.2015, 19:59 | #5 |
Пользователь
Регистрация: 23.04.2013
Сообщений: 76
|
Доступность касаемая существования, права проверять не нужно
|
01.03.2015, 20:06 | #6 | |
Старожил
Регистрация: 12.11.2010
Сообщений: 8,568
|
Цитата:
Код:
Последний раз редактировалось Вадим Мошев; 01.03.2015 в 21:56. |
|
01.03.2015, 21:08 | #7 |
Пользователь
Регистрация: 23.04.2013
Сообщений: 76
|
procedure TForm2.PUSK(Sender: TObject);
var f:textfile; begin assignfile(f,'c:\primer1.txt'); if not fileExists(f) then showmessage('файла нет'); end; end. И пишет E2010 Incompatible types: 'string' and 'Text' ссылаясь на if not fileExists(f) then |
01.03.2015, 21:10 | #8 |
Старожил
Регистрация: 17.11.2010
Сообщений: 18,922
|
Delphi syntax:
function FileExists(const FileName: string): Boolean;
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
|
01.03.2015, 21:51 | #9 |
Пользователь
Регистрация: 23.04.2013
Сообщений: 76
|
Решил пока без проверки на доступность сделать.
procedure TForm2.PUSK(Sender: TObject); var s:string ; begin assignfile(f,'c:\primer1.txt'); reset(f); read(f,s); edit1.Text:=s; end; end. Почему при запуске программы, компонента Tedit , из указанных размеров становится просто строкой, я её увеличиваю на всю форму, а она опять уменьшается |
01.03.2015, 21:54 | #10 |
Пользователь
Регистрация: 23.04.2013
Сообщений: 76
|
И почему у меня появляется только 1ая строка на экране из файла?
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Экранная лупа | SaNeKBF | C# (си шарп) | 5 | 05.05.2011 19:34 |
Компонент экранная клавиатура | MikeSam | Компоненты Delphi | 1 | 02.05.2011 19:18 |
экранная клавиатура | mobilitialex | Общие вопросы Delphi | 1 | 10.03.2011 17:19 |
Экранная клавиатура | Кристинка89 | Общие вопросы Delphi | 7 | 02.03.2011 23:45 |
Экранная клавиатура | aesoem | Софт | 9 | 13.03.2009 10:59 |