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

[medreg]

[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]