Anonymní profil doma22 – Programujte.com

#10 doma22
Vďaka inému užívateľovi a jeho konštruktívnému prístupu k tomuto vláknu, som problém vyriešil a uzavrel, takže odpoveď tu dávam pre to, aby iný, čo by mali rovnaký problém, ušetrili čas( a gna keď sa bavíš s človekom, ktorý neštudoval IT, tak skratky typu - formu - a podobne jednoducho nepochopí, keďže nevie čom hovoríš )

- pointa je v tom, že vlastnosť ( property ) PopupMenu treba hľadať nie v vlastnostiach samotného PopupMenu, ale v vlastnostiach objektu ( samotný Formulár, TButton, TPanel a podobne ), na ktorom je PopupMenu položené

#10 Mircosoft
Ok diky za dovysvetlenie. Takže tým vysvetlením som už pre mňa uzavrel tému. Tie dve veci asi budú špecifikum Lazarusa

#15 Mircosoft
Diky za vysvetlenie, úplne som pochopil v čom je problém a o čom hovoríte, program je proste zastaralý zdrojový kód paskalu, ktorý sa dnes na windows 10 nedá spustiť. Bolo by to možné, ale program by ako sa povie musel celý preorať, teda napísať od znovu. Takže diky za reakcie, ale táto vec je pre mňa už uzavretá a tým je pre mňa uzavretý paskal ako taký ( myslím čistý paskal nie nadstavbu Lazarus).

#7 Mircosoft
No tomu sa hovorí koštruktívny dialóg a som rád, že sme sa k nemu zase vrátili ako na začiatku. Takže diky za vysvetlenie. Presne o toto mi išlo. Žiadne detajly, iba zhruba vysvetlenie pojmov, ktoré by pochopil i človek, čo do teraz bol iba bežný užívateľ, ktorý si inštaluje hry, op, či aplikácie, ale neprogramuje. Takže chápem už, čo je zhruba program, čo je zhruba aplikácia a čo je konzolová aplikácia. Bol by som rád ak by ste mi presne takto jednoducho iba zhruba povedali, čo si mám cca predstaviť pod pojmom symple program a instantFPC program. Len pre úplnosť, knižnicu chápem ako súbor funkcii a procedúr, ktoré môže využívať iný program, aby tieto funkcie a procedúry nezaberali zbytočné miesto v programe, keďže funkcie a procedúry môžem aktivovať aj odkazom?

#6 hlucheucho
No tomu sa hovorí koštruktívny dialóg a som rád, že sme sa k nemu zase vrátili ako na začiatku. Takže diky za vysvetlenie. Presne o toto mi išlo. Žiadne detajly, iba zhruba vysvetlenie pojmov, ktoré by pochopil i človek, čo do teraz bol iba bežný užívateľ, ktorý si inštaluje hry, op, či aplikácie, ale neprogramuje. Takže chápem už, čo je zhruba program, čo je zhruba aplikácia a čo je konzolová aplikácia. Bol by som rád ak by ste mi presne takto jednoducho iba zhruba povedali, čo si mám cca predstaviť pod pojmom symple program a instantFPC program. Len pre úplnosť, knižnicu chápem ako súbor funkcii a procedúr, ktoré môže využívať iný program, aby tieto funkcie a procedúry nezaberali zbytočné miesto v programe, keďže funkcie a procedúry môžem aktivovať aj odkazom?

#12 Mircosoft
Ten problém čo tu mám hodený, je už vyriešený, takže už sa nemusí riešiť. To s tým VLC som pochopil a bude to zhoda názvov, pochopil som, že knižnica s VLC s tým nemá nič spoločné, mňa vytočilo to, že ja som pochopil odpovede, ale moje odpovede pred tebou sa zjavne nepochopili, kde som jasne vysvetlil, prečo som hovoril o VLC prehrávači, naštvalo ma to, že miesto konštruktívného dialógu, kde sa počúvajú obidve strany, som sa dočkal na moju adresu zosmiešňovania, večne vysvetľovania toho istého  ( ako mám s.... na paskal a podobne ) a ešte aj vulgarizmov. No čo sa týka tohto problému, čo som tu dal, je už opravený ( písal som aj ako k tomu došlo ) a pre mňa uzavretý, takže ďakujem za reakciu a pomoc, ale už som to vyriešil.

#4 gna
HMMMM budem odpovedať Vašim štýlom, no je pekné, že viete čo je GUI aplikácia, ale ja keďže s it nemám nič, tak viem veľké h.... , čo je GUI aplikácia, ale dobre diky za vysvetlenie a pomoc.

#10 gna
No, no ľudia, ja sa tu snažím byť slušný, ale čo je moc, tak to je moc. Ako vážený aj ja mám tiež len jedne nervy a tým, že som sa neučil informatiku už na ZDŠ ešte neznamená, že mi tu môžete vypisovať veci typu citujem " debilita, pičovina " a podobne, dobre. Vážený páni možno ste dobrý alebo možno aj excelentný programátori, čo zarobíte 60, 100 a možno aj 500 tisíc, alebo i miliardy, ale ako 99% ľudí v kapitalizme a súkromných výrobných prostriedkov máte problém čítať s porozumením a odosobniť sa. Ja som Vám písal, ešte raz Začinam sa učiť programovať, táto veta neznamená, že idem sa dokonale naučiť paskal a končím, tak ako všetci ste začínali na paskale, tak začínam i ja, keď ste boli na strednej tak ste asi nezačali C++, či áno? A tento postup, kde začínam s jednoduchými vecmi a potom prechádzam na zložitejšie, vymysleli ľudia už pred tisícročiami, asi preto, aby ak použijem Váš slovník, obťažovali deti, mládež a učencov pičovinami a debilinami, nech im predsa len odkroja časť z ich života a času. Jasne som vám niekoľko krát napísal, že v žiadnom prípade nejdem do hĺbky a že, mám tu len pár vecí ( presne 9 z paskala a 3 z Lazarusu ), to určite nie je celý paskal. Ja Vám vždy presne odpovedám na Vaše otázky, pýtal si sa ma citujem " DvaOknaZmena? ", aspoň ja to tak beriem, keď tam je otáznik, no a ja som ti odpovedal, toť sio, ale bohužiaľ nie vždy mi pre zmenu zase odpovedáte Vy a dosť, často som sa musel opakovať, ale ok. Čo sa týka VLC odpovedal som Vám veľmi slušne, lebo neviem ako by ste odpovedali vy mne, ak by som Vám ja odpovedal, zkratene a v podstate povedané - No to je taká blbosť, blaboceš, debilina, pičovina a podobne. Jasne som povedal, že o knižnici VLC nič neviem, ale existuje VLC prehrávač, to je fakt a Vy miesto toho, aby ste si moju odpoveď prečítali s porozumením a povedali napríklad - áno je VLC prehrávač, no ten a ten myslel na VLC knižnicu - tu hneď útočite. Čo sa týka Red Alertu, áno spomenul som ho, lebo vy ste hovorili o ovci a ja o vlku, hluch..... to presne v prvej reakcii nenapísal, či hovorí o VLC knižnici, alebo o VLC prehrávači, a ja keďže o VLC knižnici som nič nevedel, tak som hovoril o VLC prehrávači, a áno tá hra je v takom formáte zbalená. Takže ok objasnil si mi o čom písal hlu...., ale ja som písal zase o VLC prehrávačí, už z spomenutého dôvodu, no a ak je Red Alert 2 zbalený vo formáte VLC, tak to asi ten Red Alert nejak súvisí, minimálne s VLC prehrávačom, keď je zbalený v VLC formáte, nikdy som netvrdil, že súvisí s knižnicou, ja som spomínal VLC prehrávač a VLC zbalený formát. No a čo sa týka toho spamu, čítajte moje odpovede s porozumením poprosím Vás. Ja som nepísal, že som si dal aktualizáciu z nejakého spamu. Jasne som napísal, že to bol spam, ale ten ma cez link poslal na oficiálnu stránku, takže to nebola nejaká aktualizácia, ale oficiálna aktualizácia, ktorá aj asi pomohla. Na záver som rád za tú pomoc, čo bola pred tým a čo prebehla, ale prehodnocujem svoj názor a áno cením si pomoc, ale už ma prešli chute na zoznamovanie, ak by ste ako som písal mali náhodou cestu okolo, pretože ľudí ktorí sú ponorený sami do seba, ľudí ktorých musím vyprosovať, ľudí ktorí nevedia plne počúvať iných v dnešnej super demokratickej dobe mám vo svojom okolí dosť až moc, a nie len v okolí, ale i vo svete ako takom. Všetko raz bude zastaralé aj C++, a keďže vývoj v tejto oblasti je obzvlášť rýchly, môže sa Vám stať, že príde ďalšia generácia a Vy budete v mojej koži, a tí nový mladí po Vašom vzore budú nie rovnaký, ale ešte horší, a potom uvidíme ako to budete brať, keď ako sa povie, sa karta obráti. Pretože nič prevratné som nepovedal, ak som napríklad povedal, že na programovanie nie je potrebná angličtina, keďže jednotky a nuly sú všade rovnaké ( v čom vážený je strojový kód , v čom pracuje pc, v angličtine, nie v 1 a 0 ), ale ako typický ľudia dnešnej doby, je to hlúposť, haha a podobne, pretože dnes ľudia nie sú schopný spájať vedomosti, ktoré doslova trhajú oči do väčších celkov, keďže najlepšie sa ovládajú masy ak majú tunelové videnie, ja a môj svet, inak nič neexistuje. Ďakujem za pomoc, už som si myslel, že predsa ešte existujú aj normálny ľudia, no mýlil som sa. 

