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

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

Войти

Другие темы раздела
Получение адреса объекта внутри класса Delphi Всем привет. Возникла у меня проблема, связанная с тем, что я не могу получить адрес экземпляра класса в методе самого этого класса. Использую Self - не получается. Например есть класс: type ... Если я не ошибаюсь, до очистки указатель z будет указывать на объект, и этот объект можно будет использовать вне этой процедуры. Хотелось бы теперь этот адрес присвоить указателю типа PTest (см....	Delphi Найти три целых числа в диапазоне https://www.cyberforum.ru/ delphi-beginners/ thread619891.html Помогите написать 2 задачи для делфи: Найти три таких целых числа a, b и c в диапазоне от 0 до 20, для которых справедливо равенство Пифагора a^2+b^2 = c^2 Result:='3, 4, 5' А если по правилам: type TNombers=record a,b,c:integer; end; function IsPiphagor(a,b,c):boolean; begin Result:=aa+bb=c*c
Delphi Вычислить площадь арки косинусоиды Помогите написать задачи для делфи: Вычислить приближенную площадь одной арки косинусоиды, разделив отрезок от –π/2 до π/2 на 10 частей и суммируя площади десяти прямоугольников с... Дельфи я написал для тебя задачу. Ответ ниже. Прочти про циклы для решения, если лень то скопируй текст в фаил с директорией программы перетащи с вкладочки стандарт левой кнопочкой мыши значечек с... https://www.cyberforum.ru/ delphi-beginners/ thread619858.html	Найти три таких целых числа Delphi Помогите решить вот такую задачку на делфи: Найти три таких целых числа a, b и c в диапазоне от 0 до 20, для которых справедливо равенство Пифагора a^2+b^2 = c^2 var a, b, c : Integer; begin Memo1.Text := 'Перечень решений:'; for a := 0 to 20 do for b := 0 to 20 do for c := 0 to 20 do if aa + bb = c*c then Memo1.Lines.Add('a = '...
вычислить значение функции и построить график! Delphi Здравствуйте!!! Помогите пожалуйста в решении такой задачи: Мне дана формула, где нужно ввести требуемые данные, вычислить значение. и построить график зависимости значения функции от массы. ... Не понятно для чего на форме ввод времени, его даже нет в формуле. Судя по заданию нужно ввести интервал масс, например от 0 до 100, параметры a,b и построить график по приведенной формуле. ...	Delphi Рисование и запоминание текущего положения https://www.cyberforum.ru/ delphi-beginners/ thread619927.html Написал открытие изобр из файла на image, после чего написал процедуру обработки на клавишу, но когда жму на произв точку изобр, получается так, что окр. рисуется где то левее и выше, чем мне надо,... Возможно у Вас что-то с переменными не так, это же не вся программа? Вот такой же код и все работает правильно. {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin with Image1.Canvas...
Delphi Переименование файла https://www.cyberforum.ru/ delphi-beginners/ thread619863.html Здравствуйте,пишу программу которая переименовывает файлы есть два едита в один мы вводим первоначальный адресс папки ,а во второй уже с новым именем. Вот код который я написал: procedure... Delphi функция RenameFile переименовывает файл или папку и возвращает True если операция переименования прошла успешно. Если имя файла или имя папки дано без указания пути, то файл должен быть в...	Delphi Разделить образы https://www.cyberforum.ru/ delphi-beginners/ thread619946.html Нужно алгоритм разделения искаженных цифр на картинке для анализа в нейросетке . посмотри может это наталкнет на какие-то мысли https://www.cyberforum.ru/blogs/140240/blog48.html
Delphi Сохранение в ini файл настройки Создаю форму 2 на неё кидаю чекбоксы допустим чек бокс 1 если стоит то форма прозрачная если не стоит то форма не прозрачная. Помогите разобраться что куда вписать чтоб сохранял в файл и читал при... unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, IniFiles, StdCtrls, ExtCtrls; type TForm1 = class(TForm) https://www.cyberforum.ru/ delphi-beginners/ thread620025.html	Delphi Горячая клавиша сворачивание в трей Здраствуйте по нажатию insert сворачивается форма только сворачивается она не всегда на таймере висит код if GetAsyncKeyState (45)<>0 then CoolTrayIcon1.HideMainForm; if GetAsyncKeyState (45)<>0... Нужно написать это на событие FormKeyDown https://www.cyberforum.ru/ delphi-beginners/ thread619776.html
Delphi Как запущенной программе проверить своё имя? https://www.cyberforum.ru/ delphi-beginners/ thread620006.html Создал прогу. Хочу её бесплатно распространять. Но за собой хочу оставить привилегий, чтобы имя проги невозможно было бы изменить. Поэтому требуется следующее. Когда прога запускается (состоит из... Интересно мне, как ты названия изменишь не имея исходный код? Я как-то не видел таких супердекомпиляторов на delphi, чтобы прямо весь исходный код вынуть, вместе с компонентами, классами, формами, а...	Delphi Список: удалить повторяющиеся элементы и создать уникальный список Здравствуйте,подскажите,пожалуйста,я написал программу для работы со списками,где нужно удалить повторяющиеся элементы и создать уникальный список, но нужно программу модифицировать так,чтобы ноль... В 88-ой строке заменить ноль на что-нибудь другое, и это другое станет кодом окончания списка. Ещё можно так (заменить на это строки 81 — 100):var c: Integer; Head, Uniq: PList; endc:char;... https://www.cyberforum.ru/ delphi-beginners/ thread619972.html

vladis222

0 / 0 / 0

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

Сообщений: 78

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

06.07.2012, 13:37. Показов 959. Ответов 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
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

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

cpp_developer

Эксперт

20123 / 5690 / 1417

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

Сообщений: 22,546

Блог

06.07.2012, 13:37

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

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

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

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

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

raxper

Эксперт

30234 / 6612 / 1498

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

Сообщений: 21,154

Блог

06.07.2012, 13:37

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

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

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

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

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

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

Новые блоги и статьи Все статьи Все блоги /
Исследование байт-кода Python: подключаем дизассемблер stackOverflow 19.02.2025 Многие знают, что Python - интерпретируемый язык, но мало кто задумывается о том, что происходит между написанием кода и его выполнением. На самом деле Python использует промежуточное представление. . .	Исследование байт-кода Python: компиляторы против интерпретаторов stackOverflow 19.02.2025 Понимание байт-кода Python - основополагающий аспект для разработчиков, стремящихся глубже понять внутренние механизмы языка и оптимизировать производительность своих программ. Байт-код представляет. . .	Comprehensions в Python - что это такое? stackOverflow 19.02.2025 Когда речь заходит о Python, одной из его самых красивых и мощных возможностей являются списковые включения или comprehensions. Это особые синтаксические конструкции, позволяющие создавать новые. . .	Python правда такой медленный? Развенчиваем миф о медлительности stackOverflow 19.02.2025 Когда речь заходит о выборе языка программирования для нового проекта, вопрос производительности часто становится одним из ключевых факторов. Python, несмотря на свою популярность и простоту. . .	Динамические формы в Flask stackOverflow 19.02.2025 Работа с веб-формами часто требует гибкости в отношении количества полей, которые пользователь может заполнить. Представьте ситуацию, когда вам нужно создать форму для ввода контактных данных, где у. . .
Обнаружение объектов в реальном времени на Raspberry Pi с OpenCV и Movidius NCS stackOverflow 19.02.2025 Технология обнаружения объектов в реальном времени становится все более востребованной в различных областях - от систем безопасности до автономных транспортных средств. Особый интерес представляет. . .	где chromium хранит пароли и как их обнулить в пожарном варианте jigi33 19.02.2025 Where is the chromium browser stores passwords for a sites где chromium-подобный браузер хранит пароли и как их обнулить в пожарном варианте (see screenshot)	howto get access to external internet resources with kinit jigi33 19.02.2025 Решение проблемы с необходимостью доп. авторизации по Керберос для автоотработки аутентификации на прокси-сервер (see screenshot)	Отслеживание автомобилей и определение скорости с OpenCV и Python на Raspberry Pi stackOverflow 19.02.2025 В этой статье мы рассмотрим создание системы отслеживания транспортных средств и определения их скорости с использованием компьютерного зрения и библиотеки OpenCV. Наше решение основано на принципе. . .	ENV (environments) valid paths in linux jigi33 19.02.2025 Environments paths (see screenshot)

Наверх