akcesoria meblowe, oświetlenie meblowe, prowadnice, szafy, s
Temat: [T.Delphi] 1-den Button i kila instrukcji
...niestety nie dziala :-(
var
Form1: TForm1;
przelicznik, waluta : real;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Button1.Tag:=Button1.Tag+1;
case Button1.Tag mod 2 of
0: Begin
przelicznik:=StrToFloat(Edit1.Text);
end;
1: Begin
waluta:=StrToFloat(Edit1.Text);
end;
2: Begin
Edit1.Text:=FloatToStrF( waluta*przelicznik,ffFixed,5,2);
end;
end;
end;
end.
Źródło: forum.ks-ekspert.pl/index.php?showtopic=99615