#9 gna
Táto možnosť tam nie je, sú tam možnosti iba - Alingment, AutoPopup, BidiMode, HelpContext, Images, ImagesWidth, Items, Name, OwnerDraw, ParentBidiMode, Tag a TrackButton, takže áno Popupmenu tam nie je

#4 gna
No a čo sa týka VCL, neviem o knižnici VCL nič, počujem to prvý krát, ale skutočne existuje aj VCL prehrávač, používam ho už roky na ako som spomenul prehrávanie videi a filmov ( aby ste nepovedali, dal som si tú snahu - VCL media player ) a na stránke - old game - je red alert 2 spakovaný v tomto formáte

#7 gna
Ak si pozriete program, tak zistíte, že po spustení Vám vyskočí okno, kde máte riadok s textom a tri tlačidla, prvé po stlačení Vám vyhodí okno s ok, kde je text z riadku, druhé tlačidlo Vám prepíše text v riadku a tretie by malo zavrieť okno a tým ukončiť program, text v riadku sa dá prepísať i bez tlačidiel. Názvy programov sú pracovné, ak by som chcel udávať presné názvy, tak program by sa musel volať asi hlavné okno s riadkom na text a tromi tlačidlami, čo by bol asi dosť dlhý názov, nemyslíte? Takže toľko k DvaOknaZmena? No a čo sa týka toho OnExit tak som ho tam dal pre to, že OnClick nereagovalo, ale včera som sa spojil s technickou podporou toho spamu, dali mi dáku aktualizáciu a už to funguje, prečo to tak je netuším. 

#2 gna
Veď to aj chcem, používať to, čo je môj cieľ, ale ako si mám vybrať správnu možnosť, ak neviem aké sú to možnosti, ja nechcem žiadne detajlné vysvetlenie, ide mi o to, aby som vedel, keď napríklad mám rád orechovník, že to je práve tá možnosť, čo mi ten orechovník poskytne, preto sa pýtam na tie pojmy

#5 hlucheucho
No veď to je ten problém, ja to totiž mám tak zapísane, ale nič nerobí 

unit DvaOknaZmena1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TfrmOkno }

  TfrmOkno = class(TForm)
    btnPotvrdit: TButton;
    btnZmenit: TButton;
    Moznost: TButton;
    edtMeno: TEdit;
    procedure btnPotvrditClick(Sender: TObject);
    procedure btnZmenitClick(Sender: TObject);
    procedure MoznostExit(Sender: TObject);
  private

  public

  end;

var
  frmOkno: TfrmOkno;

implementation

//Premenujm formulár frmOkno napríklad na frmOkno
//Premenovanie je jednoduché pomocou vlastnosti Name
//Na formulár umiestnim editačné pole (TEdit) a nazvem ho edtMeno (edt - od slova Edit)
//Ešte pridám tlačidlo typu TButton a jeho meno bude btnPotvrdit (btn - Button)
//Nápis na tlačidle zmením jeho vlastnosťou Caption v Object Inspectore
//V prípade, že sa daný zdrojový kód nachádza v procedúre TfrmOkno.XYZ, objekt frmOkno môžem vynechať
//procedure
//TfrmOkno.btnPotvrditClick(Sender: TObject);
//begin
//  ShowMessage(edtMeno.Text);
//end;
//Zmeny počas chodu programu vytváram tak, že vložím na formulár tlačidlo a nazvite ho btnZmenit
//frmOkno.edtMeno.Text := 'Andrej';
//Niektoré vlastnosti, ako napríklad Text komponentu Edit, sa dajú meniť počas behu programu
//Iné sa dajú čítať, no ich hodnotu nemôžem meniť
//Volajú sa Read-only
{$R *.lfm}

procedure TfrmOkno.btnPotvrditClick(Sender: TObject);
begin
  ShowMessage(frmOkno.edtMeno.Text);
end;

procedure TfrmOkno.btnZmenitClick(Sender: TObject);
begin
  frmOkno.edtMeno.Text := 'Andrej';
end;


procedure TfrmOkno.MoznostExit(Sender: TObject);
begin
  Close;
end;

end.                              

Ako nie každý program, čo ide Vám, ide mne, neviem prečo, ale proste to tak je, nepomôže ani keď program maximalizujem

#7 gna
No len tých vlastnosti je tam viac, ktoré sú v angline, ono ten Lazarus, čo mám nie je kompletne v čestine

#4 gna
property je udalosť?

#2 contactforhelp
Yeah. Thanks for help. I suspected it might be that. I had an antivirus program that cleared my cookie, but thanks to the crown, I can't afford to renew my license. Exactly since I got stuck in my pc cookie, I have problems with WinRar, so I think exactly for those tracking cookies. So this PopupMenu doesn't work for cookies in this program?

#2 hlucheucho
Aha, a neviete mi poradiť kde by som tú dokumentáciu našiel ( nejaký link ), lebo Lazarus som iba stiahol z internetu bez dokumentácie, a študijný materiál som tiež zohnal iba z netu, teda nemám žiadnu odbornú knihu, alebo podobne k Lazarusu. Iba to čo tam dal suloweb, nič viac. Čo sa týka toho TForm, tak pochopil som to tak, že do tých zátvoriek dám TForm a program sa zavrie, je to správne? No a čo sa týka VCL, no tiež sa čudujem prečo ten Red Alert 2 dali do takého formátu, VLC som roky používal iba na prehrávanie videi, keďže to bol jediný prehrávač čo som našiel, ktorý nemal problém zo žiadným videom.

