Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Delphi считывание функции от двух переменных из edit Нада процедура с помощью которой можна распознать функцию от двух переменных(которая предварительно считивается из компонента edit),а затем присвоить ее какой-то функции F типа REAL..... https://www.cyberforum.ru/ delphi-beginners/ thread33380.html Массивы Delphi
Здравствуйте.У меня снова проблема. Я использую для расчета несколько массивов. Результаты вычисления записываю в массив. Потом мне нужно сделать новый расчет, обнуляю массивы, но почему-то...
Delphi Обращение из формы в dll к элементу главной формы https://www.cyberforum.ru/ delphi-beginners/ thread33355.html
Здравствуйте=) У меня такая задача: посчитать количество вхождений символа в МEMO. Это надо сделать через длл. Я создала длл, а в ней форма с кнопкой подсчета. Как обратиться из формы в длл к...
Delphi Комплексные числа Помогите плизз, сделать курсовую работу на Delphi на тему "Комплексные числа" Plizzzzzzz https://www.cyberforum.ru/ delphi-beginners/ thread33338.html
Как переделать задачку из Делфи в Паскаль? Delphi
unit main; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, Math, StdCtrls; type TForm1 = class(TForm)
Delphi Ini файл Доброго всем здоровья)) У меня возник вопрос, препод сказал, чтобы в программе я использовал ini файл для хранения констант и параметров...С самой работой с ini файлами я немного разобрался, а вот... https://www.cyberforum.ru/ delphi-beginners/ thread33306.html
Delphi Delete() У меня есть строка s ('45px'); Мне надо удалить приставку 'px', чтобы получилось '45'. Делал так: delete(s,length(s)-2,2); //получилось "4x" delete(s,length(s)-1,2); //получилось ""... https://www.cyberforum.ru/ delphi-beginners/ thread33292.html Работа с StringGrid Delphi
Необходимо при нажатии на любую ячейку в StringGrid1 выделялась строка, которая пинадлежит этой ячейки. Как это сделать? Хотя бы где найти полную информацию о StringGrid1
Delphi Хочу убрать программу из панели задач в трей https://www.cyberforum.ru/ delphi-beginners/ thread33287.html
Здравствуйте всем. Подскажите пожалуйста, как убрать программу из панели задач в трей, сразу при запуске программы, но чтобы само окошко небыло свернуто? Пробывал через FormActivate писать код: ...
Delphi Вещественные числа https://www.cyberforum.ru/ delphi-beginners/ thread33225.html
Записать дробное число в форматах Single и Double, а целое в формате Integer. 48,25 -63 Напишите, пожалуйста, саму схему перевода.
поиск маршрута. Задача на Delphi. Delphi
Задача следующая: Некая географическая карта местности задана квадратной сеткой определенного масштаба. В узлах сетки известна высота над уровнем моря. Между соседними узлами высота меняется плавно....
Delphi Запуск файла и эмулирование нажатия Enter https://www.cyberforum.ru/ delphi-beginners/ thread33209.html
Давно хотел сделать автозапуск инета,но тк выделенка приходится всевремя тыкать на вызов. Возможно ли запустить некий ярлык интернета и эмулировать нажатие в нем Enter'a? (ну вместо кнопки вызвать...
421 / 130 / 33
Регистрация: 24.02.2009
Сообщений: 1,122
10.05.2009, 12:12 0

Помощь в доработке калькулятора. - Delphi - Ответ 157953

10.05.2009, 12:12. Показов 1189. Ответов 5
Метки (Все метки)

Ответ

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
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
var chisla1,chisla2:real;
    c:boolean=false;
    operasiya:char;
    s:string;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  s:=Edit1.Text;
  case key of
  '0'..'9': begin
            if c then
                  begin
                    if (s='+')or (s='*') or(s='-') or(s='/') then Edit1.Text:='0';
                    chisla1:=StrToFloat(Edit1.text);
                  end
                  else
                   begin
                    chisla2:=StrToFloat(Edit1.text);
                   end;
            end;
  '+':begin Edit1.Text:=''; operasiya:='+';  c:=not c; end;
  '-':begin Edit1.Text:=''; operasiya:='-';  c:=not c; end;
  '*':begin Edit1.Text:=''; operasiya:='*';  c:=not c; end;
  '/':begin Edit1.Text:=''; operasiya:='/';  c:=not c; end;
  '=':case operasiya of
            '+':Edit1.Text:=Floattostr(chisla1+chisla2);
            '-':Edit1.Text:=Floattostr(chisla1+chisla2);
            '*':Edit1.Text:=Floattostr(chisla1+chisla2);
            '/':Edit1.Text:=Floattostr(chisla1+chisla2);
      end;
  end;
 
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Edit1.text:='0';
end;
 
end.


Вернуться к обсуждению:
Помощь в доработке калькулятора. Delphi
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.05.2009, 12:12
Готовые ответы и решения:

Помощь в доработке сортировки
Сортировка по 1-ому столбцу массива ss := StringGrid1.Cells; // Раздел 1.1 ss1 :=...

Помощь в доработке сортировки
Помогите отсортировать список в StringGride

Нужна помощь в написании калькулятора.
У меня приключилась беда,нужно написать обычный калькулятор с самыми стандартными функциями, но...

Посодействуйте в доработке
procedure TForm1.Button1Click(Sender: TObject); var a:array of integer; i,j,obr:integer; ...

5
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.05.2009, 12:12

Помощь в доработке кода
Здравствуйте. Начал учить C месяц назад. Выполняю упражнение из книги. В книге написано, что...

Нужна Помощь В Доработке Базы
Уважаемые участники форума, не мастер в программирование (админ), но руководство поставило задачу,...

Нужна помощь в доработке скрипта
Здравствуйте. Скачал тизерный скрипт, сейчас дорабатываю для себя и теперь возникла проблема,...

Помощь в доработке программы. привязка Excel-файла
Всем привет! такое дело, нужно привязать к проге excel файл, в котором хранится табличка с данными,...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru