اظافة محتوى ملف txt الى حقل TMemoField

djelal 18/5/2019, 2:40 pm

اظافة محتوى ملف txt الى حقل TMemoField
Add Content TextFile To MemoField

اظافة محتوى ملف من نوع txt الى حقل من نوع TMemoField

الكود:: procedure AddContentTextFileToMemoField(dbm1: string; ADOTabl: TADOTable; TableNam: string; Fielde: string; FileNam: String); var ms: TMemoryStream; MemoField: TMemoField; ConnectStr: String; begin ms := TMemoryStream.Create; try ms.LoadFromFile(FileNam); ms.Seek(0, soFromBeginning); ADOTabl.Close; ConnectStr := 'Provider=Microsoft.Jet.OLEDB.4.0;'+ 'Data Source='+dbm1+';'+ 'Mode=ReadWrite|Share Deny None;' + 'Persist Security Info=False'; ADOTabl.ConnectionString := ConnectStr; ADOTabl.TableName := TableNam; ADOTabl.Open; MemoField := TMemoField(ADOTabl.FieldByName(Fielde)); ADOTabl.Append; MemoField.LoadFromStream(ms); ADOTabl.Post; finally ms.Free; end; end;

الكود:: procedure TForm1.Button3Click(Sender: TObject); begin OpenDialog1.Filter := 'File Text (*.txt)|*.txt'; if not OpenDialog1.Execute then exit; AddContentTextFileToMemoField('C:\dta\d\mdb1.mdb',ADOTable1, 'tb1','Notes',OpenDialog1.FileName); end;