#13 JerryM
Ľudia, ja už neviem ako mám to vysvetliť. Problém s odborníkmi je v tom, že majú ako sa povie klapkové videnie a veci mimo odboru sú pre nich tak trochu vzdialené. Áno som historik, no ani zďaleka nie vášnivý. Vášnivý historici vedia dátumy ako napríklad v ktorom roku a dni, dokonca tí najvášnivejší ešte aj hodinu, kedy došlo k bitke pri Slavkove a podobne, preto sú to odborníci zase v histórii, ale to ešte neznamená, že chápu históriu ako takú, keďže história je odraz skutočnej povahy ľudstva a preto sa stále opakuje. Mňa zaujíma história ako celok, ako príbeh, aby som potom ako dnešná mládež nebol vyvalený z toho, že čuduj sa svete, aj v dokonalom kapitalizme sa s  prepáčením svine nájdu, aby ak mi to niekto oznámi, nebol z toho celý potentovaný ako som stretol nového Ajštajna. To k histórii. Čo sa týka programovania, tak predpokladám, že ste študovali informatiku, a teda Paskal a podobne, ste sa učili asi už na strednej škole. No a potom na čo Vás to učili na strednej škole, aby vám zbytočne odobrali kúsok zo života, no nie, na to, aby keď pôjdete na ďalšie programovacie jazyky ste mali na čom stavať, na to, aby ste pochopili základné princípy pri programovaní, aby ste nemuseli napríklad pri prvom kontakte s jazykom C rozmýšľať, čo tam máte vlastne napísať, či Ako sa máš, alebo write, alebo čo vlastne. Najprv sa musíte naučiť čítať a písať, aby ste sa mohli učiť po francúzsky, nie naopak. Najprv musíte vedieť malú násobilku, aby ste potom mohli riešiť tajomstvá vesmíru, kde už neriešite koľko je 5x5. Pozeráte sa na mňa z Vášho pohľadu, kde Vy ste sa tieto veci už učili prostredníctvom vzdelávacieho systému, ktorý Vám poradil ako na to, čo je a nie je podstatné. Skúste sa na to pozerať z pohľadu, človeka, ktorý okrem osobného počítača nemá s informatikou ani ťuk a opýtajte sa samých seba, ako by ste začali, keď tu nie je ani učiteľ ani nik, čo vám povie, že urobte toto a toto. Je to to isté, ako keby ste začali robiť na družstve zootechnika, tak tiež Vám poviem, že ak si chcete iba udržať prácu, nemusíte strácať čas botanikou a latinkou, či biológiou ovce, keďže na družstve máte iba kravy. No ak chcete aj rozumieť, čo to vlastne s tými zvieratmi robíte, keďže možno budete jesť aj Vy to mäso z kravy, tak ak Vám na tom záleží, nebolo by od veci  pozrieť sa aj na tieto veci. Samozrejme nie je potrebné ísť do absolútnej hĺbky problematiky, to nerobím ani ja. Základy z paskala musím zvládnuť, ak nechcem stráviť 20 rokov štúdiom C, kde ho potom už možno budem vedieť úžasne, ale medzi časom to bude zastaralé ako sa stal zastaralí paskal. Ja vôbec nejdem do hĺbky, ak by som chcel ísť do hĺbky, tak ako ste povedali, idem na školu a čítam skriptá. Tie veci, čo som tu dával boli zhruba základy. A tie čo som tu dal 3 z Lazarusu a táto vec sú posledné veci. Keď som čítal Vizual, tak presne preto, že som začal paskalom, som prvých cca 50 strán iba prečítal, lebo už z paskalu mi princípy boli jasné. To svedčí o to, že pri vlákne Lazarus - programy už v podstate riešim vyšší stupeň ako je paskal, keďže aj v C musím vedieť, čo je aplikácia, čo je program atď, keďže paskal iba zapnete a programujete. Áno viem, že direct je knižnica, pochopil som to pri Dume II, keď som si ho nainštaloval a hru nie a nie spustiť, lebo, že mu chýbala pre mňa vtedy dákasy dynamická knižnica. Pýtal som sa preto na to, že gna spomínal, že po úprave by bol tento program schopný existovať i v windows 10, tak som sa pýtal, či to je tá úprava, ktorá by to dokázala.

#6 JerryM
Teraz ma napadlo, že vlastne ak by som použil v tom chybnom riadku, respektíve zastaralom, nativeDirectX alebo tie ďalšie, tak program by fungoval i na Windows 10?

Nevie mi niekto povedať v čom mám chybu. Všetky menu idú, jediná chyba z môjho pohľadu je, že PopupMenu nejde, nech klikám s myšou kde chcem a s ktorou stranou chcem, nič sa nedeje. Ako možno som zle pochopil PopupMenu. Ja ho chápem ako keď napríklad kliknem vo Windows na plochu pravý tlačidlom na myške a vyskočí mi menu.

unit Standart;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, Menus, ExtCtrls,
  StdCtrls;

type

  { TfrmMoj }

  TfrmMoj = class(TForm)
    Panel1: TPanel;
    Tlac3: TButton;
    MainMenu1: TMainMenu;
    Menu1: TMenuItem;
    MenuItem1: TMenuItem;
    MenuItem2: TMenuItem;
    Moznost5: TMenuItem;
    Moznost4: TMenuItem;
    Moznost3: TMenuItem;
    Moznost2: TMenuItem;
    Moznost1: TMenuItem;
    PopupMenu1: TPopupMenu;
    Tlac2: TButton;
    Tlac: TButton;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckGroup1: TCheckGroup;
    Meno1: TMemo;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioGroup1: TRadioGroup;
    ScrollBar1: TScrollBar;
    Text2: TEdit;
    imgObraz: TImage;
    Text1: TLabel;
    procedure Tlac3Click(Sender: TObject);
    procedure MzdaClick(Sender: TObject);
    procedure Tlac2Click(Sender: TObject);
    procedure TlacClick(Sender: TObject);
  private

  public

  end;

var
  frmMoj: TfrmMoj;
  PocetRiadkov: integer;

implementation

{$R *.lfm}

{ TfrmMoj }

procedure TfrmMoj.MzdaClick(Sender: TObject);
begin
imgObraz.Canvas.Pen.Color := clGreen;
imgObraz.Canvas.Line(10, 10, 130, 120);
end;

procedure TfrmMoj.Tlac3Click(Sender: TObject);
begin
 ShowMessage(Meno1.Lines[0]);
end;

procedure TfrmMoj.Tlac2Click(Sender: TObject);
begin
 PocetRiadkov := Meno1.Lines.Count;
 {prepise posledny riadok slovom 'Ako'}
 Meno1.Lines[PocetRiadkov-1] := 'Ako';
end;

procedure TfrmMoj.TlacClick(Sender: TObject);
begin
 ShowMessage(Meno1.Lines.Text);
end;

end.
//Na tvobu menu použijem TMainMenu alebo TPopupMenu
//Umiestnim ho na formulár a 2x naňho kliknem
//V jej kontextovom menu môžem pridávať a odoberať položky (Insert New Item a Delete Item), posúvať ich (Move Up/Down) a vytvárať podmenu (Create Submenu)
//V Object Inspectore je možné meniť názvy (Name) a popisy (Caption) jednotlivých položiek
//Po dvojitom kliknutí na vybranú položku sa vytvorí jej udalosť OnClick
//Ak ho chcem po jeho vytvorení priradiť napr. editačnému poľu Edit1, zmeň vlastnosť nazvanú PopupMenu komponentu Edit1
//Ďalší používaný komponent sa nazýva Button
//Jeho vlastnosť Caption určuje nápis na ňom
//Ak chcem na formulár vložiť jednoduchý text, využijeme komponent Label
//Vlastnosť Caption, ako vždy, určuje tento nápis
//Už spomínaný Edit má dôležité vlastnosti Text (jeho aktuálny textový obsah), CharCase (prevod textu na veľké alebo malé písmená) a ReadOnly (logická hodnota určujúca, či je políčko určené len na čítanie)
//Komponent Memo je podobný Edit-u, ale môžem doňho napísať viac riadkov textu
//A zároveň sa dá použiť aj jeho vlastnosť Text, ktorá je typu string, teda s ňou môžem bežným spôsobom pracovať
//Počet riadkov zistím pomocou vlastnosti Count (podradenej Lines)
//Zaujímavým, no nie veľmi používaným komponentom je ToggleBox
//Toto tlačidlo môže byť buď v stave „vybrané“ - vtedy má jeho vlastnosť Checked hodnotu true alebo naopak „nevybrané“ - false
//Vybrané je vtedy, ak vyzerá byť vtlačené dovnútra
//Kockaté políčko CheckBox, známe aj z webových stránok, môže byť zaškrtnuté (hodnota vlastnosti Checked je true) alebo prázdne (false)
//Caption určuje nápis vedľa políčka
//Ak nastavím AllowGrayed na true, pole bude môcť byť aj šedé
//Vtedy zistím jeho stav vlastnosťou State
//Viac CheckBoxov môžem združiť do jedného komponentu CheckGroup
//Ten najprv umiestním na formulár, nechám ho aktívny (alebo doňho klikneme, ak nie je)
//Potom na palete vyberiem CheckBox a kliknem späť do CheckGroupu na formulári
//RadioButton sa od CheckBoxu líši tým, že z jednej skupiny môže byť vybrané len jedno z nich a ich vzhľad je kruhový
//Použitie vlastnosti Checked je rovnaké
//Častejšie ako RadioButton samotný sa používa RadioGroup - skupina políčok
//Pracuje sa s ním podobne ako s CheckGroupom popísanom v predchádzajúcom odstavci
//V Lazaruse je ScrollBar jednou z možností výberu číselných hodnôt určitého rozsahu
//Čím je „jazdec“ viac vpravo, tým je hodnota väčšia
//Minimálnu možnú hodnotu určím vlastnosťou Min, maximálnu cez Max
//Position určuje aktuálnu pozíciu posuvného „jazdca“

