delphi - Testing multiple TComboBox values at once -

-

I am a noob in delphi but please help.

I have 7 TComboBoxes on a form. Their values ​​are given names using them using a SQL query from the same table. 

  Process TForm3.Button4Click (Sender: Tubbed); Start Q2. Stop it; Q2.SQL.Clear; Q2.SQL.Add ('Select Number'); Q2.SQL.Add ('FROM numbers.dbf'); Q2.RequestLive: True =; Q2.Open; Cb1.Items.Add (q2.FieldByName ('number') value.); Cb1.Text: = '? ? ? '; Cb2.Items.Add (q2.FieldByName ('number') value.); Cb2.Text: = '? ? ? '; ... ... ... End;   
 Where CB1, CBT .... are TCobobox.  
 I'm trying to test them against their values ​​(text of all values) Click on them, especially if you select cb1 = 1 from the dropdown, Then if you select cb2 = 1 ... etc and you give the same number, you should give it an error message  
  MessageDlg ('Check values: CB1 And CB2: the same values ​​have been recorded. ', M.TERR, MBOKennel, 0);   
 Which method you use, I would recommend, I am battling for two days now.  
 Thanks in advance!   
 
 
 Create a new form with seven combo boxes ( style: = csDropDownList  with). After that, create a TCMbox box of a  
  versus composse: array [1.7];   
 and start it:  
  Process TForm1.FormCreate (Sender: Toubys); Combo started [1]: = combobox 1; Combo [2]: = combo box 2; Combo [3]: = comboox3; Combo [4]: ​​= combo box 4; Combo [5]: = combo box 5; Combo [6]: = combo box 6; Combo [7]: = combobox 7; End;   
 Then you can do this only  
  Process TForm1.Resultation (sender: tubage); If Longbull (starts from TComboBox (sender). Perform (CB_GETDROPPEDSTATE, 0, 0)) then exit; I: = Lower (combo) to high (combo) if the sender (lt;   
 and  VerifyUniqueness  to  OnChange  of each combo box. In addition, you need  
  process TForm1.ComboBoxesKeyUp (Sender: Tubect; ​​var key: Word; Shift: TShiftState); If key = VK_RETURN then VerifyUniquness (sender) begins; End;

Comments

Post a Comment

Popular posts from this blog

qt - switch/case statement in C++ with a QString type -

-
I want to use switch-case in my program but the compiler generates an error. How can I use the switch statement with QString ? The compiler gives me this error: The expression of the switch type 'QString' is invalid My code is as follows : boolStopWord (the word QString) {bool flag = false; Switch (word) {case "the": flag = true; break ; "On" case: flag = true; break ; Case "in": flag = true; break ; Case "your": flag = true; break ; Case "near": flag = true; break ; Case "all": flag = true; break ; Case "this": flag = true; break ; } Return flag; } How do I use the switch statement with a Caststring ? You can not use the switch statement in C ++ language with integral or enum types. You can formally enter the square type of object in the switch statement, but this means that the compiler will look for a user-defined conversion to convert it to an integral or enum type.
Read more

python - sqlite3.OperationalError: near "REFERENCES": syntax error - foreign key creating -

-
I'm trying to create a predefined key after checking the manual and I wrote it: Db.execute ("create table" Table 2 (id, integer primary key, somedata integer) "db.execute" (table creation table 2 does not exist (name text, maintain reference (id) ") and found this: sqlite 3. Operation error: near" references ": syntax error Your second ligne is wrong db.execute ("create table if table does not exist 2 (name text, my_id integer, foreign key (my_id) reference Maintenance (ID)) ") as explained
Read more

Python's equivalent for Ruby's define_method? -

-
What is a Python equivalent for Ruby's define_method , which is the dynamic generation of class methods will allow? (As can be seen in Wikipedia) Functions are first-class objects in Python and assign them The properties of a class or an example can be a way of doing the same thing as a Wikipedia example: colors = {"black": "000", "red": "F00", "green": "0f0", "yellow": "ff0", "blue": "00f", "magenta": "fff", "cyan": "0ff", "white": " FFF "} Class MyStream (ARR): Pass for Name, Code in colors.iteritems (): def _in_colour ( W code = code): return '& lt; Span style = "color:% s" & gt;% s & lt; / Span & gt; ' % (Code, self) setter (histrive, "in_" + name, _in_ color)
Read more