كيف أمرر بارامترات لبرنامجي ؟؟

وهذا الكود يقوم بقرائة الملفات المفتوحه

var FileName : string; 
i : integer; 
begin 
for i := 1 to ParamCount do begin 
if i = 1 then 
FileName := ParamStr(1) 
else 
FileName := FileName+' '+ParamStr(i); 
end;

سبقتني يا أخي عروة. :lol:

جميع لغات البرمجة تسجل متغيرين في بداية تنفيذ تطبيقك: السلسلة المحرفية التي أدخلنها في سطر الأوامر ِ Command-Line و عدد هذه الباراميترات الموجودة بداخل هذه السلسلة.

مثلا في لغة السي أو سي ++ نجد تعريف الدالة الرئيسية هو :

int main( int argc[ , char *argv[ ] );
أو  في ويندوز :
int wmain( int argc[ , wchar_t *argv[ ] );

نفس الشيء نجده أيضا في ديلفي.

نجد ParamCount و هي دالة ترجع عدد الباراميترات المدخلة بعد إسم التطبيق, وكذاك الدالة

(ParamStr(i التي ترجع الباراميتر المدخل الموافق للمرتبة رقم i بعد التطبيق التنفيذي .

مثلا لو كتبت هذا الأمر في سطر الأوامر Comande-line:

Project1.exe  first second  "The 3rd parameter"  4

فإن ParmCount = 4 و على سبيل المثال

Parmstr(3)= "The 3rd parameter" ok :) .

هذا مثال يستعرض كل الباراميترات المدخلة لتطبيقك التنفيذي, يظهرها على التوالي في MessageBox. قبل تنفيذ البرنامج♣8 أنقر في القائمة الرئيسية menu في ديلفي على Run ثم

Parameters... ثم اكتب في خانة parameters ما تشاء من البراميترات. مثلا

calc.exe second "the 3rd parameter" and4 "and the 5" ok

procedure TForm1.FormCreate(Sender: TObject);
var
 i:integer;
begin
if GetCommandLine <> nil then ShowMessage(GetCommandLine);
for i:= 1 to ParamCount do
 begin
   showmessage('The Parameters in the' + IntToStr(i)
     + 'Position Is : ' + ParamStr(i));
 end;
//WinExec(pchar(paramstr(1)),SW_NORMAL);
end;

(h)

sorry i cant write arabic

thanks very much for all answers -waf