//Tu je príklad
//procedure TfrmMoj.scbPosChange(Sender: TObject);
//begin
// frmMoj.Height := scbPos.Position;
//end;     

V Lazarue existuje možnosť TButton s udalosťou Clik. Neviem ako nastaviť TButton, aby ukončilo program, keďže je tam možnosť aj OnClose, ale keď ju dám, tak nič nezavrie. Nevie niekto ako na to?

Môže mi niekto vysvetliť základný rozdiel medzi Aplikáciou, Programom, Jednoduchý program ( Simple Program ), Konzolová aplikácia a okamžitým FPC ( InstantFPC program ). Rozdiel medzi týmito vecmi a knižnicou je mi jasný. Pýtam sa na to preto, že ak programujete iba v čistom paskale, toto riešiť nemusíte, proste tam si na začiatku nič nevyberáte, avšak už v Lazaruse pri otvorení nového projektu si už musíte vybrať, okrem toho niektoré veci sú aj pri Cčku, takže by som povedal, že to nie je iba záležitosť Lazarusu.

#17 gna
Aj preto som presvedčený, že angličtina nie je základnou podmienkou programovania, jednotka je jednotka v USA, Veľkej Británii, ale aj v Rusku, Číne, Afrike, Južnej Amerike, či Austrálii, primárnou podmienkou pri programovaní je angličtina podľa mňa preto, že zatiaľ, aspoň ja o tom neviem, nik nepoužil iný jazyk pri programovaní ako angličtinu, ale keďže pc pracuje s 1 a 0, nič tomu nebráni, aby sa použil i iný jazyk, no samozrejme, že ak nie je na trhu, tak sa inak ako v angličtine programovať nedá

#17 gna
Tak ono z fatalistického pohľadu je Fabia auto aj Citroen, a ako ste poznamenali obidva majú 1 a spiatočku, ono z fatalistického pohľadu by sme mohli povedať, že paskal a C je to isté auto, keďže v pc hocijaký príkaz je iba v  1 a 0, či je to C, či C++, či paskal, či Lazarus atď, ale i keď vždy zatiaľ ide o 1 a 0 je rozdiel programovať v C a v napríklad paskale, keďže tam pribudli nové nastavenia, nové funkcie atď., takže ja iba hovorím, že áno to teraz len tak strelím do luftu, 99,9% to čo funguje v iba paskale, tak to funguje i v Lazaruse, ale predsa je tu to 0,1% čo v paskale pôjde, no v Lazaruse nie, ako napríklad ten integer

#8 JerryM

No tak žabky nejdu, ten balík s komanderom mi WinRar nerozbalí, takže ani tento pre mňa sympatický zrojový kód nepôjde, keďže je už teda zastaralí, to nič, tým som teda s paskalom ako takým skončil, teraz doraziť tie  veci z Lazaru

#4 gna
Ok s paskalom som skončil, neviete mi poradiť dáke fórum na Lazarus, mám tam 3 veci, ktoré by som si chcel objasniť. A je to už síce mimo programovania, ale už dlho zháňam Red Alert 2, jednotku som zohnal a cez DosBox ide, ale dvojku, som z oficiálnych stránok zohnal spakovanú iba vo formáte VLC a ja neviem tento formát rozbaliť. Len sa pýtam, či neviete o nejakej oficiálnej stránke, kde by to bolo v klasickom Zip, alebo Rar, čo by som vedel rozbaliť?

#8 JerryM
Aha dobre skúsim tie linky čo ste dali. No a čo sa týka veľkého programátora, tak ja ani nejak veľký programátor nechcem byť, nemám v pláne byť druhý Bil Gejc, ale ako nehovorím, že ak by sa niečo také zadarilo, tak že by som bol z toho nešťastný. Moja predstava je asi taká, že rozbehnem moje projekty, ktoré nie sú nijak extrémne náročné, a keď sa bude dariť, tak sa o to postarajú už ďalší ľudia, pretože v kapitalizme ak nie ste skutočne človek s podpriemerným IQ, tak život bežného zamestnanca je strata času, a najlepšia  cesta ako byť v permanentnom strese z roboty a neistej budúcnosti. V kapitalizme firmy fungujú tak, že ich majitelia v skutočnosti nemajú ani šajn aká je realita v ich firmách, a po istých rokoch v podstate nemajú ani šajn o novinkách ich firiem, čo zavadzajú na trh, keďže už dávno sa prestali venovať firemným produktom a vývoju, ale venujú sa obchodu  a luxusu, jednoducho už potom na tieto veci majú svojich zamestnancov, preto nechápem skadiaľ veľkopodnikatelia majú také veľké ego, keďže človek ako taký  môže existovať bez súkromných , no i štátnych firiem, ale bohužiaľ firmy bez zamestnancov nie, a potom sa poniektorí čudujú ako sa správa mládež a aké sú dnes medziľudské vzťahy

#15 gna
nie, nie, nepochopili sme sa, ja netvrdím, že FPC a Lazarus sú rozdielne veci, práve naopak. Hovorím, že princípy sú tam rovnaké, ale detajly nie ( teda ako hovoríte Vy, nastavenia, preto paskal integer áno, no Lazarus už SmallInteger ), teda aby som to povedal tak aby sme sa pochopili. Citroen a Fabia sú autá, fungujú tam rovnaké princípy ( motor, volant, späťaky, karoséria ..... ), ale v detajloch ( palubná doska, elektrotechnika, dizajn ......) sú iné, takže paušalne môžeme povedať, že sú to autá, no nemôžme povedať, že Fábia a Citroen je to isté a že všetko čo funguje v Fabii, bude fungovať i v Citroene a naopak.

#2 gna
Aha takže ten program, nebude fungovať ani s úpravou, keďže teraz to už funguje na iných princípoch?

#13 gna
Tak v FPC ( konkrétne 3 mám ), tak tam mám integer a paskal nerobí problémy, ale v Lazaruse ( konrétne 64 mám ), tak tam som ten integer musel zmeniť na smallint, inak by s tým Lazarus nepohol, ale chápem, že čo ste chceli povedať, že v princípe je to isté, respektíve, že základné princípy fungujú ako v Lazaruse, tak v Pakale. No a s tým Dosom som počítal, pre istotu mám aj DosBox, hlavne pre staré hry, tie sa mi zdajú krajšie, keďže tie nové sú dosť tmavé, povedal by som také pochmúrne, málo farebné a rozmazané 

Týmto by som paskal ukončil, keďže som presvedčovaný, že riešiť hlbšie paskal nemá zmysel, tak ok. Avšak na nete som našiel sympatický zdrojový kód, ktorý ma zaujal, a tým už by som s paskalom ako takým skončil, keďže som na základe Vašich odporučaní upustil od mnoho vecí. No to sa mi veľmi zapáčilo, a tento zdrojový kód by som chcel vedieť. V programe ide o to, že pomocou pohyblivého kurzora, by mi program mal umožniť kresliť, avšak ako náhle ho idem preložiť, zaseknem sa na riadku 11 ( scrbuf...... ) a nech robím čo chcem, nie a nie túto chybu odstrániť, možno má program viac chýb, ale keďže som sa zasekol na tom riadku, tak neviem ísť ďalej. Dokonca i po prepise do Lazarusu sa tento program pri preklade zasekne na tom istom riadku. Mohli by ste mi helfnúť s týmto posledným paskalovským programom:

program Kreslenie;

