Anonymní profil gna – Programujte.com

echo ""

Nejsem si jistý, co myslíš tím pořadím argumentů. Self nemá žádný speciální význam, prostě první parametr metody je objekt, na kterém byla zavolána a je zvykem ho pojmenovávat self (a druhý parametr porovnávacích metod zase other).

Co se týče toho fungování, tak jen v případě, že porovnáváš instanci třídy s instancí třídy z ní odvozené, tak má přednost odvozená třída. Jinak má přednost to, co je nalevo. 

# stejne typy
a1 == a2  # a1.__eq__(a2)
a2 == a1  # a2.__eq__(a1)
# rozdilne typy
a == b    # a.__eq__(b)
b == a    # b.__eq__(a)
# aa je instance odvozene tridy
a == aa   # aa.__eq__(a)
aa == a   # aa.__eq__(a)

Důležité je to slovo přednost. Ta porovnávací metoda může vrátit NotImplemented a v tom případě se zkusí druhá možnost.

zt1 == 0  # zt1.__eq__(0)
0 == zt1  # 0.__eq__(zt1)
          # == NotImplemnted
          # => zt1.__eq__(0)

Pokud obě možnosti vrátí NotImplemented, tak se porovná identita objektů (jestli je to ten samý objekt, jako operátor is).

Jestli myslíš toto

<... onClick="aaa"
     onClick="bbb" />

a čekáš, že to prvně udělá "aaa" a příště "bbb", tak takhle to nefunguje. Prostě tomu atributu nastavuješ nějakou hodnotu -- jednu. I když to uděláš víckrát, tak bude jen jedna. Nevím jestli je nějak definováno která, ale vypadá to, že ta první. Tu požadovanou funkcionalitu si musíš pořešit sám.

function changeImage(img) {
    if (img.src.endsWith("aa.jpg"))
        img.src = "bb.jpg";
    else
        img.src = "aa.jpg";
}

<img src="aa.jpg" onclick="changeImage(this)" />

Asi je to rozbitý   

#19 Mutagen
Přesně o tom je tady řeč ty brzdo.

Generator gen = new Generator(3);

public bool podelanej_event()
{
    int[] prev = (int[]) gen.code.Clone();
    int[] next = gen.Next();
    
    Console.Write("{0} -> {1} = ", String.Join("", prev), String.Join("", next));
    for (int i = 0; i < next.Length; i++)
        Console.Write("-.+"[1 + next[i] - prev[i]]);
    Console.WriteLine("");
}

#17 MilanL
Mně šlo jen o to, jak Mutagen neviděl, že ten tvůj algortimus nemusí běžet na jeden zátah. Tak ja to je, by šlo testovat protočení tak, že to dvakrát vrátí stejnou hodnotu, ale to si může pořešit jakkoliv jinak.

Property je prostě "vlastnost" objektu. Jako proměnná. Jde ji číst, měnit a smazat (pokud jsou dané operace definované) 

obj.property

Dekorátor @property z metody vytvoří stejnojmennou property a ta metoda bude fungovat jako její getter. To je celé. Pointa je v podstatě jen v tom jak se to jeví "zvenku".

Chybu máš už v tom getteru. Vracíš _data, cože je přeci property s getterem, který se tak znova zavolá a zacyklí se to.

A pak v tom testovacím přiřazení nepracuješ s objektem (takže se nezavolá setter property), ale s třídou (takže se přesmahne definice property).

class ZT:
    _data = 0

    @property
    def data(self):
        return self._data

    @data.setter
    def data(self, nova_data):
        assert type(nova_data) == int, "data.setter: neplatny vstup"
        self._data = nova_data


zt = ZT()
zt.data = "a"

#14 MilanL
Je tam násobení zápornou jedničkou!

#11 MilanL

Já si myslím, že mu prostě ze serveru chodí aktuální kombinace, takže by mohl kontrolovat, jestli odpovídá tomu co zadal, ale jinak ta hodnota není podstatná.

Poznámku s měněním znaménka nechápu.

Ten generátor přece není problém izolovat a rozkrokovat.

class Generator
{
    public int[] code;
    public int[] smer;

    public Generator(int size)
    {
        code = Enumerable.Repeat(0, size).ToArray();
        smer = Enumerable.Repeat(1, size).ToArray();
    }

