WEBimage.cz

Formulář, který se otevře před otevřením samotné aplikace. Read the rest of this entry »

Parametry při spuštění jsou velmi užitečnou možností, jak změnit chování programu, aníž byste museli program kompilovat, ukládat nastavení do souboru, nebo jinak zajistit načtení řídicích proměnných. Vstupní parametry se dají zadat v Delphi na cestě menu -> Run -> Parameters -> Parameters (prostřední). Pokud už máte hotový program a chcete ho někde nainstalovat, pak stačí vytvořit zástupce a v jeho vlastnostech na záložce “Zástupce” najdete řádek “Cíl:”. V tomto řádku za poslední uvozovky zadejte parametry dle příladu: “C:-= DELPHI =-ParametryProject1.exe” param1 param2. Tímto zajistíte, že programu budou předány dva parametry, které můžete použít při běhu programu. K tomu slouží dvě jednoduché funkce. ParamCount a ParamStr. Další dobrou funkcí, která může pomoci, je CmdLine.
ParamCount – vrací počet parametrů, které byly použity pro spustění programu.
ParamStr (index : integer) – vrátí parametr na pozici dle proměnné index.
CmdLine – celý příkaz pro spuštění programu.

procedure TForm1.Button1Click (Sender: TObject);
var i : integer;
begin
//zobrazeni prikazu
ShowMessage (CmdLine);

//zobrazeni poctu vstupnich parametru
ShowMessage (”Program byl spusten s ” + IntToStr (ParamCount) + ” parametry.”);

//zobrazeni jednotlivych parametru
for i := 1 to ParamCount do begin
ShowMessageFmt(”%d. parametr : %s”, [i, ParamStr(i)]);
end;
end;
Smyčka pro zobrazení jednotlivých parametrů je nyní od 1, nultý parametr je plná cesta a jméno souboru aplikace. Tato informace se může hodit, dá se také zjistit pomocí Application.ExeName.

AdoQuery1.Active := True;

table := TClientDataset.Create(Application);
table.FieldDefs.Add(””id””, ftInteger, 0, False);
table.FieldDefs.Add(””Přidat””, ftBoolean, 0, False);
table.FieldDefs.Add(””typ””, ftString, 0, False);
table.FieldDefs.Add(”’’skupina””, ftString, 0, False);
table.FieldDefs.Add(””vlastnost””, ftstring, 0, False);

table.CreateDataSet;
table.Open;

for I := 0 to Adoquery1.RecordCount – 1 do
begin
showmessage(ADOQuery1.FieldByName(””id””).asString);
table.Append;
table.FieldByName(””id””).AsInteger := ADOQuery1.FieldByName(””id””).asInteger;
table.FieldByName(””Přidat””).asBoolean := false;
table.FieldByName(””typ””).asString := ADOQuery1.FieldByName(””typ””).asString;
table.FieldByName(”’’skupina””).asString := ADOQuery1.FieldByName(”’’skupina””).asString;
table.FieldByName(””vlastnost””).asString := ADOQuery1.FieldByName(””vlastnost””).asString;
table.Post;
end;