uses dos, crt;

 var MousePresent : Boolean;
     Mi : Pointer;
     R : Registers;
     scrbuf : array[1..4000] of byte absolute $B800:$0000;

function MouseInt(var nb: Word): boolean;

begin
 if MousePresent then
 begin
  R.AX := 0;
  Intr($33, R);
  if R.AX = 0 then
  begin
   nb := 0;
   MouseInit : False;
  end
  else
   begin
    nb := R.BX;
    MouseInit := True;
   end
 end
 else
  begin
   nb := 0;
   MouseInit := false;
  end
end;
procedure MouseShow;
begin
R.AX := 1;
Intr($33, R);
end;
procedure MouseRead( var x, y, bMask: Word);
begin
 R.AX := 3;
 Intr($33, R);
 x := r.cx;
 y := r.dx;
 bmask := r.bx;
end;
procedure writechar(x, y: byte; c: char);
begin
 scrbuf[(y-1)*2*80 + (x-1)*2] := ord(c);
end;
var x, y, bn, nb : word;
begin
GetIntVec($33, Mi);
if mi = nil then
begin
 mousepresnt := false;
 writeln('Mouse not present');
end
else
begin
 mousepresent := true;
 TextBackground(Green);
 ClrScr;
 TextColor(Yellow);
 if MouseInit(nb) then
 begin
  MouseShow;
  repeat
   MouseRead(x, y, bn);
   if bn and 1 <> 0 then
   begin
    x := x div 8 + 1;
    y := y div 8 + 1;
    writechar(x, y, '*');
   end
  until bn and 2 <> 0
 end
end;
ClrScr;
end.

#11 gna
Ďakujem za pomoc, v paskale readkey funguje, takže zdrojové kódy v paskale idú po tejto úprave ako majú, aj v Lazaruse táto úprava zabrala, hneď ako som integer nahradil SmallInt, LongInt nechcel prijať, ale SmallInt áno, takže ak som to pochopil správne v Lazaruse sa musí použiť SmallInt nie LongInt ani Integer?

#9 gna
Dobre skúsim to tam vpichnúť, no a to s tým stlačením okna sa mi zdá, že som to skúšal, ale priznám sa, že som skúšal už toľko vecí, že si nie som istý, či som to skúšal, možno nie, neviem, no určite vyskúšam všetky Vaše rady, ale dnes už kašlem na to, nechám si to na zajtra, diky za reakciu a pomoc

#4 gna
A diky za dovysvetlenie toho uholníka, takže som to pochopil správne ako som písal, že program bol prázdny a mal som tam iba procedúru, teda že som urobil krok A už nie krok B. Mal som také podozrenie, ale chcel som si to overiť u profikov a v tom linku o grafike som asi nepochopil, že to nebol príklad celého programu, iba procedúry, takže diky, teraz len keď by ste mi pomohli s tými readlnami, aby program pochopil, kde ktorý readln patrí. Predpokladám, že pri uholníku bude ten istý problém, preto asi tiež to close nezatvára aktívne okno, teda to grafické

#4 gna
Ale je pravda, že pri tom podnete s grafikou som použil iba jednoduchý zápis, môže to byť i tým?

 begin
  ovladac := Detect;
  InitGraph(ovladac, grafmod, 'C:\OVLADACE');
  readln;
  CloseGraph;
 end;

#4 gna
Aha, ďakujem za vysvetlenie, ale ako potom mám dosiahnuť, aby si program uvedomil, že tie readln majú fungovať v aktívnom okne ( okrem posledného ak by som tam pridal riadok, že pre ukončenie programu stlačte enter ), teda v tom grafickom a prečo pri prvom podnete s grafikou, kde sme riešili vyplnený kruh, program readln uplatňoval pre grafické okno, teda pre to aktívne, ktoré nakreslilo vyplnený kruh?

#3 gna
Vyskúšal som niekoľko krát opravený program, ale to close vôbec nefunguje, grafické okno vypnem iba klasicky krížikom, takže môžem to close odstrániť, alebo to tam musí byť?

#2 gna
Čiže vlastne musím použiť to, čo mi chýbalo pri programe zo včera Uholnik?

Je tu ešte jedná vec, ktorá ma zaujala z linku, čo ste mi dali na grafiku. V tomto materiále je príklad na polygon. Problém však pri prepise mám v tom, že ak ho prepíšem do paskalu, tak ak tam nechám readln, tak grafické okno nakreslí iba polovicu a nevyšrafuje pozadie, okrem toho grafické okno sa tvárí ako keby tam žiadne readln neboli, grafické okno po stlačení enteru  nezavrie a ani nespustí po stlačení enteru šrafovanie. No keď odstránim všetky readln, tak program spustí grafické okno, ale nečaká na enter, nakreslí, vyšrafuje a zavrie okno bez enteru. Keď zas prepíšem zdrojový kód do Lazarusa, tak zdrojový kód nechce skompilovať s hláškou,  že má problém s fondom integer.

program Polygon;

{$mode objfpc}{$H+}

 uses  Graph;

 const N      =  8;                    { počet vrcholov polygonu       }
       Obrys  = 15;                    { farva obrysu polygonu         }

 var   Gd, Gm : Integer;               { grafický driver a mód         }
       Seznam : array [0..N - 1] of    { zoznam suradníc vrcholov pol. }
                 record
                  X, Y : Integer
                 end;
       I      : 0..N;                  { index vrcholu                 }

begin { program }
 Gd := 9; Gm := 2;                     { 640 x 480 VGA                 }
 InitGraph(Gd, Gm, '');                { inicializácia grafiky         }
 for I := 0 to N - 1 do                { naplnenie zoznamu souradnicami}
  with Seznam[I] do                    { vrcholov polygonu             }
   begin
    X := 40 + I * 80;
    if Odd(I) then Y := 100            { "cik-cak"                     }
              else Y := 380
   end;
 SetColor(Obrys);                      { farva čiar                    }
 SetFillStyle(8, 14);                  { štýl výplne polygonu          }
 FillPoly(N, Seznam);                  { krezba polygonu               }
 Readln;                               { čakanie na stlačenie klávesy ENTER }
 SetFillStyle(11, 6);                  { štýl výplne okolia polygonu   }
 FloodFill(280, 300, Obrys);           { vyplnenia okolia boduov [280,300] }
 Readln;                               { čakanie na stlačenie klávesy ENTER }
 CloseGraph                            { poriadok a obnovenie textového m. }
end. { program }
                   

#10 JerryM
Aha, super, diky za pomoc

#7 doma22
Ako keď sa pozerám na to čo som mal ja a čo ste mi dali Vy, tak to druhé var som úplne vypustil, preto som to pochopil tak, že môj program je ako keby nedokončený, a polovica mu chýba, takže preto som písal, že v podstate som urobil krok A ale už nie krok B

#5 gna
No išlo mi o to, aby sa to grafické okno, čo vybehne po spustení programu, tak aby sa enterom zavrelo, neviem prečo to blblo, v predchadzajúcich prípadoch ( kde  sme riešili vyplnení kruh ) to fungovalo, proste snažil som sa o to, aby každý begin mal svoj end

#3 gna
Viem, že moje otázky sú pre Vás profikov asi dosť otravné, ale pýtam sa ich hlavne preto, aby som nie len ako sa povie odkopíroval, ale i pochopil, to hlavne preto, aby som, čo najviac eliminoval možné problémy pri tom, ako prejdem úplne na Cečko, aj keď viem, že určite i tam sa nejaké vyskytnú

#3 gna
Aha ďakujem veľmi pekne, takže chybu som urobil v tom, že v podstate som prvý krok urobil ( procedúra ), ale druhý krok ( zadanie ) som úplne vypustil?

#7 JerryM
Ešte ti poviem pikošku, čo platí asi len u nás, dokonca po novom, taký najčerstvejší nápad našej super vlády a ešte suprovejšieho hygienika je, že ak ideš do lesa na prechádzku, tak potrebuješ potvrdení o absolvovaní testu, samozrejme rúško povinné, to je taký najčerstvejší návrh v našom parlamente, len neviem komu budem to potvrdenie o teste v lese ukazovať, asi veveričkám

