السلام عليكم ورحمة الله وبركاته
لدي كمبو بوكس وفيه اايام الاسبوع من السبت الي الاربعاء فقط
ولدي كمبو بوكس اخر فيه مثلا ( الاولى , الثانية )
عند اختياري السبت مع الاولى يعمل وجميع ايام الاسبوع
عدا الثلاثاء لم يعمل معي وهذه الشيفرة
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;
نفس الكود تبعي الا ان التكست عندي حوالي 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;
السلام عليكم
محاولة الأخ louay تعمل طبيعة
أرفق الكود كامل كما قال لمعاينة ومعرفة الخلل
وعليكم السلام ورحمة الله وبركاته
جرب:
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;
هذا المشروع وشاكر لكل من ساهم وشارك بالاجابة
والمشكل كما قلت يوم الثلاثاء يوم عصيب
لو دققت جيدا في items
يوجد اسباس في يوم الثلاثاء
وبهدا لن يتحقق الشرط