Не пойму почему код работает :)

← →
isasa © (2007-01-04 10:28) [40]

KSergey © (04.01.07 09:52) [37]

Я что-то никак не пойму о чем тут говорят...
В исходном вопросе все работает, очевидно, потому, что метод EvaluateDiscriminant класса TEquation не обращается к полям этого класса.

Ну вот, все испортил. :)
Ну а если сдвинув брови вещать, то

... не обращается к полям объекта этого класса ...

← →
Контра (2007-01-04 10:53) [41]

... не обращается к полям объекта этого класса ...

...полям данных экземпляра класса...

← →
Kolan © (2007-01-04 11:22) [42]

> [37] KSergey © (04.01.07 09:52)

О наконец я понял. :)

← →
$Pl@Sh © (2007-01-04 12:57) [43]

Обычно задают вопросы типа "почему не работает", ИМХО на них отвечать проще :-)

← →
Anatoly Podgoretsky © (2007-01-04 18:04) [44]

> $Pl@Sh (04.01.2007 12:57:43) [43]

> Обычно задают вопросы типа "почему не работает", ИМХО на них отвечать проще :-)

С какой стати.

← →
isasa © (2007-01-04 18:38) [45]

Контра (04.01.07 10:53) [41]

В паре object/instance -> объект/образец, мне больше объект нравится.
А вы каким переводчиком пользуетесь? :)

← →
$Pl@Sh © (2007-01-04 20:40) [46]

> Anatoly Podgoretsky © (04.01.07 18:04) [44]

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

var i : integer; begin i := strtoint(edit1.text); end;

почему работает????

← →
Anatoly Podgoretsky © (2007-01-04 21:47) [47]

> $Pl@Sh (04.01.2007 20:40:46) [46]

Это не рабочий код

← →
$Pl@Sh © (2007-01-04 21:59) [48]

> Anatoly Podgoretsky © (04.01.07 21:47) [47]

Это часть рабочего кода

← →
Anatoly Podgoretsky © (2007-01-04 22:11) [49]

> $Pl@Sh (04.01.2007 21:59:48) [48]

Тогда зачем приводишь незначимую часть

← →
$Pl@Sh © (2007-01-04 22:13) [50]

> Anatoly Podgoretsky © (04.01.07 22:11) [49]

Ну вот весь код:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var i : integer; begin i := strtoint(edit1.text); end; end.

Почем уработает?

← →
Sergey Masloff (2007-01-04 22:31) [51]

$Pl@Sh © (04.01.07 22:13) [50]
Edit1.Text ;= "Бла-бла"

Все еще работает?
А компилятор ничего не говорит насчет того что присвоенное значение нигде не используется?

> Все еще работает?
> А компилятор ничего не говорит насчет того что присвоенное
> значение нигде не используется?

Говорит, но работает же...

$Pl@Sh © (04.01.07 22:32) [52]
Говорит, но работает же...

Разное поведение кода на разніх машинах на набор значений
"1,25" и "1.25"

Сорри пропетрил strtoint ... :)

Не пойму почему код работает :) Найти похожие ветки