| Autor | Správa |
|---|
Fórum: Ostatné Téma: Lazarus - premenne v OOP |
Odpovede: 19
Zobrazenia: 1021
| | Dakujem, uz v tom mam jasno. Existuje nejaky prikaz na opetovne nacitanie aplikacie? pripadne jej obnovenie? Bolo by to jednoduchsie, ako to vsetko nulovat a prepisovat hodnoty. Pripadne, ci by si mi nevedel vysvetlit jednoduchy sposob, ako na "new game". |
|
Fórum: Ostatné Téma: Lazarus - premenne v OOP |
Odpovede: 19
Zobrazenia: 1021
| | Teraz to funguje. Zaujmave je, ze som to skusal hned, ako prvu moznost a pisalo to chybu: Citácia: Circular unit reference to 'unit1' |
|
Fórum: Ostatné Téma: Lazarus - premenne v OOP |
Odpovede: 19
Zobrazenia: 1021
| kratka ukazka, ktora by mala nakreslit stvorec.
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
StdCtrls, stvorec;
type
{ TForm1 }
...
var
Form1: TForm1;
implementation
{ TForm1 }
procedure TForm1.Button1Click(... |
|
Fórum: Ostatné Téma: Lazarus - premenne v OOP |
Odpovede: 19
Zobrazenia: 1021
| Dakujem, toto som presne potreboval.
Nechcem tu zakladat X tem, tak sa este tu nieco opytam. Projekt uz je nakodeny, ale definicie triedy treba prepisat do samostatneho Unitu. Problem je v tom, ze nepozna form1, image1... , pricom unit forms mam v novom Unite zadeklarovany. |
|
Fórum: Ostatné Téma: Lazarus - premenne v OOP |
Odpovede: 19
Zobrazenia: 1021
| | Mal by som este nieco. Potrebujem na par sekund prerusit beh programu. Vo free pascale existoval prikaz delay. Lazarus ho nepozna. Pomocou timera to riesit nechcem, ak nemusim. |
|
Fórum: Ostatné Téma: Lazarus - premenne v OOP |
Odpovede: 19
Zobrazenia: 1021
| Dakujem. Toto som potreboval. Tento kod som uviedol, len ako priklad, kedze som nevedel vyjadrit co vlastne chcem.
Pracujem na jednom prejekte, a toto ma brzdilo. |
|
Fórum: Ostatné Téma: Lazarus - premenne v OOP |
Odpovede: 19
Zobrazenia: 1021
| Napriklad:
{ Thra }
Thra = class
sucet: integer;
procedure pocitaj;
procedure vypis;
end;
{ Thra }
procedure Thra.pocitaj;
begin
sucet := sucet + 10;
end;
procedure Thra.vypis;
begin
ShowMessage(format('%d',[sucet]));
end;
procedure TForm1.Button1Click(Sender: TObject);
var
hra: Thr... |
|
Fórum: Ostatné Téma: Lazarus - premenne v OOP |
Odpovede: 19
Zobrazenia: 1021
| Kód: Thra = class
sucet: integer;
procedure pocitaj;
...
end;
procedure Thra.pocitaj;
begin
...
sucet := sucet + pocitadlo;
...
end;
potrebujem si ten sucet pamätat. |
|
Fórum: Ostatné Téma: Lazarus - premenne v OOP |
Odpovede: 19
Zobrazenia: 1021
| Zdravim, mohol by mi niekto prosim vysvetlit, ako sa pracuje s premennymi v triede?
Premenna je deklarovana v triede, a v procedure sa s nou pracuje. Potreboval by som si zapametat jej stav. Cez funkciu to riesit nechcem, pretoze casom urcite pribudnu dalsie premenne. Dakujem za odpoved. |
|
Fórum: Obchody, reklamácie a právo Téma: mader |
Odpovede: 2
Zobrazenia: 294
| http://www.mader.sk/
Z toho eshopu som pred troma dnami objednaval tovar za 90e, s tym, ze si ho prevezmem osobne. No v BA ostavam uz iba dva dni. Vcera som im pisal email, ani nereaguju nanho. Mozem zrusit objednavku? |
|
Fórum: Diskusia Téma: Outdoor / Softsell bunda |
Odpovede: 4
Zobrazenia: 551
| Nakupne centra mam obehane  ale nic som si nevybral (cena/kvalita) Pri osobnom prevzati uz nemozem tovar vratit?
Pripadne by som si nechal poradit nejaky dobry obchod v BA |
|
Fórum: Diskusia Téma: Outdoor / Softsell bunda |
Odpovede: 4
Zobrazenia: 551
| Cawte. Rozmyslam nad kupou novej budny. Chcel by som si vypocut vase typy, pripadne skusenosti s nimi. Penazi vela nemam, cenova hranica by bola do 60e.
Najviac sa mi pozdava tato: http://www.mall.sk/panske-bundy-softshe ... Y#text-box
Neviem, ako je to s osobnym odberom. Ak by som si to chcel osob... |
|
Fórum: Hosting, servery a domény Téma: exohosting,premium hosting,elbiahosting |
Odpovede: 1
Zobrazenia: 690
| | Ja mam par stranok, na tomto hodtingu, hlavne pre moznost vyskladat si webhosting, aky mi vyhovuje, plus je tam moznost online podpory. Rychlost je celkom dobra, ci ti na to forum postaci netusim. |
|
Fórum: Ostatné Téma: Lazarus - rotate Image |
Odpovede: 3
Zobrazenia: 822
| | Ano uz to mam, dakujem fico pomohol si mi |
|
Fórum: Ostatné Téma: Lazarus - rotate Image |
Odpovede: 3
Zobrazenia: 822
| Uz som to vyriesil.
Mam este jednu otazku:
Ako zistim RGB hodnotu 1 pixelu? |
|
Fórum: Krčma Téma: Hľadám / hľadáš / hľadáme |
Odpovede: 2339
Zobrazenia: 105115
| | Potreboval by som nejaku grafiku na moj web. Takze na vrchu nech je zaujmavy dizajn, a ostatne si uz dorobim, a nech aby to bolo komapatibilne s repeat - x |
|
Fórum: Krčma Téma: Hľadám / hľadáš / hľadáme |
Odpovede: 2339
Zobrazenia: 105115
| |
Fórum: Krčma Téma: Vtipy V |
Odpovede: 1471
Zobrazenia: 118104
| http://auto.bazos.sk/inzerat/19751131/p ... 1000mb.php
Predam škodu 1000mb v specialnej vybave,ABS,ESP, navigačný systém, koža,klíma a ani ostatné nadštandartné veci tam niesu.Výkon motora 248 koní z toho 34 ťahá a ostatné žerú iba benzin.5stupňová prevodovka:4dopredu a 1 dozadu .cena je s majákmi... |
|
Fórum: Ostatné Téma: obrazok v delphi |
Odpovede: 8
Zobrazenia: 1110
| | Dakujem fajn tutorial, ale su tam len viac menej zakladne veci, potreboval by som nieco "obsirnejsie". |
|
Fórum: Ostatné Téma: Lazarus - rotate Image |
Odpovede: 3
Zobrazenia: 822
| Zdravim, pokusam sa otocit obrazok, pomocou sin, cos, ale neprekresli ho vobec.
procedure TForm1.Button2Click(Sender: TObject);
var
i,j: integer;
noveI,noveJ: integer;
begin
Image2.Canvas.FillRect(Image2.ClientRect);
for i:=0 to Image1.Width-1 do
for j:=0 to Image1.Height-1 do... |
|
Fórum: Ostatné Téma: obrazok v delphi |
Odpovede: 8
Zobrazenia: 1110
| | zdravim, potreboval by som nejaky material na pracu s bitmapami, alebo obrazkami, grafikou... Strihanie obrazka, miesanie farieb - pomocou RGB, preklapanie,nastavovanie kontrastu... Dakujem |
|
Fórum: Ostatné Téma: šablóny a autorské práva |
Odpovede: 16
Zobrazenia: 813
| | Teoreticky, ak stiahnem free template? A prerobim kod, je to trestne? Pretoze myslim, ze prerabat kod je legalne iba v open source licencii. |
|
Fórum: Diskusia Téma: KHL |
Odpovede: 4
Zobrazenia: 513
| | Ak slovan hral v extralige, bol som proti nim. No teraz im drzim palce, ak mi to vyjde pojdem pozriet aj na zapas. KHL tipujem, ale iba stralcov, a zatial sa dari |
|
Fórum: Diskusia Téma: Kam na vysku? I |
Odpovede: 1793
Zobrazenia: 118295
| |
Fórum: Frontend Téma: Da sa vytvorit meniaci sa obrazok na forum? |
Odpovede: 7
Zobrazenia: 741
| |
Fórum: Ostatné Téma: Presun prvkov pola |
Odpovede: 2
Zobrazenia: 445
| Zdravim, potreboval by som popresuvat prvky pola, ale nemozem prist na ten algoritmus. Ide o ulohu, kde mam 1 vybrany znak nahradit troma. Vypisat to viem, ale potrebujem to aj tak nacitat cele do pola.
//
Zatial by som to posuvam o 1 znak
uses crt;
var
a: array [1..100] of char;
x: str... |
|
Fórum: Krčma Téma: Asi som dosral výťah |
Odpovede: 67
Zobrazenia: 4552
| |
Fórum: Windows Téma: Windows 7 - všetko I |
Odpovede: 2290
Zobrazenia: 117376
| | Dakujem, ale ja myslim celkove zdielanie suborov na sieti. Pripadne to zablokovat heslom. |
|
Fórum: Windows Téma: Windows 7 - všetko I |
Odpovede: 2290
Zobrazenia: 117376
| | Zdravim, potreboval by som poradit, ako si zablokujem verejne zdielanie suborov. Nieco som vypol v zlozke - siete a internet, ale mam pocit, ze to nieje dostacujuce. |
|
Fórum: Sieťové programy Téma: microsoft virtual wifi miniport adapter |
Odpovede: 3
Zobrazenia: 1420
| | Na notebooku mojej sestry (asus eePC) sa nemozem pripojit na internet. Na domacu wifi siet sa pripojim, ale nefunguje iba internet. V sietovych pripojeniach som nasiel nove zariadenie: microsoft virtual wifi miniport adapter viac tu: http://pretaktovanie.zoznam.sk/viewtopi ... 0&p=955237 Myslim ... |
|