Mega Code Archive
Parametre kullanımı
<![CDATA[
{
MWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWM
MWMW DELPHI İLE PARAMETRE KULLANIMI MWMW
MWMW EMARTI SOFTWARE by Murat ÖZDEMİR MWMW
MWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWM
Anahtar Sözcükler:
- paramcount
- paramstr
}
program uygulama;
// {$APPTYPE CONSOLE}
uses
SysUtils,dialogs;
begin
case ParamCount of
// parametre sayısı alarak duruma göre davranmasını istiyelim
// örn.: uygulama -b merhaba
// parametre sayısı yukarıdaki örnekte 2 'dir
// "-b" parametresini PARAMSTR(1)
// "merhaba" parametresini PARAMSTR(2) olarak elde edeceğiz
// PARAMSTR(0) uygulamanın yolunu (path + exe) verir
0: showmessage('Parametre girilmeden uygulama çalıştırılmış');
1: showmessage('Kullanılan parametre = '+paramstr(1));
// uygulama -b merhaba
// olarak kullanımı "merhaba" 'yı büyük harf ile yazar
// uygulama -k merhaba
// olarak kullanımı "merhaba" 'yı küçük harf ile yazar
2: begin
if ParamStr(1) = '-b' then showmessage(UpperCase (paramstr(2)));
if paramstr(1) = '-k' then showmessage(lowerCase(paramstr(2)));
end;
end;
end.
// Uygulamayı denemek için derleyin
// İster dos'a çıkıp deneyiniz.
// OR
// Delphi'den RUN | PARAMETERS | LOCAL | PARAMETERS 'e
// ilgili parametreleri yazabilirsiniz.
{ Saygılarımla, emarti }
]]>