كيف يمكن اخذ البيانات من txt ووضعها في الداتا

السلام عليكم

اعتذر عن الخروج عن الموضوع ، انا فقط محتاج الى برنامج modelmaker ولكن لم اجد اي link لغرض تحميله ، الرجاء مساعدتي اذا امكن . البريد الالكتروني : hdrd74@hotmail.com . شكرا جزيلا

حيدر خليل

اخي العزيز

اشكرك

هذه هي الوصلة

http://www.softpile.com/Development/Librar...7115_index.html

ما فهمت قصدك أخوي

السلام عليكم

اخي الفاضل

اي ازا وجد لدي ث memo1 و بة السطر التالي 1 12\5\200 5:6:00

كيف اقوم بتجزئة هذا السطر بحيث ان رقم 1 يوضع في edit1 و التاريخ يوضع في edit2 و الوقت يوضع في edit3

ارجو الرد

اخوك البدري

عندي طريقة افضل وهي قراءة الملف عن طريق ال memo ومن ثم ادخال كل سطر الى ال database

procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
var sql:string;
begin
Memo1.Lines.LoadFromFile('C:\File.txt');
for i := 0 to Memo1.Lines.Count -1 do
  begin
    sql := 'insert into tablename(line) values(' + quotedstr(memo1.Lines) + ');';
    AdoQuery1.SQL.Clear;
    adoquery1.SQL.Add(sql);
    adoquery1.ExecSQL;
  end;
end;

صح لسانك أخونا العزيز ركان

ماشي يا بدري الأخ راكان الحنيطي رد عليك.

صباحك عنب .

السلا عليكم و رحمة الله و بركاتة

الاخ الفاضل اشكرك علي تعاونك