خطأ مع if الشرطية

[code]

السلام عليكم ورحمة الله وبركاته

لدي كمبو بوكس وفيه اايام الاسبوع من السبت الي الاربعاء فقط
ولدي كمبو بوكس اخر فيه مثلا ( الاولى , الثانية )

عند اختياري السبت مع الاولى يعمل وجميع ايام الاسبوع
عدا الثلاثاء لم يعمل معي وهذه الشيفرة

PHP كود :

var
m,b :string;
 begin
 m :=combobox1.Text;
 b:=combobox2.Text;
if (m='السبت') And (b='الاولى')then
begin
edit33.Text:='1';
end
else begin
if (m='السبت') And (b='الثانية')then
begin
edit33.Text:='3'; 


وهكذا الى ان اصل الى الثلاثاء ولم يعمل التكست بمعنى كل الايام تعمل عدا الثلاثاء

[لؤي]

أين الإشكال أخي؟

على حسب ما فهمت من الكود فهو يشتغل مع يوم السبت فقط أما باقي الأيام يترك edit33.Text على ما هو عليه.

[code]

الاشكالية :يعمل مع السبت والاحد والاثنين والاربعاء
لكن الثلاثاء لا يعمل والتكست تبقى فاضية

[لؤي]

لكن الثلاثاء لا يعمل والتكست تبقى فاضية

هل من الممكن إرفاق الكود الذي تعمل عليه

هذه تجربة على حسب فهمي للسؤال

PHP كود :

var
m,b :string;
 begin
 m :=combobox1.Text;
 b:=combobox2.Text;
if (m='samedi') And (b='premier')then
begin
edit1.Text:='1';
end
else begin
if (m='samedi') And (b='deusième')then
begin
edit1.Text:='3';
end;
if (m='dimenche') And (b='premier')then
begin
edit1.Text:='1';
end
else begin
if (m='dimenche') And (b='deusième')then
begin
edit1.Text:='3';
end;
if (m='lundi') And (b='premier')then
begin
edit1.Text:='1';
end
else begin
if (m='lundi') And (b='deusième')then
begin
edit1.Text:='3';
end;
if (m='mardi') And (b='premier')then
begin
edit1.Text:='1';
end
else begin
if (m='mardi') And (b='deusième')then
begin
edit1.Text:='3';
end;
if (m='mercredi') And (b='premier')then
begin
edit1.Text:='1';
end
else begin
if (m='mercredi') And (b='deusième')then
begin
edit1.Text:='3';
end;
end;
end;
end;
end;
end;
end; 


[code]

نفس الكود تبعي الا ان التكست عندي حوالي 20 تكست تتغير مع الكمبوبوكس

[لؤي]

ربما نسيت end; التي هي قبل شرط يوم الثلاثاء

كود :

[color=Red]end; [/color] if (m='mardi') And (b='premier')then begin edit1.Text:='1'; end else begin if (m='mardi') And (b='deusième')then begin edit1.Text:='3'; end;

[Agmcz]

السلام عليكم
محاولة الأخ louay تعمل طبيعة
أرفق الكود كامل كما قال لمعاينة ومعرفة الخلل

[kachwahed]

وعليكم السلام ورحمة الله وبركاته
جرب:

PHP كود :

var
  I: Integer;
begin
  //Or ShortDayNames instead of LongDayNames
  for I := Low(LongDayNames) to High(LongDayNames) do
    ComboBox1.Items.Add(LongDayNames[I]);

  //إذا كان ثالث يوم من الأسبوع...
  if CompareText(ComboBox1.Text, LongDayNames[2]) then
end; 


و:

PHP كود :

begin
  case DayOfWeek(Now) of
  0: ShowMessage('أول يوم من الأسبوع');
  1
  2
  3
  4
  5
  6: ShowMessage('آخر يوم من الأسبوع');
  end; 


بالتوفيق.

[code]

هذا المشروع وشاكر لكل من ساهم وشارك بالاجابة
والمشكل كما قلت يوم الثلاثاء يوم عصيب

[Agmcz]

لو دققت جيدا في items
يوجد اسباس في يوم الثلاثاء
وبهدا لن يتحقق الشرط