#7 JerryM
Ten internet si pozriem, ale JerryM neviem ako to je u Vás v ČR, ale u nás v SR máme všetko zavreté, okrem supermarketov, ktoré nám vláda nechala otvorené, aby sme tu nevykapali od hladu, pretože okrem potravín, chľastu a cigariet, ti jednoducho nič iné na kase nenablokujú, ale to skôr preto, že na veľkokapitál si v kapitalizme okrem Ruska nik netrúfne, tu nie nič otvorené, a knižnice už vôbec, ako som písal na úrad sa nedostaneš, maximálne do chodby a aj to musíš mať papierik o tom, že si bol na teste, do práce ak nemáš papierik, že si bol na teste, sa jednoducho nedostaneš, na poštu si môžeš ísť vybrať tak maximálne dôchodok, zaplatiť inkaso, či šek alebo zobrať dávku, zabudni na listy a podobne, a aj na to potrebuješ zase papierik o teste, takže preto som ti pred tým písal, že tu už ani nejde o kapitalizmus, to už nie je kapitalizmus, ale hororový despotizmus, čo je momentálne v SR, ale ako hovorím skúsim si to pozrieť na nete, hlavne tie knihy, no to už budem brať iba ako doplnok, a nepôjdem už do hĺbky, keďže ešte by som si chcel objasniť cca tri veci v paskale a potom ako sa povie dovi paskal 

#1 doma22 

program Uholnik1;

uses  Crt, Graph;

{----------------------------------------------------------------------}
procedure Uholnik (N: Byte; SX, SY: Integer; R: Word);
{----------------------------------------------------------------------}

 var Zoznam : array[Byte] of record            { zoznam vrcholov        }
                              X, Y: Integer
                             end;
     Alfa   : Real;                            { stredovy uhol         }
     I      : Byte;                            { index vrcholu         }

begin
 begin { Uholnik }
  if N > 2 then                                 { minimálne trojuholník }
   begin
    Alfa := 2 * Pi / N;                         { vypocet uhlov          }
    for I := 0 to N - 1 do                      { pre vsetky vrcholy   }
     with Zoznam[I] do
      begin
       X := SX + Round(R * Cos(I * Alfa));      { vypocet súradnic     }
       Y := SY + Round(R * Sin(I * Alfa));
      end;
     end;
    Zoznam[N] := Zoznam[0];                     { uzavreny polygon      }
    DrawPoly(N + 1, Zoznam);                    { kresba                }
    readln;
   end;
 end; { Uhelnik }
  begin
  readln;
  CloseGraph;
end.

pridal som tu ako vidíte begin - readln ....., lebo inak mi paskal nechcel vôbec kompilovať príklad z linku

Pozrel som si ten link, čo ste mi odporučili pri grafike, a zaujal ma tam príklad na uholník. Príklad som si odkopíroval zdrojový kód, ale čistý zdrojový kód mi paskal nechce kompilovať, lebo stále má problém s posledným end, a ak tam pridám ešte jeden begin, tak nevidím  žiaden uholník, iba čiernu obrazovku. Mohli by ste mi s tým helfnúť? Tu je zdrojový kód po prepise a úprave, aby bol aspoň spustiteľný, ale ako som už písal, po úprave vidím iba čiernu obrazovku.

#34 doma22
Ale nechajme politiku politikom a iným fóram

#5 gna
Aha veľmi pekne ďakujem za vysvetlenie, viem, že tu vytváram ako sa povie psie kúsky, ale prosím Vás berte to z rezervou, keďže sa učím ešte len programovať, preto tie psie kúsky. Ešte raz ďakujem za pomoc a vysvetlenie problematiky, čím môžem túto časť definitívne uzavrieť. Pomaly uzatváram Paskal, takže už tu toľko psích kúskov nebude, keďže som od mnohých vecí upustil ( ako napríklad vytvorenie hadíka v paskale), aby som ako ste mi radil nestrácal zbytočne čas, keďže Vaše rady beriem vážne a cením si ich.

#32 JerryM
A uznávam, že to je môj názor, a v žiadnom prípade nechcem nikoho meniť, ale to musím poznamenať, že ja v podstate nemám nič proti tomu, aby sa každý v prvom rade snažil sám a až potom žiadal o pomoc, to je podľa mňa úplne v poriadku, ale v kapitalizme to v podstate funguje tak, že kým to nie je hrdelný zločin, nie kedy, ako u nás momentálne ani dôkazy nemusia byť, ale zase aby som nekrivdil i na západe sa to deje ( Asnž a tak ) a kým to nie je neplatenie daní, štát má svojich občanov v podstate na háku, ak samozrejme neponúkam prácu a nemám konekcie, ale potom sa pýtam, na čo je v takom prípade štát, prečo potom mám postih ak neplatím dane, lebo ak máme fungovať ako v kmeňovom zriadení, kde v podstate to fungovalo ako sa povie rob čo chceš a pomôž si sám, tak je úplne nezmyselné platiť dane do štátneho rozpočtu, platiť subjekty, ktoré neprodukujú nič ( súdy, polícia, vojsko a podobne), takže práveže štát podľa mňa má povinnosť sa postarať, keďže dane platia nie len tí čo ponúkajú prácu, ale všetci občania, aj zamestnanci a platili dane aj tí, ktorí boli zamestnaný ako ja a vďaka akože korone kauze o tú prácu prišli, inak podľa potom nie sú potrebné štáty, súdy, polícia a podobne, keď sa mám o všetko postarať sám, ale ako hovorím, koľko ľudí, toľko názorov, čo je samozrejme v poriadku

#32 JerryM
Tu ani tak nejde o kapitalizmus, kapitalizmus je podľa mňa chybový systém, ktorý sa nedá opraviť, keďže ako náhle opravím jeden problém, padám do ďalšieho, ale to je vec názoru, a ja nepatrím k extrémistom pravicovým, ľavicovým ani náboženským, ku žiadnym, tak isto vidím i chyby v socializme, keďže komunizmus nikde na svete nebol, to bola len taká mantra pre ľavicových fanatikov, ako pre pravicových bájna demokracia, moju mamu napríklad v socializme vďaka udavačke podžubkali za to, že ma pokrstila, keďže je to národovkyňa a pri tom bola členkou strany, uznávala socializmus a do dnes je pre ňu spravodlivejší ako kapitalizmus, ale rozdiel je v tom, že i jej to ako sa povie osladili, no neprišla o prácu, teda chleba. Dnes ani nie je problém a v podstate to nikdy veľký problém  nebol žiaden izmus, problém je vždy ak sa dostanú na vedúce funkcie diletanti, nie je možné v žiadnom izme, aspoň ak vládne zdravý rozum, aby bol riaditeľ polikliniky hutník, to je ako keby bol baník chirurg, aj keď si vážim každú profesiu, ale pacient by mu asi pri operácii umrel. No a dnešný stav SR ani tak nesúvisí s kapitalizmom, ale možno by sa dalo nájsť aj nejaké prirovnanie pri programovaní, no keďže v tom som amatér, tak použijem prirovnanie z môjho vyštudovaného odboru. Ak v nejakej populácii budete pravidelne množiť/šľachtiť len tých najhlúpšich jedincov a inteligentných dusiť a likvidovať, potom Vám po pár generaciach populácia zblbne. Slovákom po 48, teda po Rakúsko - Uhorskom akože vyrovnaní išlo doslova o prežitie, buď si bol Maďar a mal si právo žiť, alebo nie, a to sa samozrejme odzrkadlilo i na národe.

#3 Kit
Aha, a to ANSI je nejaká funkcia, čiže ak by som chcel napríklad ako hovorí gna podčiarknutý text v konzole Windows, tak ten koniec ( begin - BeznyText..... ) je chybný?

