كيفية حذف حرفين من حقل كتابة

السؤال الأول هذا جوابه

edit2.text:=Copy(edit1.text,3,Length(edit1.text)-2)+'1';

السؤال الثاني أظن أنك لو جعلت الحقل من نوع time فقط فستحل المشكلة والله أعلم

مشكور جدا الأخ أحمد أبو عبد البر على الجواب

الحقل من نوع time غير موجود في sql serveur 2000 و إنما يوجد فقط datetime و smalldatetime, timestamp

و أظن أن المشكلة برمجية و ليست في قاعدة البيانات ..

بالنسبة للسؤال الأول فالكود الذي كتبته أنا يحذف حرفين أولين ويضيف 1 كتابة لا حسابا أي : fa1 يكون ناتجها 1 ،ومن أجل إضافة 1 حسابا فهذا هو الكود

edit2.text:=IntToStr(strToInt(Copy(edit1.text,3,Length(edit1.text)-2))+1);

بالنسبة للسؤال الثاني أخبرنا كيف تدخل البيانات وكيف تجلبها

سوأل:

لوكان النص اكثر من 3 حروف او غير معروف بشتغل الكود ولا فيه مشاكل؟

الخوارزمي2 كتب:

سوأل:

لوكان النص اكثر من 3 حروف او غير معروف بشتغل الكود ولا فيه مشاكل؟

إذا كنت تقصد الكود الثاني فسيعمل معك مهما كان طول السلسلة بشرط أن يكون الثالث فما فوق أرقاما (1,2,3...) لأنه سيقوم بالتحويل بين النوعين integer & string

أحمد أبو عبد البر كتب:

بالنسبة للسؤال الثاني أخبرنا كيف تدخل البيانات وكيف تجلبها

أنا لدي جدول يحتوي على حقل Heure و هو من نوع DATETIME

عندما أقوم بإدخال القيم مباشرة من برنامج sql serveur 2000 فالنتيجة تكون عادية و تظهر على شكل 00:00:00

أما من خلال برنامج الدالفي و عند إدخال البيانات يقوم البرنامج تلقائيا بإضافة التاريخ و النتيجة هي على الشكل

00:00:00 00/00/0000

أما فيما يخص إدخال البيانات فإما عن طريق fieldbyname أو DBEdit1

السلام عليكم 

يمكنك تخصيص القيمة بعد اقتصاص التاريخ فقط منها وتخزينه بالحقل الخاص به بإستخدام دالة ( DateToStr ) بالشكل التالي

DataSet.Fieldbyname('Field Name').value:=Strtodate(Datetostr(Your Date));

بهذه الطريقة سيتم تخزين فقط التاريخ في الحقل.