اظافة محتوى ملف txt الى حقل TMemoField
دلفي تعليم :: منتديات البرمجة :: دلفي
صفحة 1 من اصل 1
اظافة محتوى ملف txt الى حقل TMemoField
اظافة محتوى ملف 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- مبرمج مجتهد
- عدد المساهمات : 157
تاريخ التسجيل : 29/04/2015
دلفي تعليم :: منتديات البرمجة :: دلفي
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى