Mega Code Archive

 

Categories / Delphi / Examples

 

Programda parametre kontrolü

procedure TForm1.FormShow(Sender: TObject); var parameter: string; begin parameter := ParamStr(1); if parameter = '/message' then begin ShowMessage('Parameter /message.'); end; if parameter = '' then begin ShowMessage('No parameter.'); end; end;