اريد تصويب هذا الكود من فضلكم

[daho147]

PHP كود :

procedure TForm5.ComboBox2Change(Sender: TObject);
    var x:string;
    begin
    x:= comboBox2.Text;
if (x='ãÚÑæÝíä Ïæä ãáÝ') then
form5.edit36.Visible:=true;
form5.GroupBox49.Visible:=true;
form5.edit37.Visible:=true;
form5.GroupBox50.Visible:=true;
  end
  else
  begin
form5.edit36.Visible:=false;
form5.GroupBox49.Visible:=false;
form5.edit37.Visible:=false;
form5.GroupBox50.Visible:=false;
  end; 


ارجوا تصويب هذا الكود فان الكيرسور يقف عند else

[محمد عبد العزيز]

السلام عليكم
رغم ان سؤالك غير مفهوم ! جرب هذا

كود :

procedure TForm5.ComboBox2Change(Sender: TObject); var x: Boolean; begin x:= comboBox2.Text='ãÚÑæÝíä Ïæä ãáÝ'; form5.edit36.Visible:=x; form5.GroupBox49.Visible:=x; form5.edit37.Visible:=x; form5.GroupBox50.Visible:=x; end;

[larbiparadox]

كود :

procedure TForm5.ComboBox2Change(Sender: TObject);     var x:string;     begin     x:= comboBox2.Text; if (x='ãÚÑæÝíä Ïæä ãáÝ') then Begin form5.edit36.Visible:=true; form5.GroupBox49.Visible:=true; form5.edit37.Visible:=true; form5.GroupBox50.Visible:=true;   end   else   begin form5.edit36.Visible:=false; form5.GroupBox49.Visible:=false; form5.edit37.Visible:=false; form5.GroupBox50.Visible:=false;   end;