    public int[] Next()
    {
        for (int i = code.Length - 1; i >= 0; i--)
        {
            int val = code[i] + smer[i];
            if (val > 9 || val < 0)
            {
                smer[i] *= -1;
            }
            else
            {
                code[i] = val;
                break;
            }
        }
        
        return code;
    }
}

$limit = time() - 5 * 60; // teraz - 5 minut
$ftime = filemtime("$src/$val"); // muze vratit FALSE, ale to tady nevadi

if ($ftime > $limit) {
   copy("$src/$val","$dest/$val");
}

A teď koukám, že už to tady několikrát je. Ty jsi prostě debil.

#19 oxidián
Takže to mám správně to má být takto

NE! Když už ty prvky kopíruješ vytvářením nových, tak ještě musíš mazat ty staré.

Ale ty nepotřebuješ vytvářet nové objekty. Jen chceš ty původní posunout.

A samozřejmě když takhle kopíruješ každý prvek na další pozici, tak nakonec bude kopie první položky na druhé pozici, ale zároveň zůstane i na první pozici. To je to nově vytvořené místo, které je potřeba inicializovat.

Já bych to kopírování teda ještě otočil ať tam nestraší to -2. 

setlength(arr, length(arr)+1);
for i := length(arr)-1 downto 1 do
  arr[i] := arr[i-1];
arr[0] := tstringlist.create;

Co ti na takové kravině trvalo 6 hodin?

#13 oxidián
Víš, že to v Delphi je dialekt Pascalu, žejo?

#8 MilanL
A když jsi dopisoval ty komentáře, tak ti to vůbec nepřišlo divný? Proč je v blbé funkci na postupné hledání oddělovačů ŠEST IFů?

function split(str: string; sep: string): tstringlist;
var
    sl: tstringlist;
    seppos, sublen: sizeint;
begin
    sl := tstringlist.create;
    repeat
        seppos := pos(sep, str);
        sublen := seppos - 1;
        if sublen = -1 then
            sublen := length(str);
        sl.add(copy(str, 1, sublen));
        delete(str, 1, sublen + length(sep));
    until seppos = 0;
    split := sl;
end;

#6 oxidián
Na té funkci není nic složitého a kdybys občas něco vypotil, tak by ses možná něco naučil. Ale máš to štěstí, že nic psát nemusíš, protože to ten list už umí. A používej dokumentaci ke své verzi Delphi.

slist.Delimiter := ';';
slist.StrictDelimiter := true;
slist.DelimitedText := '1;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;1';

TMenuItem.Break

Inicializace st proběhne před konstruktorem a proměnná sizeOfStack v té době není inicializovaná.

Pokud má malou hodnotu, tak zapisuješ za to pole. Velikost alokované paměti se zarovnává na nějakou hodnotu, takže za tím polem může být prostor, který lze bez problému přepsat. Ale většinou je to jen pár bajtů, které když překročíš, tak by to nejpozději při delete[] mělo sletět.

Nebo má sizeOfStack takovou hodnotu, že to pole je dostatečně velké.

Mimochodem, pop() máš špatně.

A celkem znamená co? :DDD I kdybys to měl po znacích projít a testovat, jestli jsi narazil na uvozovky, tak snad není problém to udělat.

std::string

#3 Borisek
Když se ptáš na masku, tak předpokládám, že víš k čemu maskování je -- k "zakrývání a odkrývání" bitů. And vynuluje bity, které jsou v masce nulové a nechá beze změny bity, které jsou v masce jedničkové.

    10101010
and 00001111
  = 00001010

    10101010
and 11110000
  = 10100000

$aa and $01 = $00
$aa and $02 = $02
$aa and $04 = $00
$aa and $08 = $08

Ze zbytku jako z těch, cos ještě neprošel.

Jinak ještě to Randomize stačí jen jednou a .NET má šikovnou třídu Random.

Nejjednodušší možnost je vybrat dva náhodné prvky a prohodit je. A to "několikrát" opakovat.

Když nad tím budeš dumat, tak ono to tak nějak možná je a možná taky není pořádně zamíchané, a chtělo by to spíš něco jako sestavit nový balíček odebíráním náhodných karet z původního. U karet dobrý, ale je to problém u velkých polí.

Tak se to dá pěkně spojit tím, že ten balíček projdeš a každou kartu prohodíš náhodnou kartou ze zbytku.

Fisher–Yates shuffle

Ano, můžeš maskovat operátorem and.

hodnota and maska

Pravděpodobně se ti bude hodit i bitový posun operátory shl a shr.

hodnota and (1 shl bit)
(hodnota shr bir) and 1

#4 Dumbo
Tak pokud je to VB.NET, tak tam jde string indexovat jako pole a taky projít pomocí for each.

For i = 0 To vstup.Length - 1
	... vstup(i)
Next

For Each znak As Char in vstup
    ...
Next

Když jsme u toho Googlení...

RunError 211 je volání abstraktní metody. Taky ho cthreads vyhodí explicitně pokud se inicializuje pozdě. A CloseThread se má volat až po skončení vlákna (i když na Windows a Linuxu se předčasným voláním asi nic nerozbije).

Jinak je na vlákna lepší použít TThread.

#8 Yenc 

print('Ted jsem tady a zkusim tohle')

#2 MilanL
Taglib se distribuje ve formě zdrojáků. Pro kompilaci se používá cmake, který přímo nekompiluje, ale generuje "kompilační projekt" třeba pro make, nebo Visual Studio, nebo dokonce i Code::Blocks.

Zdá se, že už tam má problém a jak to přidat do svého projektu asi bude řešit až potom, co to zkompiluje.

Tohle 

device_file = device_folder + "/w1_slave"

má být list

device_file = [device_folder + "/w1_slave"]

Tohle

temp1 = read_temp

má být volání funkce 

temp1 = read_temp(0)

Tohle

try:
    ...

nemáš ukončené 

try:
    ...
except KeyboardInterrupt:
    GPIO.cleanup()

To je zase to VBA, že?

Tak ten řetězec projdeš, jednotlivé znaky dostaneš funkcí mid a pro výpočet indexu do pole můžeš použít funkci asc. 

for i = 1 to len(vstup)
	znak = mid(vstup, i, 1)
	index = asc(ucase(znak)) - asc("A")
	if index >= 0 and index < len(tabulka) then
		kod = tabulka(index)
	else
		kod = znak ' co neumime zkonvertovat, nechame byt
	end if
	vystup = vystup + kod
next i

Už z těch několika řádků nad tím je vidět, že řetězce se zapisují v uvozovkách.

A pak jedno rovnítko je pro přiřazení. Na test rovnosti je dvojité rovnítko (a == b).

Ale to by testovalo, jestli je na obou stranách operátoru ten samý objekt. Na porovnání řetězce podle obsahu je metoda equals. 

if (a.equals("ano"))

Sender je vždycky objekt, kterého se událost týká.

Takže obsluze kliku na menuitem asi nebudeš přeposílat form! Jestlit to správně chápu, tak je to N9, takže to bude:

N9.Click;
// nebo
SelectUser1Click(N9);

Jen díky tomu, že se tam s tím parametrem nijak nepracuje nevadí, že tam cpeš nesmysl. Máš tam hromadu metod, ze kterých je vidět, jak to funguje. Dokonce jsi napsal pár vlastních, tak nad tím chvíli přemýšlej!

Sender je vždycky objekt, kterého se událost týká. V tomhle případě to asi bude instance TMenuItem.

Taky se handlery nevolají přímo, ale bylo by to metodou Click, která vyvolá OnClick (který je asi v tomhle případě nastavený na ten SelectUser1Click) se správným parametrem.

A vzhledem k tomu, že OnCreate (FormCreate) se volá při vytváření objektu formu, tak bych nečekal, že v té době bude připravený na operace, které se v tom click handleru dělají. Možná to půjde při OnShow (FormShow).

Máš tam 20 unit a 16 formulářů. I když odmítáš číst dokumentaci, tak snad není možné si nevšimnout, jak se s nimi pracuje.

V souboru uc_heb1.pas máš toto.

unit Uc_heb1;

interface

type
  TForm1 = class(TForm)
  ...

var
  Form1: TForm1;
  ...

implementation

...

Takže do souborů, kde potřebuješ znát definici toho typu a/nebo té proměnné, přidáš toto:

uses
  Uc_heb1, ...;

Samozřejmě by té funkci šlo předat menu/submenu/položky, se kterými má pracovat, ale to ty nikdy nepobereš, tak se k tomu prokousej přes Form1.

Myslím, že na té ukázce je vidět, že se opakovaně provádějí příkazy v těle cyklu, dokud je splněna podmínka pro opakování.

Co chceš opakovat, to do něj dej.

Myslím si, že tak jak to máš, to zadání splňuje. Nevidím důvod dávat ten switch do "knihovny". Jestli to do ní chceš hodit, tak je na tobě, jak se ti to líbí.

Na opakování jsou cykly.

#3 normy101
A jak se ta chyba projevuje?

Jestli ti to při kompilaci hlásí neznámé funkce z té "knihovny", tak je potřeba tu knihovnu přidat do projektu. Jestli to kompiluješ ručně tak prostě uveď oba soubory (třeba gcc main.c knihovna.c -o program.exe). Jinak je to syntakticky správně, takže jiný problém by neměl být.

Co se týče fungování programu, tak jediný problém vidím v tom, že int je celočíselný typ. Pro desetinná čísla můžeš použít třeba typ double a formát pro scanf pak bude %lf a pro printf %f.

// FreePascal

var
  plocha: array of array of char;
  velikost: integer;
  i, j: integer;

begin
  velikost := 5;
  setlength(plocha, velikost, velikost);
  for i := 0 to velikost-1 do
    for j := 0 to velikost-1 do
      plocha[i,j] := '.';

  plocha[1,2] := 'X';
  plocha[2,2] := 'O';

  for i := 0 to velikost-1 do
  begin
    write('|');
    for j := 0 to velikost-1 do
      write(plocha[i,j]);
    writeln('|');
  end;
end.

Na opakování se používají cykly - for, do, while. Třeba takhle:

int volba = -1;
while (volba != 0) {
	printf("1) aaa\n2) bbb\n0) Konec\n");
	printf("Vyber: ");
	scanf("%i", &volba);
}

A ještě jsem zapomněl napsat proč je to pole.

Takovéhle přiřazení přidává položky do pole.

$vystrazniky[] = explode(', ', $vystrazniky_vyber);

Takže v poli $vystrazniky máš jednu položku, která je taky pole. Vyhoď ty závorky []. Celkově nevidím důvod to prohánět přes implode-explode.

Tu konverzi pole na řetězec máš tady.

