Checkout your developer console.
10 |
5 | procedure TForm1.TFChange(Sender: TObject);
6 | begin
7 | if DontChange then
8 | begin
9 | DontChange := False;
10 | if trystrtoint(TF.Text, i) then
11 | TC.Text := IntToStr(trunc((i - 32) * (5 / 9)));
12 | DontChange := True;
13 | end;
14 | end;
15 |
16 | procedure TForm1.TCChange(Sender: TObject);
17 | begin
18 | if DontChange then
19 | begin
20 | DontChange := False;
21 | if trystrtoint(TC.Text, i) then
22 | TF.Text := IntToStr(trunc(i * (9 / 5) + 32));
23 | DontChange := True;
24 | end;
25 | end;
26 |
27 |
28 | In Lazarus/codetyphon open temperature.lpi
29 |
--------------------------------------------------------------------------------
/Java8-JavaFX/.idea/compiler.xml:
--------------------------------------------------------------------------------
1 |
2 |