Názory ke článku Delphi II - 2. lekce
18. 2. 2007
V sekci tvorba pole
for i:=Low(pole1) to Hight(pole1) do
pole1[i]:=0; //takto se postupně vynulují všechny sloupce pole1
Místo Hight(pole1) má být jen High(pole1)
18. 2. 2007
Zjištění poču řádků dvourozměrného pole je následující
High(pole1);
a počtu sloupců jednotlivých řádků
High(pole1[?cislo radku]) napr. High(pole1[1]); -- vrati delku prvniho radku
16. 3. 2008
nebylo by lepsi vysvetlit constructor a destructor nez na to jit pres ukazatele?
3. 5. 2008
Mě to přijde strašně složitě napsaný. Jsem úplný začátečník, s programováním začínám a moc to teda nechápu.
13. 6. 2009
na zaciatku kapitoly ukazatele, vytvoris ukazatel na string ale ukazujes nim na premennu "prom" ktota je integer, spravne by tam asi malo byt prom:string
21. 2. 2010
Zdravím, potřeboval bych vědět, jak přiřadit k obrázkům určitou hodnotu. Děkuji
26. 2. 2011
ako mala byt ta posledna uloha?? vzdy mi to po kliknuti pripocita 1 ale len jeden krat ...
Možné řešení úkolu
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
PocetKliknuti: integer = 0; //Určení a inicializace proměnné
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
PocetKliknuti:= PocetKliknuti + 1; //Přičte 1
Button1.Caption:= 'Na tlačítko jsi kliknul : ' + IntToStr(PocetKliknuti) + 'x';
//Vypíše zprávu
end;
end.
Při návrhu v Properties jsem nastavil Form1.Caption na Klikátko a Button1.Caption na Na tlačítko nebylo kliknuto