Delphi для начинающих

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Delphi Сохранение в ini файл настройки https://www.cyberforum.ru/ delphi-beginners/ thread620025.html Создаю форму 2 на неё кидаю чекбоксы допустим чек бокс 1 если стоит то форма прозрачная если не стоит то форма не прозрачная. Помогите разобраться что куда вписать чтоб сохранял в файл и читал при открытии формы из ini файла главное прозрачность формы F := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'window.ini'); Edit1.Text := F.ReadString('tools', 'edit1', 'no text'); Edit2.Text...	Delphi Как запущенной программе проверить своё имя? Создал прогу. Хочу её бесплатно распространять. Но за собой хочу оставить привилегий, чтобы имя проги невозможно было бы изменить. Поэтому требуется следующее. Когда прога запускается (состоит из одного exe файла), она проверяет своё название (в текущей папке) и если название другое то: 1 - если такое возможно, то переименовывает себя или хотя бы 2 - просто ругается (выдаёт сообщение) и...
Delphi вычислить значение функции и построить график! https://www.cyberforum.ru/ delphi-beginners/ thread619973.html Здравствуйте!!! Помогите пожалуйста в решении такой задачи: Мне дана формула, где нужно ввести требуемые данные, вычислить значение. и построить график зависимости значения функции от массы. Прикрепляю скрин с моей формой, и формулой по которой нужно вычислить. помогите мне код написать хотя бы, а то вообще ничего не работает(( Заранее большое спасибо!!	Delphi Список: удалить повторяющиеся элементы и создать уникальный список Здравствуйте,подскажите,пожалуйста,я написал программу для работы со списками,где нужно удалить повторяющиеся элементы и создать уникальный список, но нужно программу модифицировать так,чтобы ноль тоже можно было вводить и он не был окончанием списка. Подскажите пожалуйста как это сделать. Вот код проги: program Project2; {$APPTYPE CONSOLE} uses SysUtils; {Описание элемента списка}... https://www.cyberforum.ru/ delphi-beginners/ thread619972.html
Delphi Разделить образы Нужно алгоритм разделения искаженных цифр на картинке для анализа в нейросетке .	Delphi Найти три таких целых числа https://www.cyberforum.ru/ delphi-beginners/ thread619945.html Помогите решить вот такую задачку на делфи: Найти три таких целых числа a, b и c в диапазоне от 0 до 20, для которых справедливо равенство Пифагора a^2+b^2 = c^2
Delphi Рисование и запоминание текущего положения https://www.cyberforum.ru/ delphi-beginners/ thread619927.html Написал открытие изобр из файла на image, после чего написал процедуру обработки на клавишу, но когда жму на произв точку изобр, получается так, что окр. рисуется где то левее и выше, чем мне надо, проверял на то, насколько коорд 0, 0 соответствуют тому, где они должны быть, все ок? подскажите где косяк может быть? procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; ...	Найти три целых числа в диапазоне Delphi Помогите написать 2 задачи для делфи: Найти три таких целых числа a, b и c в диапазоне от 0 до 20, для которых справедливо равенство Пифагора a^2+b^2 = c^2
Delphi Получение адреса объекта внутри класса https://www.cyberforum.ru/ delphi-beginners/ thread619865.html Всем привет. Возникла у меня проблема, связанная с тем, что я не могу получить адрес экземпляра класса в методе самого этого класса. Использую Self - не получается. Например есть класс: type PTest=^TTest; TTest=class ParentP:PTest; constructor Create; end;	Delphi Переименование файла https://www.cyberforum.ru/ delphi-beginners/ thread619863.html Здравствуйте,пишу программу которая переименовывает файлы есть два едита в один мы вводим первоначальный адресс папки ,а во второй уже с новым именем. Вот код который я написал: procedure TForm1.Button1Click(Sender: TObject); var put:string; sum:string; begin put:=edit1.text; sum:=edit2.Text;
Delphi Вычислить площадь арки косинусоиды Помогите написать задачи для делфи: Вычислить приближенную площадь одной арки косинусоиды, разделив отрезок от –π/2 до π/2 на 10 частей и суммируя площади десяти прямоугольников с основанием π/10 и высотой, равной значе- нию функции на правой границе каждого интервала.	Delphi Горячая клавиша сворачивание в трей Здраствуйте по нажатию insert сворачивается форма только сворачивается она не всегда на таймере висит код if GetAsyncKeyState (45)<>0 then CoolTrayIcon1.HideMainForm; if GetAsyncKeyState (45)<>0 then CoolTrayIcon1.ShowMainForm; в чем ошибка? раза с 20 только сворачивается( https://www.cyberforum.ru/ delphi-beginners/ thread619776.html

vladis222

0 / 0 / 0

Регистрация: 05.12.2011

Сообщений: 78

Обработка ошибки - Delphi - Ответ 3243270

06.07.2012, 13:37. Показов 954. Ответов 1

Метки (Все метки)

Author24 — интернет-сервис помощи студентам

Здравствуйте,подскажите,пожалуйста,как обработать ошибку:при вводе заданной точности я ввожу символьное значение и программа прерывается. Подскажите пожалуйста как мне в программе обработать эту ошибку. Вот код проги:

Delphi

program recursy;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,
  Math;
 
var
  x:double;
  eps:double;
function ln2(Var x,eps:double;k:integer): Extended;{Функция для вычисления логарифма}
 var S: Extended;
begin
  if Power(x*k,k)<>0 then
  S:=(1/(k*(power(x,k)))){Формула вычисления логарифма}
  else S:=0;
  if abs(S)>eps then
  begin
    writeln(S:2:8);
    ln2:=S + ln2(x,eps,k+1);{Накапливание суммы в переменную result}
 
  end
  else ln2:=0;
 
end;
begin
writeln('Vvedite eps : ');
readln (eps);
writeln('Vvedite x : ');
readln (x);
writeln('ln(x/(x-1)) = ', ln2(x,eps,1):4:6);   {Пример работы программы}
writeln('Math function ln : ');
writeln((ln(x/(x-1))));
Readln;
end.

Вернуться к обсуждению:
Обработка ошибки Delphi

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

06.07.2012, 13:37

Готовые ответы и решения:

Обработка ошибки
Здравствуйте. Написал примитивную программу для рассчета площади круга. Проблема заключается в том,...

Обработка исключительной ошибки делфи
У меня есть форма на которой я ввожу в edit имя таблицы и она должна создаться в БД, но если есть...

Обработка ошибки чтения файла
Доброго времени суток. Имею необходимость считать информацию из файла Excell, обработать её и...

Обработка ошибки подключения к базе данных Access
Доброго времени суток. В своей программе подключаюсь к базе данных Access через компонент...

	06.07.2012, 13:37

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

06.07.2012, 13:37

Помогаю со студенческими работами здесь

Обработка ошибки в Клиент - Серверном приложении
Доброго времени суток. Писал чат на сокетах. Есть приложение Сервер и приложение Клиент. Клиент...

При повторном появлении ошибки обработка ошибки не срабатывает
Логика: - Пользователь. Нажимает кнопку; - Код . Создаёт "Recordset" "rstStud"(студенты) и...

Обработка ошибки
добавляю данные в таблицу: Form1->ADOTable1->Insert(); Form5->ADOTable1->Insert();...

Обработка ошибки
Выскакивает ошибка при прохождении одного из тестов: private readonly double array = { 1, 2, 3, 4...

Наверх