Color
196) (Properties), Form1:
FormStyle
197) (Properties), Form1:
Height
198) (Properties), Form1 :
Position
199) (Properties), Form1:
Name
200) (Properties), Shape1 :
Align
201) (Properties), Shape1:
Style
202) (Properties), Shape1:
Color
203) (Properties), Shape1:
Height
204) (Properties), Shape1:
Name
205) (Properties), Shape1:
Brush
206) (Properties), , Shape1:
Pen
207) (Properties), Shape1:
Color
208) (Properties), Shape1:
Style
209) (Properties), Shape1:
Width
210) (Properties), Shape1:
Shape
211) (Properties), Shape1:
Top
212) (Properties), Shape1:
Left
213) (Properties), Shape1:
Visible
214) (Properties), Shape1:
Width
215) Shape :
stCircle
216) Shape :
stEllipse
217) Shape :
stRectangle
218) Shape :
stRoundRect
219) Shape :
stRoundSquare
220) Shape :
stSquare
221)
Form1->Caption=" ";?
222) Label1 " " ( ):
Label1->Caption=" ";
223) Label2 " $" ( ):
|
|
Label1->Caption=" $";
224) Edit1 "200" ( ):
Edit1->Text="200";
225) Edit2 "155" ( ):
Edit2->Text="155";
226) Edit3 "5,6" ( ):
Edit3->Text="5,6";
227) BitBtn "" ( ):
BitBtn->Caption="";
228) ?
IntToStr
229) ?
FloatToStr
230) ?
StrToFloat
231) ?
StrToInt
232) ?
Dollar = StrToFloat(Edit2->Text);
Kurs = StrToFloat(Edit3->Text);
Grivna = Dollar / Kurs;
Edit1->Text = FloatToStr(Grivna);
233) ?
Grivna = StrToFloat(Edit1->Text);
Kurs = StrToFloat(Edit3->Text);
Dollar = Grivna * Kurs;
Edit2->Text = FloatToStr(Dollar);
234) , :
Close();
235) Grivna Edit1 ( ):
Grivna=StrToFloat(Edit1->Text);
236) Dollar Edit2 ( ):
Dollar = StrToFloat(Edit2->Text);
237) Dollar Edit2 ( ):
Edit2->Text = FloatToStr(Dollar);
238) Grivna Edit1 ( ):
Edit1->Text = FloatToStr(Grivna);