Příklady PASCAL - Historie editací

Grepl: /* Příklad 16 - Vytvoření sloupcového grafu */

2015-09-12T09:24:24Z

Příklad 16 - Vytvoření sloupcového grafu

2015-09-12T09:16:11Z

Příklad 16 - Vytvoření sloupcového grafu

2015-03-11T12:52:25Z

Příklad 15 - SQL dotaz zobrazený v kontingenční tabulce

2015-03-08T12:35:05Z

Příklad 15 - SQL dotaz zobrazený v kontingenční tabulce

2015-03-08T12:32:27Z

SQL dotaz zobrazený v kontingenční tabulce

2015-03-06T21:25:48Z

Příklad 14 - Zápis do XML souboru za pomocí Msxml2.DOMDocument

2015-03-06T21:25:31Z

Příklad zápisu do XML

2015-03-06T21:21:08Z

Příklad 12 - Práce s XML za pomocí Msxml2.DOMDocument

2015-02-15T13:55:27Z

Příklad 12 - Práce s požadavky (objednávkami zákazníků) za pomocí TKAPOrder

2015-02-15T13:53:35Z

Příklad 12 - Práce s požadavky (objednávkami zákazníků) za pomocí TKAPOrder

@@ Řádek 593: / Řádek 593: @@
   var
    f: TForm;
-   Chart: TChart;
+   Chart: TChart; // viz.  * http://www.teechart.net/docs/teechart/vclfmx/lib/html/TChart.html - dokumentace k TChart
    BarSeries: TBarSeries;
   begin

@@ Řádek 588: / Řádek 588: @@
       f.Free;        // uvolní objekt okna a všech na něm umístěných prvků
     end;
   end.

@@ Řádek 550: / Řádek 550: @@
      fcGrid.CaptionZone.Visible:= false;    // skryje oblast nadpisu kontingenční tabulky
      fcGrid.ExportToFile('MojeTabulka.XLS', fexExcelBIFF); // export může být proveden až je okno viditelné
-  //   Timer.Enabled := true;  // zavolá událost pro zavření okna (nelze volat přímo z OnShow)
+  //   Timer.Enabled := true;  // zavolá událost pro zavření okna (f.Close nelze volat přímo z OnShow)
    end;

@@ Řádek 558: / Řádek 558: @@
       Timer := TTimer.Create(f);    // Objekt Timer je potřeba jen v případě,
       Timer.Enabled := false;       // že je třeba tabulku pouze exportovat
-      Timer.Interval := 1;          // a poté hned ukončit aplikaci.
+      Timer.Interval := 1;          // a poté hned ukončit skript.
-      Timer.OnTimer := 'OnTimer';   // kontingenční tabulky lze exportovat,
+      Timer.OnTimer := 'OnTimer';   // Kontingenční tabulky lze exportovat,
                                     // pouze když existuje okno, ve kterém je tabulka zobrazena
       f.Caption := 'Test PvQuery';
@@ Řádek 579: / Řádek 579: @@
       fcGrid.Parent := PanelGrid;
       fcGrid.Align:= alClient;
-      fcGrid.AddAllExportFilters;
+      fcGrid.AddAllExportFilters;           // povolí všechny varianty exportů kontingenční tabulky
       fcToolBar:= TfcxSliceGridToolbar.Create(f);  // vytvoří toolbar s nástroji pro práci s kontingenční tabulkou
       fcToolBar.SliceGrid := fcGrid;

@@ Řádek 526: / Řádek 526: @@
      Order.Free;
    end;
   end.

@@ Řádek 393: / Řádek 393: @@
 ----
-====Příklad 14 - Zápis do XML souboru za pomocí Msxml2.DOMDocument====
+====Příklad 13 - Zápis do XML souboru za pomocí Msxml2.DOMDocument====
   var
     sklad, Kod: String;

@@ Řádek 391: / Řádek 391: @@
    end;
   end.
 ----
-====Příklad 13 - Práce s požadavky (objednávkami zákazníků) za pomocí TKAPOrder====
+====Příklad 14 - Práce s požadavky (objednávkami zákazníků) za pomocí TKAPOrder====
   var
    Order: TKAPOrder;

@@ Řádek 337: / Řádek 337: @@
 ----
-====Příklad 12 - Práce s XML za pomocí Msxml2.DOMDocument====
+====Příklad 12 - Čtení dat z XML za pomocí Msxml2.DOMDocument====
   var
    XMLDoc: Variant;
@@ Řádek 393: / Řádek 393: @@
 ----
 ====Příklad 13 - Práce s požadavky (objednávkami zákazníků) za pomocí TKAPOrder====
   var

@@ Řádek 411: / Řádek 411: @@
          OK := Order.AddOrderItem('54005', 24, 0, true, 0, ' ');
        if OK then begin
-         OrderItem := Order.Items[0];
+         OrderItem := Order.Items[0];   {zpřístupní první položku objednávky}
-         OrderItem.Quantity := 6;
+         OrderItem.Quantity := 6;       {a u této položky změní počet MJ na 6}
-         Order.DeleteItem(1);
+         Order.DeleteItem(1);           {odstraní druhou položku objednávky - 54005}
          OK := Order.AddOrderItem('50056', 1, 0, true, 0, 'VL');
        end;
@@ Řádek 419: / Řádek 419: @@
          OK := Order.SaveOrder;
        if OK then
-         if Order.LastError = '' then
+         if length(Order.LastError) = 0 then
            ShowMessage(Format('Nová objednávka uložena pod číslem %d', [Order.CisloObjednavky]))
          else