برنامج خبير

عادة بالملفات النصية توجد عدد محارف ثابتة لكل حقل , وهذا يسهل المهمة , عليك اولا ان تكتشف كل حقل كم طولة (عادة تملأ الحقول بفراغات إذا لم توجد بيانات , أو حتى لو وجد يتم غكمالها بفراغات حتى تأخذ الطول الكامل)

حملها إلى memo مثلا (مالم تكن كبيرة)

 Memo0.Lines.LoadFromFile(GetCurrentDir+ '/temp2.txt');
s2:=Memo0.Lines.Text;

مثلا لنفرض ان طول الحقل الأول 15 حرف , والحقل الثاني 10 أحرف

s:=Copy(s1,0,15);//a
Edit1.Text:=s;

s:=Copy(s1,16,10);  //b
Edit2.Text:=s;

ثم حفظ لقاعدة البيانات :

tbl_companies.Insert;
tbl_companiescompany_city.Value:=deldblspace( Edit1.Text);
tbl_companiescompany_hiredate.Value:=getdate0(edit2.Text);
tbl_companies.Post;

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

الله يخليك لينا ويزيدك من علمه

بالجد انا بشكرك

:D :D :D :D :D :D :D