Parametre

Altså hvis man i kør skriver fks.: "mitprogram.exe test" så udføre programemt en kommando der er knyttet til parameteren "test".
Hvordan gør jeg det?

Kode 

procedure DenDerProcedureSomOgsaaKunneVaareEnFunction;
var
  I: Integer;
begin
  for I := 1 to ParamCount do begin
    if ParamStr(I) = '/Hej' then
      ShowMessage('Daws du')
    else if ParamStr(I) = '/Hvad' then
      ShowMessage('Ahva?')
    else if ParamStr(I) = '/TestTingen' then
      ShowMessage('Yeah, Det er mig :D');
  end;
  ShowMessage(ParamStr(0));
end;

Hvordan laver jeg sådan at man kan bruge parametre til mit program?
Dvs. man kan køre programmet med fks kommandoen: "mitprogram.exe /h" eller sådan noget

Kode 

procedure EnEllerAndenProcedureSomOgsaaKunneVaereEnFunction;
var
  I: Integer; // Bare en Integer værdi som bruges i vores lykke
begin
  for I := 1 to ParamCount do begin // Fra 1, dvs fra første parameter til ParamCount
    ShowMessage(ParamStr(I)); // Hvis det parameter vi er kommet til
  end; // Luk lykken
end; // Afslut proceduren / funktionen

Altså hvis man i kør skriver fks.: "mitprogram.exe test" så udføre programemt en kommando der er knyttet til parameteren "test".
Hvordan gør jeg det?

På samme måde som mit eksempel. Her er et eksempel mere:

Kode 

procedure DenDerProcedureSomOgsaaKunneVaareEnFunction;
var
  I: Integer;
begin
  for I := 1 to ParamCount do begin
    if ParamStr(I) = '/Hej' then
      ShowMessage('Daws du')
    else if ParamStr(I) = '/Hvad' then
      ShowMessage('Ahva?')
    else if ParamStr(I) = '/TestTingen' then
      ShowMessage('Yeah, Det er mig :D');
  end;
  ShowMessage(ParamStr(0));
end;

MH.

The-Freak

Livet er for kort til at kede sig.