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

اذهب الى الأسفل

اظافة محتوى ملف txt الى حقل TMemoField  Empty اظافة محتوى ملف 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;


djelal
مبرمج

عدد المساهمات : 88
تاريخ التسجيل : 29/04/2015

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى