Názory ke článku Delphi - 3. lekce – Programujte.com

Nepříde někomu divný, že by tolik proměnných mělo stejný rozsah? Samozřejmě to je blbě. Má to být takhle:

Integer: od -2147483648 do 2147483647
Cardinal: od 0 do 4294967295
Shortint: od -128 do 127
Smallint: od -32768 do 32767
Longint: od -2147483648 do 2147483647
Int64: od -9223372036854775808 do 9223372036854775807
Byte: od 0 do 255
Word: od 0 do 65535
LongWord: od 0 do 4294967295

Předpokládám, že u reálných typů to je dobře.

jak teda zadám proměné hodnotu ?? udělal jsem to aby mi to zobrazovalo onu proměnou i (nějaké to číslo) a nael sem do začátku programu ale nevím jakým příkazem nastavit proměné hodnotu :( zkoušel jsem snad vše :
i = 1;
i = "1";
i : 1;
i : "1";
...

A zkoušel jsi
i := 1; ??:)

Chci se zeptat jak teda nadefinuji globální proměnnou? Nešel mi udělat ten úkol. Nešlo mi nastavit proměnné na začátku nulu..prostě to nejde..a pořád to tam háže chybu..potřebuji proměnnou nastavit jako globální a to tady autor vůbec nevysvětluje ale podle mě to je docela zásadní. Chtělo by to možná trochu utřídit ten výklad.......

ahoj no viem ze pisem asi uz neskoro,,ale predsa,,,Globalna premenna sa deklaruje nad slovo "implementation" tam kde mas vopred programom zadeklarovanu aj premennu "Form1:TForm", tam napises len zadas nazov svojej premennej napriklad "i" a musis urcit akeho je typu, tak napriklad integer. tak to napises takto,,, var Form1:TForm; i:integer;
ale ked uz chces dat svojej globalnej premennej "i" napriklad hodnotu 10 tak to musis urobit pomocou priradovacieho znaku ":=" takto "i:=10;" a najlepsie je to zadeklarovat na proceduru "procedure TForm1.FormCreate(Sender: TObject);" tato procedura sa ti vytvori ked dva krat kliknes na formular. a znamena vlastne ze sa pri spusteni programu vykona tato procedura pretoze je to ONCREATE cize pri vzniknuti...a ked sa ti spusti program tak automaticky sa premennej "i" prideli hodnota 10.

Nevim jak udelat aby to tlacitko slo a vice zmacknuti...tzn.Jak mam nadefinovat daksi kliknuti

tak tomu rikam dobrej diletantismus.
uc se, proti tomu nic nemam, ale nemas-li v problemu dobry prehled, neuc to ostatni (pozor: pravidlo o cumeni a uceni je do jiste miry jen nadsazka). zbytecne delas gulas v hlavach ostatnich, kteri hned ze zacatku budou spis zmateni tvym neodbornym "vysvetlenim" problemu.

do jiste miry mi to pripomina jeden "uvod do programovani turbo c" jednoho superexperta. na toho zatim nemas

macher tak napis kurz aj ty. Ja uz programujem v delphi nejaky ten cas ale som sa to ucil sam tak si citam kurz ci som sa to ucil dobre. A myslim ze kurz je napisany fajn, mne sa paci.

Viete čo je zaujímavé? Možno autor vie programovať v Delphi, ale nemyslím si že ľudia ktorý nevedia písať články by mohli pracovať na takomto portály. Článok je napísaný úplne debilne. Proste autor zadá úlohu, pritom vôbec nevysvetlí to, čo v úlohe musíme použiť. Ďalej necháva programátorov nech si domýšlajú informácie. Aspoň mi to tak pripadá:

Noa jak už vám snad došlo v této proceduře prostě přidáte proměnné požadovanou hodnotu.

To w3q:
Autor nevysvětlil co v úloze musíme použít? No tak co třeba hlavu? ;)
Ta úloha je hodně jednoduchá. A opravdu všechno co potřebujete znát v tom textu je.

Nicméně si myslím, že by bylo vhodné mít možnost si stáhnout zdrojáky toho co bylo popisované v lekci... aby měl žák možnost to porovnat s tím jak text pochopil a uměl si to tak nějak srovnat co kde vlastně je.

článek neni špatej... je to super pro lidi co uměj v jinym programovacim jazyku... pro lidi co s programováním uplně začínaj je to trochu horší mno... já nepříklad umim v pascalu a tak přechod na ObjectPascal a pochopení toho kurzu mi nedělalo větší problémy...

dpč jakým stylem jsi to psal, ......... už jsi nás naučil aby po kliknutí se měnila proměnná o čislo víc? xD nvm njde mi to do hlavy, hodtě sem řešení

V 2. tride som sa ucil v Borlande Pascal ale ani za boha neviem ako na tu DU nijak mi to nedochadza z toho clanku. prosim o pomoc

tak to jsem blázen umím sice zvýšit proměnnou o jedna ale při dalším kliknutí už se nic neděje
už fakt nevím jak to udělat a to uz mám s delphi zkusenosti

došlo tady k hodně nadávkám jak se to nedá udělat a také k nějakým chloubám jak je t jednoduché....vím že bych to měl asi pochopit s autorova zadání (bohužel jsem naprostý začátečník), tak bych chtěl poprosit někoho a vložení zdrojového kodu teto procedury
děkuji mnohokrát

hm .. mne sa ulohu podarilo do istej miery splnit, ale ma to jeden hacik .. po spusteny je na tlacidku hned cislo 1 a pritom som nan este ani nestihol kliknut, do kelu :D

procedure TForm1.BitBtn1Click(Sender: TObject);
var
Help:String;
begin
Help := ExtractFilePath(Application.ExeName) + 'help.txt';
Winexec(PChar('c:\windows\notepad.exe '+ Help), SW_SHOWNORMAL);
end;

Funguje to tak?

var
Form1: TForm1;
i : integer;
...
procedure TForm1.Button1Click(Sender: TObject);
begin
Button1.Caption:=IntToStr(i);
i := i+1;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
i := 1;
end;

end.

ty jo.. vite nekdo ja kto udelat? ja z toho clanku vim tak hovno :X

Reagoval na komentář od uživatele Hřibka :

Alespoň někdo to sem napsal...
V článku to není vůbec napsané a díky tobě sem si našel, kde jsem udělal chybu...děkuju...
A autore napsals to uplně na <>

taky se mi zdá, že to stojí za ho.no

Zdravím. Pokaždé co jsem napsal:

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
Button1.caption:=IntToStr(i);
end;

A klik na tlačítko Run, tak mi dole naskákali samé errory a oznacil se první řádek červeně. A nevím co mám špatně, když jsem postupoval podle vašeho návodu

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
i:integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin
Button1.caption:=IntToStr(i);
i:=i+1;

end;

takhle to taky funguje:

var
  Form1: TForm1;
   a :integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
a:=StrToInt (button1.caption);
button1.Caption:= IntToStr (a+1);
end;