#30 JerryM
Nad tým som už uvažoval, ale i keď je ČR a SR v podstate na tom rovnako, ako Slovák musím s smútkom skonštatovať, že my sme na tom horšie v týchto veciach, súvisy to hlavne s našou históriou, keďže od pádu Veľkej Moravy sa naša inteligencia zámerne likvidovala, najhoršie v Rakúsko - Uhorsku, kde i keď to bol žalár národov, predsa len český národ v podstate pod Viedňou mal lepšie možnosti sebazáchovy ako my pod maďarskou Budapešťou, za ČSR sa to síce uvoľnilo, ale i tak to nebolo pre Slovákov ružové, no je pravda, keďže chcem byť objektívny, nie fanatický ako je to dnes v móde, tak je pravda, že bez ČSR a aj bez českého národa by Slováci zanikli, je na škodu veci, že Praha to potom dosť často v ČSR začala zneužívať, bohužiaľ ako sa povie biele golieriky vždy robia iba zlobu medzi ľuďmi a národmi, a pritom som presvedčený, že ľudia bez tých bielych golierikov by vedeli žiť v mieri a pokoji, študoval som na SPU ( Slovenská Poľnohospodárska Univerzita ), keďže som veril, že nie je  možné vypláchnuť mozog ziadnému jednotlivcovi tak, že by mu nevadilo ak likvidujú jeho možnosť primárnej potreby ( jesť ), no mýlil som sa, je však i pravda, že rád pracujem zo zvieratami a strojmi, keďže tam sa vždy ukáže inteligencia človeka. Čo sa týka úradu, u nás to tu fungovalo tak, že ak ste nemali známeho, mohli ste zabudnúť, že by Vám úradník sprostredkoval rekvalifikáciu, chcel som rekvalifikáciu na SBS, či VZV, no nakoniec som si to musel riešiť po svojej osi, lebo by som tieto preukazy asi nemal do dnes, a dnes môj národ je v takom marazme, vďaka absolútne diletantskej a neschopnej vláde, že je problém sa len vôbec dostať na úrad a vôbec niečo riešiť s úradníkom, ja sa len modlím bratia Česi a Moravaci, a vôbec všetky národy na svete, aby sa takéto diletantské vlády neusadili i u Vás, lebo v tom prípade tu pre tú ich neschopnosť skutočne nastane tretia svetová, ale je pravda, že sme si toho idiota na vláde i v prezidentskom paláci zvolili sami, ja konkrétne nie, ale ostatní áno, vždy ma vytáčalo ak niektorí Vaši občania nadávali Slovákom do blbých Slovákov, tak ako i Maďari do buta tót, ale bohužiaľ keď vidím, čo za čudá sa po rozdelení u nás dostávajú k moci, tak už ani neviem, či mám vôbec právo sa nad tým rozčuľovať, ale ďakujem za poradenie i mimo programovania a ak sa mi podarí, lebo to u nás asi vie iba Boh, čo tí diletanti tu ešte zavedú, tak sa o tom porozprávam s tou mojou úradníčkou, predstavte si, že najčerstvejšie u nás sa stane riaditeľ polikliniky hutník, ktorý má ešte problémy vysvetliť jeho čudné podnikanie, veď to je úplne choré, to sa asi ani v Bangladeží, teda Mňanmarsku po novom nemôže stať

Bol by som rád ak by ste mi poradili pri tomto programe. Ide mi o to, že ak si ho pozriete, mám tam vlastnosti, ktoré sa hrajkajú s textom ( tučné písmo ...... ), ale vôbec neviem, ako do programu zadefinovať text, ktorý by tieto vlastnosti na text aj aplikoval. V programe sú i množiny, ale tie nie sú pre mňa podstatné, keďže som ich pochopil, aspoň si myslím. Ide mi hlavne o spomenutý text. Tu je program:

program Mnoziny;
type
 TVlastnosti = (psTucne, psKurziva,
  psPodciarknute);
 TPismo = set of TVlastnosti;
var
 BeznyText, Nadpis: TPismo;

begin
 writeln('Mnozina je uzitocny typ premennej, ale v podstate je to tiez forma datového typu');
 writeln('Mnozina môze obsahovat celé císla alebo iné ordinálne premenné, vsetky vsak musia byt rovnakého typu');
 writeln('Pocet prvkov je obmedzeny na 256');
 writeln('Ordinálne hodnoty sa môzu pohybovat od 0 do 255');
 writeln('V príklade som vytvoril mnozinu typu byte (celocíselny typ s rozsahom od 0 do 255)');
 writeln('Mnozinu definujem klúcovymi slovami set of a typom premennej');
//program mnoziny;
//var
// MnozinaCisel: set of byte;
// Mnozina2: set of 10..100;
 writeln('Do mnoziny môzem i vkladat prvky momocou hranatych zátvoriek');
//begin
// MnozinaCisel := [5, 7, 18];
// Mnozina2 := [100];
// Mnozina2 := [32..40];
 writeln('S mnozinami sa dajú robit i rôzné operácie podla tabulky Text programovanie.....Teoria');
 writeln('Môzem napríklad, ak sa chcem presvedcit, ci sa nejaké císlo naozaj nachádza v mnozine, pouzijem operátor in');
// if 4 in MnozinaCisel then
//  writeln('Prvok 4 sa nachadza v mnozine.');
//end.
 writeln('Pre pokracovanie stlac enter');
 readln;
 writeln('Avsak pri mnozinách sú i iné moznosti, jednu ako príklad dalsej moznosti ukázem');
 writeln('Prvkami mnoziny nemusia byt len císla ci znaky, ale i vymenovany typ');
 writeln('Ako príklad postací písmo');
 begin
  BeznyText:= [];
  Nadpis := [psTucne, psKurziva];
 end;
 writeln('Pre skoncenie programu stlac enter');
 readln;
end.

#28 gna
Plne s Vami súhlasím, je pravda, že som predpokladal, že zohnám si materiáli ako sa povie od nuli, rýchlo to prebehnem a idem ďalej. Uznávam, že to bol pohľad amatéra a ako sa povie veľké oči. Nepredpokladal som, že by mi paskal robil také problémy a ani vo sne som si nemyslel, že budem odkázaný na pomoc cez fóra. Ono sebakritika nie je zlá vec, hlavne ak sú to fakty, pravda a nie je to prehnané. Takže áno mal som veľké oči, je to pravda. No je mi ľúto, priznávam, položiť knihy čo som si kúpil len tak do poličky, keďže som investoval  do nich moje zarobené peniaze. Aj to bude asi chyba, ono bohužiaľ, ale realita pre melancholiu nemá veľké pochopenie. No už skutočne končím paskalom, mám tu fakt už len pár vecí a v Lazaaruse mi nie sú jasné iba dve. Takže aspoň to je moja predstava, možno aj mylná, keďže ja som zatiaľ iba amatér v programovaní, že cca do mesiaca uzavriem paskal a Lazarus, samozrejme ak mi niekto pomôže, čím by som sa mohol plne sústrediť už iba na vizual a dokončil grafiku v ňom, keďže ako som písal úplne na začiatku vlákien, išiel som súbežne, no a potom už sa plne venoval C a C++ i  Qt. Ale stále som Vám vďačný za trpezlivosť a pomoc a stále, ak by ste mali cestu okolo ako sa povie, platí, že rád sa s Vami, ak by ste chceli stretnem

#26 JerryM
Som veľmi rád, že mi pomáhate, keďže dnes je to už skôr rarita, ako samozrejmosť a cením si to. Viem, že paskal je dnes už skôr iba na učenie, a nie na nejaký reálný veľký zárobok, ale ako ste poznamenali, som úplný začiatočník amatér, takže musím začať pomaly. Aj s tým rátam, že istý čas to potrvá, kým budem môcť vôbec uvažovať o tom, že programovanie by ma mohlo uživiť a že to ešte ako sa povie potrvá dosť dlho kým budem schopný rozbehnúť moje vlastné projekty, preto aktívne hľadám prácu, aby som to nejak preklenul. Mám v pláne prejsť na C, a vytvoriť svoje projekty, ale zase na druhu stranu, ovládať programovanie v jazykoch kde ich licencie nie sú nijak viazané, si myslím, že to zas nie je tak úplne na škodu.

#24 doma22
A prepáčte, keď som sa už tak rozpísal, moje reálne meno je Jano