('$id', '$id_vystrazniku'[\"id_vystrazniku\"])

Kdyby jsi chtěl chtěl hodnotu z pole, tak by to šlo napsat jako

... '{$pole['klic']}' ...

Ale ty tam chceš $id_vystrazniku, tak to tak napiš.

... '$id_vystrazniku' ...

Z toho update vyhoď tu vazební tabulku. Nic tam nevážeš. Prostě uprav data přejezdu v jeho tabulce a doplň vazby v té vazební tabulce.

#10 David
Tak tam, kde to píše asi děláš to, co se tam píše.

Pokud máš option takhle, tak by ti to mělo posílat ta čísla z value. Nechápu pak, co myslíš tím, že nechceš vkládat řetězce.

V tom selectu máš zase blbě uvozovky a method tam nemá co dělat. Podívej se na zdroják té stránky.

Typ výstražníku: <select name="vystrazniky[]" method="get"cislo" multiple />  <-- co to tam je?

Dáváš do value id záznamu?

<option value="1">Metelesku</option>
<option value="2">Blesku</option>

Tady na řádku 38 nic zajímavého není. Můžná u tebe je.

PREJEZDY_VYSTRAZNIKY je vazební tabulka, ne? Proč ji máš v tom prvním update? I kdyby jsi tam chtěl dvě tabulky, tak s jinou podmínkou a před WHERE máš nadbytečnou čárku.

V tom INSERTu máš [\"id_vystrazniku]\". Ty uvozovky jsou špatně a hlavně to tam vůbec nemá být.

Funkce mysql_error vrací popis chyby. A hlavně nestrkej data z GETu přímo do SQL.

#11 Kit
Já jsem poslední velkou věc ve VBA dělal před 20 lety pro jeden okresní úřad a není na světě dost peněz, abych to podstoupil znova.

Já jsem předpokládal, že jde o VB.NET. To asi budete dělat v tom Visual Studiu.

To v Excelu je VBA (Visual Basic for Applications) a je úplně na ho.no.

Jinak teda pokud ten MsgBox používáš, protože je to konzolová aplikace a nevíš, jak jinak něco vypsat, tak je to 

Console.WriteLine("Ahoj")

Protože vypis máš Long a pokoušíš se k němu přičítat string.

Mimochodem pokud je step 1, tak ho nemusíš psát a neco = neco + necojineho se dá napsat jako neco += necojineho. A to Chr(10) nahraď něčím srozumitelnějším. Myslím, že ještě pořád existuje předdefinovaná konstanta vbNewLine.

Dim i As Integer
Dim nahoda, soucet, prumer, rozdil As Double
Dim vypis As String

soucet = 0
For i = 1 To 20
    nahoda = Round(Rnd() * 40) + 10
    soucet += nahoda
    vypis += Str(nahoda) + vbNewLine
Next i
prumer = soucet / 20
rozdil = 30 - prumer

vypis += "prumer " + Str(prumer) + vbNewLine
vypis += "rozdil " + Str(rozdil) + vbNewLine

MsgBox vypis

Copak něco brání tomu abys to v tom cyklu dělal obojí?

No tak ho projdi a obsah ulož. Co ti na tom nejde?

Samozřejmě ta první varianta.

To se dost špatně vysvětluje. Zkus ten výpočet rozložit a uvidíš to. První část je

(i+1) * numi

To je vidět hned 

1 + 2 + 3 + 4  +  12 + 23 + 34        +  123 + 234            +  1234
1 + 2 + 3 + 4  +  10+2 + 20+3 + 30+4  +  120+3 + 230+4        +  1230+4
1 + 2 + 3 + 4  +  10+2 + 20+3 + 30+4  +  100+20+3 + 200+30+4  +  1000+200+30+4
1              +  10 + 20 + 30        +  100+20 + 200+30      +  1000+200+30    +  2*2 + 3*3 + 4*4

Další část

10 * sumofdigit[i-1]

Když si s tím pohraješ, tak je vidět, že v každém kroku je řádový posun předchozího.

1   +   10 + 2*2   +   100 + 2*2*10 + 3*3   +   1000 + 2*2*100 + 3*3*10 + 4*4
1   +   10 + 2*2   +   (10+2*2)*10  + 3*3   +   ((10+2*2)*10 + 3*3)*10  + 4*4

To říká, že skupina_id odkazuje na skupina.id a hlídá se, aby ten odkaz byl platný, takže nepůjde smazat skupina, ve které někdo je.

Web se na to bude tvářit tak, jak si ho napatláš.

Už ti peter napsal, kde ten test je. Uprav si to jak chceš.

if (imgopened != currentopened) {
// close again
...
} else {
// found
...

Je to vidět na tom stromě. Těch hodnot s kratkým kódem musí být výrazně víc než těch s dlouhým, aby výsledná velikost byla menší.

U JPG je normální, že jednoduchým překódováním se nezmenší.

Ano, přesně tak.

Protože když to dělíš podle četnosti, tak se ti to svažuje doprava, častější hodnoty vlevo mají kratší kódy a ty méně časté zase delší. To je přece to o co jde. 

     *
    / \
   /   \
  *     *
 / \   / \
00 01 10 11


  *
 / \
0   *
   / \
  10  *
     / \
   110 111

Můžeš prostě tu délku kódů ukládat na víc bitů. (Teda mimo to, že je vůbec není potřeba ukládat.)

Mně to ukazuje numBytes 1640623802. Jsou tam kódy delší než 8 bitů, takže se jejich délka nevejde do těch očekávaných 3 bitů a všechno se to posune.

Tady je $1 -- '[+\\-]+([+\\-])|[/*]+([/*])'

a tady $2 -- '[+\\-]+([+\\-])|[/*]+([/*])'

Když se matchne '[+\\-]+([+\\-])|[/*]+([/*])', tak $1 nic neobsahuje. Když to bude matchovat zprava, tak se posere zase ta první část.

U toho původního patternu ale můžeš zůstat s replace na "$1$2".

Dej si tam výpis té hodnoty numBytes. Chybu tam nevidím (a nechápu co tam všude kutíš s tím +-1), ale možná to načetlo nějaké hausnumero.

A místo range tam dej xrange.

Tak ukaž i ten soubor.

$1 je první skupina a $2 ta druhá, bez ohledu na to, která část se matchne.

patt = '[-+]+(?=[-+])|[/*]+(?=[/*])';
...
str.replace(reg,'');

https://pastebin.com/9yvuUaZq

Když opravím to chaotické odsazování, tak mi to funguje.

A máš to zbytečně šíleně složité.

Bez kódu tu chybu nenajdeme.

1. To jsem tušil a myslím si, že jsem dost jasně napsal, že při sekupování musíš určit, kterou hodnotu chceš vybrat.

2. Taky si myslím, že bez toho to v MS SQL ani nejde, takže teď předpokládám MySQL.

3. Když se to pokušíš použít, jak jsem to napsal, tak nějak logicky.

SELECT * 
FROM   tabulka 
WHERE  ( osoba, datum ) IN (SELECT osoba, Max(datum) 
                            FROM   tabulka 
                            GROUP  BY osoba);

TMenuItem má vlastnost OnClick. Je to v dokumentaci.

A parametr Sender je ta kliknutá položka. To je taky v dokumentaci.

Při použití group by musíš v selectu říct, kterou hodnotu ze skupin vybrat. 

SELECT osoba, 
       Max(datum) AS datum 
FROM   tabulka 
WHERE  osoba IN ( ... ) 
       AND datum < ... 
GROUP  BY osoba
;

Identifikátory se "hledají" z aktuální úrovně do vyšších.

Pokud tady chceš používat stejně pojmenovaný parametr i vlastnost objektu (nejsem si jistý, jestli to vůbec jde), tak přednostně to bude parametr a vlastnost musíš napsat jako Self.vlastnost. Pokud kolize není, tak rozlišovat nemusíš. Když se podíváš na konvence pojmenovávání, tak ke kolizím ani nedochází.

Pusť konečně z hlavy pokusy používat název třídy jinak než při určování typu nebo vytváření instance.

Není. Brání ti něco si ji napsat?

Na obrázky je tag IMG a data určuje jeho atribut SRC.

Takže v HTML budeš mít

<img src="kurvafix.jpg" />

Prohlížeč když to uvidí tak stáhne a zobrazí ten obrázek.

https://www.youtube.com/watch?v=XDJEPjvbbs4

Možná se TForm automaticky pokouší načíst svůj formulář. Toto nevypadá na formulářovou třídu, tak není důvod dědit z TFormu.

TTesty = class(TObject)

No a takovou tu drobnost tam máš?

TestyOrganizer := TTesty.Create;

Konstruktor nic nedělá, na objekt se nedá dostat...

Tu proměnnou máš inicializovanou, že?

Napiš to i s těmi závorkami.

Tady jsou nějaká cvičení s řešením.
https://www.w3resource.com/php-exercises/

Pak jsou různé stránky, kde se tvoje řešení úkolu testuje na funkčnost. A po splnění vidíš řešení ostatních.
https://www.codewars.com/

Samozřejmě v angličtině.

V PowerShellu, ne v klasickém příkazovém řádku.

To

Samples/*/*

nezpracovává ten skript, ale shell to před spuštěním programu nahradí seznamem souborů.

Tipuju, že to zkoušíš ve Windows. Tam to můžeš napsat tahle

(dir Samples/*/*)

Kolikrát jsi psal něco := Třída.Create?

Chceš Form1, ne TForm1.

A nechceš náhodou zapisovat ty booleany, do kterých to načítáš?

Odkaz na form nebo cokoliv jiného můžeš do objektu předat stejně jako kdykoliv cokoliv jiného. Jako parametr jeho metody, nebo nastavením jeho proměnné.

Nakonec je ten Form1 pravděpodobně globální proměnná, tak to můžeš prostě napsat jako Form1.něco.

struct Table
{
	Table(size_t m)
	{
		size = m;
		lists = new List[size];
	}

	~Table()
	{
		delete[] lists;
	}

	void Insert(char *str)
	{
		unsigned int hashKey = DJBHash(str, strlen(str)) % size;
		lists[hashKey].Insert(str);
	}

	bool Search(char *str)
	{
		unsigned int hashKey = DJBHash(str, strlen(str)) % size;
		return lists[hashKey].Search(str);
	}

	size_t MaxKeyUse()
	{
		size_t max = 0;
		for (size_t i = 0; i < size; i++)
			if (lists[i].size > max)
				max = lists[i].size;
		return max;
	}

private:
	List* lists;
	size_t size;
};

Klidně tam udělej klasické pole, na tom nezáleží.

Jako odpověď na ten policy request odešleš obsah policy file (ukončený nulovým bajtem). Povolení všeho vypadá takhle:

<cross-domain-policy>
<allow-access-from domain="*" to-ports="*" />
</cross-domain-policy>

Tím se asi myslí maximum a průměr délek těch seznamů.

Takže si třeba do Listu přidej počitadlo vložených prvků.

Pak ještě tomu Listu doplň destruktor, ve kterém uvolníš alokovanou paměť (taky by bylo dobré pořešit kopírování). Z DJBHash vyhoď to modulo M, když zjevě používáš 2 různé hodnoty. A vykopej ty funkce InserHash/SearchHash a globální proměnné.

struct Table
{
	Table(size_t m)
	{
		lists.resize(m);
	}

	void Insert(char *str)
	{
		unsigned int hashKey = DJBHash(str, strlen(str)) % lists.size();
		lists[hashKey].Insert(str);
	}

	bool Search(char *str)
	{
		unsigned int hashKey = DJBHash(str, strlen(str)) % lists.size();
		return lists[hashKey].Search(str);
	}

	size_t MaxKeyUse()
	{
		size_t max = 0;
		for (List& list : lists)
			max = std::max(max, list.size);
		return max;
	}

private:
	std::vector<List> lists;
};

Table table1(M);
Table table2(M2);

table1.Insert(strdup("hrcprc"));
table1.MaxKeyUse();

Předpokládám, že ten hlavní form jde vybrat, tak ho vyber. Jinak je to form, který se vytváří jako první a myslím, že se to nikde extra neukládá, tak by mohlo stačit ten řádek s Form1 přesunout na začátek.

Available forms jsou pravděpodobně všechny formuláře v projektu. Auto-Create forms jsou ty, které se tady automaticky vytváří tím CreateForm.

T/Fhledani to nevidí, protože to asi není v unitách, které máš v uses. Kde je to definované můžeš najít třeba tak, že ten název prostě dáš vyhledat ve všech souborech :)

BPL/DCP adresáře se použijí asi jen pokud vytváříš/používáš externí knihovny. Asi to nastavovat nemusíš, nebo se podívej co tam je, když vytvoříš nový projekt.

#1 lesna bodka vevericka zavinac gmail bodka com
Ten widget má metodu pos, takže pro svoji proměnnou použij jiný název.
Operátor is testuje identitu objektu. To co jsi asi chtěl udělat by bylo isinstance.
Ten pokus o vytažení x a y je úplný nesmysl.

def __init__(self):
    self._click_pos = None
    ...

def mousePressEvent(self,event):
    self._click_pos = event.pos()
    ...

def drawPoints(self,qp):
    ...
    if self._click_pos is not None:
        #takhle bys ty souradnice mohl vytahnout
        #qp.drawPoint(self._click_pos.x(), self._click_pos.y())
        #ale nemusis...
        qp.drawPoint(self._click_pos)

#27 oxidián
První znak má index 1.

Nevím, jak si to přesně vyložit, ale dejme tomu, že by šlo o okenní aplikaci ve VB.NET.

Na formulář hodíš 6 textboxů a tlačítko. Do prvních 3 se budou zadávat ty hloubky a po stisknutí tlačítka se další 3 vyplní seřazenými hodnotami. Poklepeš na to tlačítko a vygeneruje se ti zhruba takováhle prázdná metoda: 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
End Sub

K obsahu textboxu se dostaneš přes jeho vlastnost Text. To je textový řetězec, takže ho bude potřeba zkonvertovat na číslo, protože budeme chtít porovnávat číselné hodnoty. Dejme tomu, že půjde o celá čísla, tak na to můžeš použít funkci Integer.TryParse, která indikuje jestli se konverze povedla. (Ve vlastnostech textboxu asi jde nastavit, aby do něj šlo zadat jen číselný text, ale pořád je to text)

Existuje metoda Array.Sort pro seřazení pole, takže ty hodnoty můžeš uložit do pole a to jednoduše seřadit.

Nakonec seřazené pole čísel převedeš zase na texty metodou ToString a vložíš do výsledných textboxů.

Nic těžkého, celé by to mohlo vypadat takhle:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim cisla(2) As Integer

    If Not Integer.TryParse(Textbox1.Text, cisla(0)) _
    Or Not Integer.TryParse(Textbox2.Text, cisla(1)) _
    Or Not Integer.TryParse(Textbox3.Text, cisla(2)) Then
        MessageBox.Show("Zadej celociselne hodnoty!")
        Exit Sub
    End If

    Array.Sort(cisla)

    Textbox4.Text = cisla(2).ToString()
    Textbox5.Text = cisla(1).ToString()
    Textbox6.Text = cisla(0).ToString()
End Sub

Nevím, jestli to funguje, ve VB nedělám, ale jako nástřel by to mělo stačit.

Je to rozbitý.

1. Takhle ti to asi vrátí jen záznam pro ten jeden adresář. Jestli chceš jeho obsah, tak asi bude potřeba přídat za to ještě masku.

2. Už FindFirstDalší v případě úspěchu naplní ten SearchRecord. Takhle ho přeskakuješ.

3. V Attr asi může být více flagů. Netestoval bych rovnost.

if FindFirst(TestyDir + '\*', faDirectory, SearchRecord) = 0 then
begin
  repeat
    if (SearchRecord.Attr and faDirectory) = faDirectory
      ..
  until FindNext(searchResult) <> 0;
  FindClose(SearchRecord);
end;

Tak napiš s čím konkrétně máš problem a třeba ti někdo poradí.

Nejsem si jistý na co se ptáš. V první řadě na cílovém serveru musí běžet policy-file server. Před spojením se Flash nejdříve podíva na policy file, jestli server to spojení dovoluje.

#21 oxidián
Je to někde ve vlastnostech projektu, nebo to můžeš napsat přímo do zdrojáku.

To pole je automaticky naplněné prázdnými stringy. Spíš bych tipnul, že máš index 11, ale počítáno od 0 je to 12. položka, takže mimo pole. Samozřejmě můžeš použít Length, resp. Low/High pro testování platnosti indexu.

Se zapnutými "range checks" {$R+} by to mělo hodit vyjímku, ale jinak to klidně vezme neplatnou hodnotu jako string a klekne to až na Access Violation když s ním něco děláš. Takže alespoň pro ladění to doporučuji zapnout.

#6 oxidián
A má ten ptest správnou hodnotu?

pc^ = 'L', (pc+1)^ = 'a', (pc+2)^ = 't' ?

A pořád všude try blok. Jestli to háže vyjímku, tak je asi něco blbě.

TImage.Picture, TPicture.Bitmap, TBitmap.Canvas, TCanvas.Pixels.

To je nejjednodušší cesta. Pravděpodobně bude i efektivnější způsob, chvíli se tím helpem proklikávej :)

#3 oxidián
Zkus se ještě podívat, co ti vrací ten PChar. Myslím si, že v D7 je všechno AnsiString, takže by neměl být problém, ale nic jiného mě nenapadá.

Jinak u vyšších verzí jsou i zdrojáky, tak se můžeš podívat na čem to klekne. Našel jsem třeba tady.

Já bych očekával to samé. Jseš si jistý, že je prázdný?

RAD Studio je balík obsahující různé produkty včetně Delphi.

Nejstarší verze helpu je tam pro RS2007 a v ní jsem našel tu samou funkci. Takže to asi bude to co hledáš.

RAD Studio, VCL Index, ExtractStrings.

Jestli máš originálku, tak bys měl mít kompletní help nainstalovaný (nebo na CD). Jinak jsem ho našel třeba tady. Jestli ho máš a jen ti nefunguje, tak je potřeba doinstalovat winhlp32.