21 Відповідь від A.N.Onim Востаннє редагувалося A.N.Onim (20.02.2014 20:12:19)

  • A.N.Onim
  • A.N.Onim
  • Користувач
  • Поза форумом
  • Дата реєстрації: 18.01.2013
  • Повідомлень: 287
    • Репутація: 25

Re: Пишу калькулятор у Delphi

Помилки.

Post's attachments

Errors.txt 958 b, 579 downloads since 2014-02-20 

22 Відповідь від Chemist-i

  • Chemist-i
  • Chemist-i
  • Replace Team
  • Поза форумом
  • Звідки: world wide web
  • Дата реєстрації: 31.10.2012
  • Повідомлень: 3 802
    • Репутація: 2394

Re: Пишу калькулятор у Delphi

Занесіть оту процедуру в секцію privat або public

  private
    { Private declarations }
    procedure Obchislennia(var deistvie:byte; kilk:integer; rez: real; act_chislo:real);
  public

та спробуйте відкомпілити

Chemist-i вебсайт

23 Відповідь від A.N.Onim Востаннє редагувалося A.N.Onim (20.02.2014 20:29:08)

  • A.N.Onim
  • A.N.Onim
  • Користувач
  • Поза форумом
  • Дата реєстрації: 18.01.2013
  • Повідомлень: 287
    • Репутація: 25

Re: Пишу калькулятор у Delphi

[img]http://f6.s.домен агресора/~18qb6A17.png[/img]

24 Відповідь від Chemist-i Востаннє редагувалося Chemist-i (20.02.2014 20:36:48)

  • Chemist-i
  • Chemist-i
  • Replace Team
  • Поза форумом
  • Звідки: world wide web
  • Дата реєстрації: 31.10.2012
  • Повідомлень: 3 802
    • Репутація: 2394

Re: Пишу калькулятор у Delphi

Ой, соррі, TForm1, це ж ім_я классу а не змінна

  private
    { Private declarations }
    procedure Obchislennia(var deistvie:byte; kilk:integer; rez: real; act_chislo:real);
...
procedure TForm1.Obchislennia(var deistvie:byte; kilk:integer; rez: real; act_chislo:real);
begin
  case deistvie of
    1:
...
Подякували: A.N.Onim1

Chemist-i вебсайт

25 Відповідь від A.N.Onim

  • A.N.Onim
  • A.N.Onim
  • Користувач
  • Поза форумом
  • Дата реєстрації: 18.01.2013
  • Повідомлень: 287
    • Репутація: 25

Re: Пишу калькулятор у Delphi

Дякую. Компіляція пройшла успішно.