الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

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

بدأه محمد صلاح عبدالحميد في 1 مايو 2008 · 9 رد · 1,150 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

كيف أكتب الأعمدة من الداتا جريد داخل ملف كل صف في سطر عندما أضغط على زر حاولت في الكود التالي

procedure TForm1.Button1Click(Sender: TObject);
var
  F: TextFile;
begin
  AssignFile(F, 'C:\Data.txt');
  Rewrite(F);
  WriteLn(F,هنا حاولت أكتب الأعمدة من الداتا سيت ولكن لا أعرف كيف );
  CloseFile(F);

end;
end;

تم تعديل هذه المشاركة بواسطة محمد صلاح عبدالحميد في 1 مايو 2008 في 11:10

#2 
procedure TForm1.Button1Click(Sender: TObject);
var
i : Integer;
F: TextFile;
begin
 AssignFile(F, 'C:\Data.txt');
 Rewrite(f);
	while not Table1.Eof do
	begin
		edit1.Clear;
		for i:=0 to Table1.FieldCount-1 do
		edit1.Text:=edit1.Text + Table1.Fields.AsString+';';
		Writeln(F,edit1.text);
		Table1.Next;
	end;
 CloseFile (f);

end;

تم تعديل هذه المشاركة بواسطة zekiri abdelali في 1 مايو 2008 في 15:53

تريد الفوز إضغط هنا

اشِهِدي يَا سَمَـا وَاكْتُبَنْ يا وُجـودْ

إنَّـنَـا للِحـمَـا سَنَكُونُ الجُـنُـودْ

فـنَـزيحْ البَـلاَ وَنَـفُـكُّ الْقُيُـودْ

ونَنيلُ الـرِّضـا مِنْ وَفَّى بِالعْهُـودِ

الشيخ عبد الحميد ابن باديس

#3

اخي عبد العالي نسيت Table1.First

d4baa0.gif
#4

السلام عليكم

أظنك أخي عبد العالي أغفلت أن السائل يتحدث عن DBGrid

و الكنابة من الداتا غريد يختلف عن قاعدة البيانات من حيث تسمية الاعمدة و كذلك الحقول الظاهرة


var
i,j : Integer;
F: TextFile;
S:String;
begin
AssignFile(F, 'C:\Data.txt');
Rewrite(f);
S:='';
For i:=0 to DBGrid1.Columns.Count-1 do
S := S + DBGrid1.Columns.Items.Title.Caption+^I;
Writeln(F,S);
S:='';
Table1.First;
While not Table1.Eof do
begin
for j:=0 to DBGrid1.Columns.Count-1 do
S := S + DBGrid1.Fields[j].AsString+^I;
Writeln(F,S);
Table1.Next;
end;
CloseFile (f);
end
procedure TForm1.Button1Click(Sender: TObject);

و السلام

تم تعديل هذه المشاركة بواسطة merouane في 1 مايو 2008 في 19:54

#5

السلام عليكم

ليست انا :resentful: من قام بالرد

انه الاخ مسعود الدي اعطيته اسم عضوية قديم لانه لم يستطع التسجيل

لكن ساري ما يمكن فعله

#6

جزاكم الله خيرا ياشباب وجعله الله في ميزان حسناتكم

لكن عندما جربت الكود الخاص بالأخ merouane الملف في البينات مكررة كثيرا جدا

مع العلم أني حذفت Table1 من الكود وكتبت بدلا منها اسم الداتا سيت لأني لا أعرف من اتي بهذا Table1

تم تعديل هذه المشاركة بواسطة محمد صلاح عبدالحميد في 3 مايو 2008 في 08:38

#7
محمد صلاح عبدالحميد كتب:
لكن عندما جربت الكود الخاص بالأخ merouane الملف في البينات مكررة كثيرا جدا

مع العلم أني حذفت Table1 من الكود وكتبت بدلا منها اسم الداتا سيت لأني لا أعرف من اتي بهذا Table1

لم أعد متأكدا مما تريد

حسب ما فهمت فأنت لديك DBGrid وتريد الكتابة منها إلى الملف Data.txt

ام مثل ما فعل الأخ عبد العالي من قاعدة البيانات

بالنسبة للـ Table1 ستراه أيضا في مثال الأخ عبد العالي

منطقيا البيانات لن تتكرر لأننا عملنا بالإجراء ;(Rewrite(F

و لقد جربته بنفسي قبل كنابة الرد الأول وهذا الرد

لكن كل المعطيات تأتي من عندك أخي

أرفق عملك وسنرى

#8 
procedure TForm1.Button1Click(Sender: TObject);
var
	  i,j : Integer;
	  F: TextFile;
	  S:String;
  begin
	  AssignFile(F, 'C:\Data.txt');
	  Rewrite(f);
	  S:='';
	  For i:=0 to DBGrid1.Columns.Count-1 do
		S :=  S+'	   ' + DBGrid1.Columns.Items.Title.Caption;
	  Writeln(F,S);
	  S:='';
	 SimpleDataSet1.First;
	  While not SimpleDataSet1.Eof do
	  begin
	   S:='';
	   for j:=0 to DBGrid1.Columns.Count-1 do
		   S := S+'	   ' + DBGrid1.Fields[j].AsString;
	   Writeln(F,S);
	   SimpleDataSet1.Next;
	  end;
	  CloseFile (f);
end;

هذا هو كودك مع بعض التعديلات البسيطة جدا والحمد لله اشتغل جزاك الله خيرا

#9

الحمد لله

فقط احببت ان أوضح أمر

S :=  S+'	   ' + DBGrid1.Columns.Items.Title.Caption;

سوف تصبح:

S='	   Data1	   Data2'

الفراغ في البداية زائد

ولقد اعتمدت في مشاركتي "I^" لأنه يمثل Tab و عندما تفتحه بواسطة MSExcel سترى أن كل كلمة في خانة

و أيضا سيساعد عندما تريد أن تحول النص إلى جدول في MSWord

تحياتي :)

تم تعديل هذه المشاركة بواسطة merouane في 4 مايو 2008 في 09:37

#10

جزاك الله خيرا وجعله الله في ميزان حسناتك

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…