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

مشكلة في filecreate,fileopen and filewrite

مغلق
بدأه wesam79 في 26 مايو 2007 · 3 رد · 471 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ،،

اهدي سلامي للجميع وسؤالي هو اني عند استخدامي لدالة filecreate و fileopen اقوم بتعريف متغير من نوع integer واقوم بكتابة الكود التالي:

var

filehandle:integer;

begin

filehandle:=filecreate('d:\MyFile.txt');

end;

وعند التنفيذ يظهر ال error التالي :incompatible types integer and filestream

وكذلك مع الدالة fileopen

ما الحل لهذه المشكلة مع اني قرأت الhelp لهذه الدوال وهي ترجع رقم موجب اذا انشأ الملف ورقم سالب اذا حدث error في انشاؤه.

اما بالنسبة للدالة filewrite فأني اكتب الكود التالي:

filewrite(filehandle,pointer(s)^,length(s));

حيث s متغير من نوع string وقمت بإعطاءه قيمة نصية قبل هذه الدالة ولكن يظهر الخطأ التالي:

there is no overloaded filewrite function that can be called with these arguments

ما العمل يا ريت تساعدوني واعطائي الكود الصحيح وإن شاء الله تعم الفائدة عالجميع

والشكر لكم

تحياتي ..

#2

وعليكم السلام

لم تذكر ما هو اصدار دلفي الذي تستخدمه !

بالنسبة لما هو مكتوب فوق فهو صحيح، الخطأ ناجم من شيئ أخر

جرب هذا و اخبرني بالنتيجة

var
  FileHandle : Integer;
  S : array[0..128] of Char;
begin
  FileHandle := FileCreate('D:\MyFile2.txt');
  try
	S := 'Hi Delphi!';
	FileWrite(FileHandle, S, Length(S));
  finally
	FileClose(FileHandle);
  end;
End;
d4baa0.gif
#3

السلام عليكم

شكرا لك اخي الكريم B.M.abdelaziz على الاهتمام بموضوعي، اما بالنسبة للاصدار الذي استخدمه فهو دلفي 8

تحياتي ..

#4

لماذا لا تستخدم المكون memo

memo1.lines.savetofile

memo1.lines.loadfromfile

هذا الموضوع مغلق.

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