كود برمجي من فيجوال بيسك إلى دلفي

ياهلاااااااااا والله بعد زمان..........:)

أول شي يو عمل البرنامج؟

Function LoadFile(Path:string)
var MyFile: TextFile;
var Contents:String;
var line:string;
Begin
  AssignFile(MyFile,'C:\TextFile.txt');
   While not EOF(MyFile) do
      begin
        readln(MyFile,Line);
        Contents := Contents + chr(13) + Line
        End;
CloseFile(MyFile);
End;

delphi team

ياهلالالالا فيك بدأت العطله وبدأت الأسئله :)

ما أعرف كيف اوضح المشروع كثير لكن بإختصار

تصميم برنامج بالدلفي يستخدم فيه فورم من أسهل الأمور

لكن لما أحب أصمم برنامج CONSOLE app الوضع رح يتغير كثير

عموما مشروعي يقوم بإرسال بعض البيانات من الجهاز الى بريد إلكتروني

وكل اللى احتاجه بالأخير هو ربط البيانات الموجوده بالجهاز سواء كانت بملف نصي

أو غيره بمتغير محدد بحيث اذا وضعت اسم المتغير في محتوى الرساله المرسله للبريد داخل المشروع (كود) يتم ارسال البيانات .

________________

شكرا لك أخوي راكان

راح أجرب الكود وأرد

خطــــــأ في المشــــروع

الكود الأول

Function LoadTxtData( Path : string) :string;
var
MyFile: TextFile;
Contents:String;
line:string;

Begin
 AssignFile(MyFile,'C:\mm.txt');
  While not EOF(MyFile) do
     begin
       readln(MyFile,Line);
       Contents := Contents + chr(13) + Line
       End;

CloseFile(MyFile);

End;

الكود الثانــــــي

Function ttmm ():string;

Begin
ttmm := LoadTxtData ('D:\WINDOWS\system32\'+'mmm.txt');

end;

بعد تنفيذ الأمر ttmm في أي مكان بالمشروع

وتشغيل البرنـــامج

تظهر لي رسالة الخطأ