Advertisement
Guest User

Untitled

a guest
Mar 13th, 2016
71
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.15 KB | None | 0 0
  1. //---------------------------------------------------------------------------
  2.  
  3. #include <vcl.h>
  4. #pragma hdrstop
  5.  
  6. #include "Unit3.h"
  7. #include "Unit1.h"
  8. //---------------------------------------------------------------------------
  9. #pragma package(smart_init)
  10. #pragma resource "*.dfm"
  11. TForm3 *Form3;
  12. //---------------------------------------------------------------------------
  13. __fastcall TForm3::TForm3(TComponent* Owner)
  14. : TForm(Owner)
  15. {
  16. }
  17. //---------------------------------------------------------------------------
  18.  
  19. extern a;
  20.  
  21.  
  22.  
  23.  
  24. void __fastcall TForm3::Button1Click(TObject *Sender)
  25. {
  26. if (a == 1) {
  27.  
  28. Form1 -> ListBox1->Items->Add("proszkowa " + Edit1 -> Text);
  29. a = 0;
  30. Form3 -> Visible = false;
  31. }
  32. if (a == 2) {
  33.  
  34. Form1 -> ListBox1->Items->Add("pianowa " + Edit1 -> Text);
  35. a = 0;
  36. Form3 -> Visible = false;
  37. }
  38. if (a == 3) {
  39.  
  40. Form1 -> ListBox1->Items->Add("sniegowa " + Edit1 -> Text);
  41. a = 0;
  42. Form3 -> Visible = false;
  43. }
  44. if (a == 4) {
  45.  
  46. Form1 -> ListBox1->Items->Add("mglowa " + Edit1 -> Text);
  47. a = 0;
  48. Form3 -> Visible = false;
  49. }
  50. }
  51. //---------------------------------------------------------------------------
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement