فيما يتعلق بحفظ حقل في ملف نصي

[bassem_43]

[quote pid='37269' dateline='1455971360']
السلام عليكم
بارك الله فيك
لقد وضعت هذا الكود من اجل التحقق من صحة رقم الحساب
لكن لم يعمل بالشكل المطلوب
اين الخطأ هنا ياترى

كود :

    var i,som:Integer; n:string; h:string; begin som:=0;  with DM do  begin    TBS1.Open;    TBS1.First;    while not TBS1.Eof do    begin    n:=TBS1.Fieldvalues['Compte'];    for i:=1 to Length(n) do    som:=som+strtoint(n[i])*( (4+ Length(n))-i);    h:=IntToStr(som);    h:=h[Length(h)-1]+h[Length(h)];    if h=TBS1.FieldValues['Clef']then    begin    showMessage('Cle vrai');    end else begin    showMessage('Cle faux');    end;    TBS1.Next;    end;  end; اضافة الى ذلك هل بامكانك اعطاء كود لقراءة هذاالملف النصي الذي انشأته

في قاعدة بيانات اي فتحه رواسطة برنامج بسبه البرنامج المرفق
بالتوفيق

[/quote]
السلام عليكم
اولا مادا تعني ب  with DM do  
ثانيا ضع رسالة الخطا التي تظهر لك
ثالثا تاكد من نوع الحقل CLEF ان كان integer  فغيرالكود الى

PHP كود :

if h=inttostr(TBS1.FieldValues['Clef']then 


سئالك الاخير اتقصد طريقة الكتابة في قاعدة بيانات من ملف نصي ؟؟

---

عفوا هنالك خطا
نسيت اغلاق القوس

PHP كود :

if h=inttostr(TBS1.FieldValues['Clef'])then 


كدلك
*سؤالك