#23 gna
Aha, tak teraz som to už pochopil na plno, ďakujem veľmi pekne za pomoc. Veď to, že bol by som rád ak by som to potreboval do školy a mal učiteľa, ale situácia u mňa je taká, že ja už do školy nechodím, mám 37 rokov a léta školopovinní i neškolopovinní, mám už za sebou. Učím sa programovať samovzdelavaním, odbornou literatúrou, materiálmi z internetu a hľadaním pomoci na fórach. Učím sa niečo čo by som zvládol aj reálne robiť, keďže nie som vzrastovo nejaká gorila, aby som zvládol tie ich východné normy vo fabrike a po nehode, ani moja chrbtica nie je nič moc, ako nehovorím, že potrebujem vozík, ale dlhé stánie za pásom proste dám tak tri- štyri dni v kuse a potom mám už problémy, ale aby sme sa pochopili, nie som ani nejaké 40kg tintitko, okrem toho mám dosť prehľad o histórii a reálnom živote, z čoho potom vyplivajú animoziti keď som v kolektíve, keďže neznášam tie rečičky mimo reality o slobode a podobne , ani romantické bludy od Rozamundy Pilčer. So mnou sa život nijak extra nehral a všetko mám som si viac menej musel vybojovať, takže keď potom počujem vedľa seba tých ľudí mimo reality, tak mám nervičky. Preto som si urobil i kurzy SBS a VZV aby som sa v práci vyhol zbytočným konfliktom, no bohužiaľ dnešná situácia na trhu je taká, že na tieto pozície je ťažko sa dostať. Takže sa snažím nejak uživiť, ale súčasne sa snažím naučiť sa niečo, čo by mi zabezpečilo ako sa povie stabilitu v mojom živote. Takže ako som písal, nemám sa na koho obrátiť s pomocou a preto si veľmi vážim, že sa mi snažite pomôcť, vysvetliť a poradiť, za čo veľmi pekne ďakujem a ak by ste mali niekedy cestu do Popradu a Tatier, veľmi rád sa stretnem s Vami osobne. A čo sa týka toho školopovinného, hádam som tam neurobil chybu, keďže neovládam češtinu na 100%, tak ak by tam bola chyba, prosím neberte to nijak osobne, v žiadnom prípade som nechcel uraziť, ale hodil som to tu skôr na odľahčenie a ako vtip. Ešte raz ďakujem za pomoc

#20 gna
Ďakujem za odpoveď, chcel som už len vedieť, či by to malo nejaký vplyv konkrétnom príklade, to čo som spomenul, ale teda nemalo. Takže ešte raz ďakujem. Len teraz som z toho, čo píše JerryM tak trochu neistý. Teda pochopil som to zle s tou alokáciou? Chápem to zatiaľ tak, že rušenie zásobníku je tam pre uvoľnenie pamäte, čo viac menej je už tak trochu archaická vec, keďže dnešné programy toto už riešia, i keď chápem, že samozrejme nie všetky, ale teda i keď samozrejme existujú i dnes výnimky, tak vo väčšine prípadov to nie je nutné. Chápem to teda zle s tým rušením, je v podstate je tento mysliaci pochod v poriadku, alebo je to úplne zle?

#16 gna
To je posledná vec, čo mi nie je jasná, inak som už zvyšok pochopil a dynamické datové štruktúry uzavrel. Ďakujem za vysvetlenie prečo je v učebnici toto rušenie, keďže sám som nechápal na čo to tam vlastne je, keďže v knihe sa k rušeniu nijak extra nevyjadrovali, takže rušenie je tam v podstate z archaických dôvodov, keďže moderné programy už po ukončení alokujú pamäť, len ešte by som bol rád ak by ste mi vysvetlili, čo by sa stalo s týmto druhým programom ak by som urobil už spomenuté veci, či by sa to nejak prejavilo na chode programu

#16 gna
V prvom programe ( to je - Zasobnik1 ), za výpisom Zostalo nieco v zasobniku? program automaticky skočí na posledný výpis, ale v druhom programe ( to je - Obchod ), za výpisom Zostal niekto v fronte? program skočí na ďalší riadok ( to je - Fronta: ) a čaká na potvrdenie, preto som sa pýtal na to, čo by sa stalo ak by som tam napísal spomenuté veci, potom ich potvrdil enterom a ako by na to zareagoval program. 

Program Obchod;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes
  { you can add units after this };

type Nick = ^Clovek;
     Clovek = record
       meno: integer;
       dalsi: Nick;
     end;

var zaciatok, koniec: Nick;
    PlatiaciClovek: Nick;
    ukoncit:String;
    akcia : char;
    poradie: integer;

begin
  new(zaciatok);
  koniec:=zaciatok;
  poradie:=1;
   repeat
    writeln('Stlac klavesu a stlac enter. Novy vstup: n, Vystup: v.');
    readln(akcia);
    case akcia of
    'n':
      begin
        koniec^.meno:=poradie;
        poradie:=poradie+1;
        new(koniec^.dalsi);
        koniec:=koniec^.dalsi;
      end;
    'v':
      begin
        if zaciatok = koniec then
          writeln('fronta je prazdna.')
        else
        begin
          PlatiaciClovek:=zaciatok;
          zaciatok:=zaciatok^.dalsi;
          dispose(PlatiaciClovek);
        end;
      end
    else writeln('Fronta stoji.');
    end;
    write('Fronta: ');
    if zaciatok <> koniec then
    begin
      PlatiaciClovek:=zaciatok;
      repeat
        writeln(PlatiaciClovek^.meno, ' ');
        PlatiaciClovek:=PlatiaciClovek^.dalsi;
      until PlatiaciClovek = koniec;
    end;
    writeln('Ak chces skoncit, napiste koniec a stlac enter');
    writeln('Ak chces pokracovat, stlac enter');
    readln(ukoncit);
  until ukoncit = 'koniec';

  {rusenie fronty}
  if zaciatok <> koniec then
  begin
    PlatiaciClovek:=zaciatok;
    repeat
      PlatiaciClovek:=zaciatok;
      zaciatok:=zaciatok^.dalsi;
      dispose(PlatiaciClovek);
      PlatiaciClovek:=zaciatok;
    until PlatiaciClovek = koniec;
  end;

  writeln('Zostal niekdo v fronte?');
  writeln('Fronta: ');
  if zaciatok <> koniec then
  begin
    PlatiaciClovek:=zaciatok;
    repeat
      write(PlatiaciClovek^.meno, ' ');
      PlatiaciClovek:=PlatiaciClovek^.dalsi;
    until PlatiaciClovek = koniec;
  end;

  readln;

  dispose(zaciatok);
  writeln('Pre skoncenie programu stlac enter');
  readln();
end.            

#14 gna
Ďakujem, že ste mi odpísali. Ono čo sa týka zásobníku, tak v podstate je tam preto, že bol uvedený v samotnom zdrojovom kóde v knihe, čo som si kúpil - Programování pro úplné začátečniky - , ale teda ak som to pochopil správne, tak vlastne tam ani nemusí byť, ak by som zásobník vystrieľal? A ešte som sa chcel spýtať ohľadne zásobníka/fronty, že ako prejdem do neho, tak pc v druhom kroku po spomenutom riadku - writeln('Zostalo nieco v zásobniku?'); - , čaká na potvrdenie. Ja stlačím enter, aby som sa vyhol problémom, ale chcel som sa opýtať, že ak by som tam zadal číslo, či by program nespadol, alebo ako by potom program naložil s týmto údajom pri rušení zásobníku/fronty, prípadne ak by som zadal nejakú možnosť z case ( p, s, n, v ) a potvrdil ju enterom, ako by zareagovalo na to rušenie, alebo ak by som tam zadal iný znak ( písmeno, reťazec a podobne ) ako by na to zareagovalo rušenie

#11 gna
Skúsil som úpravy, ale nič, no ak som napísal program do Lazarusu, bez writeln('akcia >>', akcia, '<<');...., tak všetko ide, takže považujem to za úspech a beriem to tak, že program je funkčný a zvládol som ho a veľmi pekne Vám ďakujem za pomoc, ale ešte keď by som Vás mohol porosiť a ak by ste boli taký dobrý a vysvetlili mi ako ste to mysleli s tým zásobníkom/frontou, že je tam výpis, ktorý nemá čo vypísať, ak by ste mi to vysvetlili