Сейчас на форуме: zombi-vadim, zds (+4 невидимых)

 eXeL@B —› Программирование —› operator not applicable to this operand type
Посл.ответ Сообщение

Ранг: 1.7 (гость)
Активность: 0=0
Статус: Участник

 Создано: 22 июня 2013 14:56 · Поправил: nox90
· Личное сообщение · #1

Code:
  1. unit Unit1;
  2.  
  3. interface
  4.  
  5. uses
  6. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7. Dialogs, StdCtrls, ExtCtrls;
  8.  
  9. type
  10. TForm1 = class(TForm)
  11. Image1: TImage;
  12. Edit1: TEdit;
  13. Edit2: TEdit;
  14. Edit3: TEdit;
  15. Button1: TButton;
  16. Button2: TButton;
  17. Button3: TButton;
  18. Button4: TButton;
  19. Button5: TButton;
  20. Button6: TButton;
  21. procedure Button1Click(Sender: TObject);
  22. procedure Button2Click(Sender: TObject);
  23. procedure Button3Click(Sender: TObject);
  24. procedure Button4Click(Sender: TObject);
  25. procedure Button5Click(Sender: TObject);
  26. procedure Button6Click(Sender: TObject);
  27. private
  28. { Private declarations }
  29. public
  30. { Public declarations }
  31. end;
  32.  
  33. var
  34. Form1: TForm1;
  35.  
  36. implementation
  37.  
  38. {$R *.dfm}
  39.  
  40. procedure TForm1.Button1Click(Sender: TObject);
  41. begin
  42. Edit1.Text:='1';
  43. end;
  44.  
  45. procedure TForm1.Button2Click(Sender: TObject);
  46. begin
  47. Edit1.Text:='0';
  48. end;
  49.  
  50. procedure TForm1.Button3Click(Sender: TObject);
  51. begin
  52. Edit2.Text:='1';
  53. end;
  54.  
  55. procedure TForm1.Button4Click(Sender: TObject);
  56. begin
  57. Edit2.Text:='0'
  58. end;
  59.  
  60. procedure TForm1.Button5Click(Sender: TObject);
  61. begin
  62. if ((Edit1.Text:='0')and (Edit2.Text:='1') //aas
  63. or //asd
  64. (Edit1.Text:='1')and (Edit2.Text:='0') //asd
  65. or //asd
  66. (Edit1.Text:='1')and (Edit2.Text:='1')) //asd
  67. then Edit3.Text:='0' //asd
  68. else Edit3.Text:='1' //asd
  69. end;
  70.  
  71.  
  72. procedure TForm1.Button6Click(Sender: TObject);
  73. begin
  74. Application.Terminate;
  75. end;
  76.  
  77. end. 

ругается на строчки почеркнутые , смотрю рабочий исходник коды схожие, а свежо сделанная не хочет работать...

вот рабочий код только чуть другой
Code:
  1. Цитата:
  2. unit Unit1;
  3.  
  4. interface
  5.  
  6. uses
  7. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  8. Dialogs, StdCtrls, ExtCtrls;
  9.  
  10. type
  11. TForm1 = class(TForm)
  12. Image1: TImage;
  13. Edit1: TEdit;
  14. Edit2: TEdit;
  15. Edit3: TEdit;
  16. Button1: TButton;
  17. Button2: TButton;
  18. Button4: TButton;
  19. Button3: TButton;
  20. Button5: TButton;
  21. Button6: TButton;
  22. procedure Button1Click(Sender: TObject);
  23. procedure Button2Click(Sender: TObject);
  24. procedure Button4Click(Sender: TObject);
  25. procedure Button3Click(Sender: TObject);
  26. procedure Button5Click(Sender: TObject);
  27. procedure Button6Click(Sender: TObject);
  28. private
  29. { Private declarations }
  30. public
  31. { Public declarations }
  32. end;
  33.  
  34. var
  35. Form1: TForm1;
  36.  
  37. implementation
  38.  
  39. {$R *.dfm}
  40.  
  41.  
  42. procedure TForm1.Button1Click(Sender: TObject);
  43. begin
  44. Edit1.Text:='1';
  45. end;
  46.  
  47. procedure TForm1.Button2Click(Sender: TObject);
  48. begin
  49. Edit1.Text:='0';
  50. end;
  51.  
  52. procedure TForm1.Button4Click(Sender: TObject);
  53. begin
  54. Edit2.Text:='0';
  55. end;
  56.  
  57. procedure TForm1.Button3Click(Sender: TObject);
  58. begin
  59. Edit2.Text:='1';
  60. end;
  61.  
  62. procedure TForm1.Button5Click(Sender: TObject);
  63. begin
  64. if ((Edit1.Text= '1')and (Edit2.Text= '0') //åñëè õ1=1 è õ2=0
  65. or //èëè
  66. (Edit1.Text= '0')and (Edit2.Text= '1')) // õ1=0 è õ1=1
  67. then Edit3.Text:='0'// òî íà âûõîäå 0
  68. else // èíà÷å
  69. Edit3.Text:='1'// 1
  70.  
  71. end;
  72.  
  73. procedure TForm1.Button6Click(Sender: TObject);
  74. begin
  75. Application.Terminate;
  76. end;
  77.  
  78. end.
  79. Ответить с цитированием

Ранг: 1.7 (гость)
Активность: 0=0
Статус: Участник

 Создано: 22 июня 2013 15:02
· Личное сообщение · #2

(Edit1.Text:='1')and (Edit2.Text:='1')) ругаеться



Ранг: 456.3 (мудрец), 340thx
Активность: 0.28↘0.02
Статус: Участник
Android Reverser

 Создано: 22 июня 2013 15:16 · Поправил: SaNX
· Личное сообщение · #3

Узнай разницу между присвоением и сравнением, ботанег

-----
SaNX


Ранг: 2014.5 (!!!!), 1278thx
Активность: 1.34↘0.25
Статус: Модератор
retired

 Создано: 22 июня 2013 15:35
· Личное сообщение · #4

И как это к форуму относится? Сходи и хотя бы основы языка выучи. Скоро будет бан такими темпами.


 eXeL@B —› Программирование —› operator not applicable to this operand type
Эта тема закрыта. Ответы больше не принимаются.
   Для печати Для печати