+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : خطأ مع if الشرطية (/showthread.php?tid=3143)
الصفحات:
1
2
خطأ مع if الشرطية - code - 03-06-2011
السلام عليكم ورحمة الله وبركاته
لدي كمبو بوكس وفيه اايام الاسبوع من السبت الي الاربعاء فقط
ولدي كمبو بوكس اخر فيه مثلا ( الاولى , الثانية )
عند اختياري السبت مع الاولى يعمل وجميع ايام الاسبوع
عدا الثلاثاء لم يعمل معي وهذه الشيفرة
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';
خطأ مع if الشرطية - لؤي - 03-06-2011
أين الإشكال أخي؟
على حسب ما فهمت من الكود فهو يشتغل مع يوم السبت فقط أما باقي الأيام يترك edit33.Text على ما هو عليه.
خطأ مع if الشرطية - code - 03-06-2011
الاشكالية :يعمل مع السبت والاحد والاثنين والاربعاء
لكن الثلاثاء لا يعمل والتكست تبقى فاضية
خطأ مع if الشرطية - لؤي - 03-06-2011
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;
خطأ مع if الشرطية - code - 03-06-2011
نفس الكود تبعي الا ان التكست عندي حوالي 20 تكست تتغير مع الكمبوبوكس
خطأ مع if الشرطية - لؤي - 03-06-2011
ربما نسيت 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;خطأ مع if الشرطية - Agmcz - 03-06-2011
السلام عليكم
محاولة الأخ louay تعمل طبيعة
أرفق الكود كامل كما قال لمعاينة ومعرفة الخلل
خطأ مع if الشرطية - kachwahed - 03-06-2011
وعليكم السلام ورحمة الله وبركاته
جرب:
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;
خطأ مع if الشرطية - code - 03-06-2011
هذا المشروع وشاكر لكل من ساهم وشارك بالاجابة
والمشكل كما قلت يوم الثلاثاء يوم عصيب
خطأ مع if الشرطية - Agmcz - 03-06-2011
لو دققت جيدا في items
يوجد اسباس في يوم الثلاثاء
وبهدا لن يتحقق الشرط