zbyna

procedure TForm1.Button2Click(Sender: TObject);
  var   v: IXQValue;
        i: Integer;
        url,str: String;
        pomString: String;
        pomString2: String = ' ';
        pomString3: String;
        pomStr:String;
        vPom: IXQValue;
        p: IXQValue;

zbyna

procedure TForm1.Button2Click(Sender: TObject);
  var   pomQuery: String; 
        v: IXQValue;
        i: Integer;
        pomString: String;
        pomString3: String;
        p: IXQValue;
        p3: IXQValue;
  begin
    str:= ' <?xml version="1.0" encoding="UTF-8" ?>'+  slineBreak +

zbyna

procedure TForm1.Button2Click(Sender: TObject);
  var   v: IXQValue;
        i: Integer;
        url,str: String;
        pomString: String;
        pomString3: String;
        p: IXQValue;
        p3: IXQValue;
        vyrazProQuery:String;
  begin

zbyna

procedure TForm1.Button2Click(Sender: TObject);
  var   v,u : IXQValue;
        i: Integer;
        str: String;
        pomString: String= ' ';
        pomString3: String= ' ';
        p: IXQValue;
        p3: IXQValue;
        p4: IXQValue ;
        pomQuery: String;

zbyna

[
 // Status bar label
    {
        "class": "label_control",
        "parents": [{"class": "status_bar"}],
        "color": [150, 150, 150],
        "shadow_color": [25, 25, 25],
		"shadow_offset": [0, -1],
		"font.size" : 14
	}

zbyna

eventuální scrapování info o epizodách:

thetvdb:
  - po sezónách - vrátí všechny epizody pro sezonu
    get /series/{id}/episodes/query 
    https://api.thetvdb.com/series/81189/episodes/query?airedSeason=1
    response: thetvdb.json
   

themoviedb:

zbyna

// using utf8tools and LazUTF8
procedure nahradDiakritiku(var retezec:String);
var
  ukChar: PChar;
  unicode: Cardinal;
  CharLen: integer;
  unicodeCategory: SmallInt;
  pomString:String;
begin
 pomString:='';

zbyna

Sub TotoTlacitka_Click()
' callback for button with name TotoTlacitka, _ is part of vba syntax
    
    ' early binding
    Dim Aktualni_vyber As Range
    Dim bunka As Range
    Dim cislo As Integer
    ' object initialisation
    Set Aktualni_vyber = Selection
    For Each bunka In Aktualni_vyber

zbyna

Sub Sheet2_Button1_Click()
'
' Sheet2_Button1_Click Macro
'

    Dim Tabulka As ListObject
    Dim List As Worksheet
    
    Set List = ActiveSheet ' to get code completion, it does not work on ActiveSheet property
    Set Tabulka = List.ListObjects.Add(SourceType:=xlSrcRange, _

zbyna

div > .vimiumHintMarker {
  /* linkhint boxes */
  background: -webkit-gradient(linear, left top, left bottom, color-stop(0%,#FFF785),
  color-stop(100%,#FFC542));
  border: 1px solid #E3BE23;
}

div > .vimiumHintMarker span {
  /* linkhint text */
  color: black;