Metodologija izlaganja gradiva

• Upoznavanje sa radnim okruženjem

• Ulaz-Izlaz, Dodeljivanje, Labele i EditBox

• Dogadjaji, Dugme

• Učitavanje

• Štampanje

  • Upisivanje u EditBox

  • Upisivanje u Labelu

• If i CheckBox

• Case i RadioGroup

• Neke korisne tehnike za rad sa petljama u Delphi-ju

  • Naredbe ciklusa

  • ShowMessage

  • InputBox

  • String u više redova

  • Komponenta Memo

• Potprogrami

• Modularno programiranje

• Program u Delphi-ju

• Array i StringGrid

• Slogovi

• Objekat

Upoznavanje sa radnim okruženjem

• Glavni prozor

  • Palete

  • Komponente

• Inspektor objekta

  • Osobine (Properties)

  • Dogadjaji (Events)

• Obrazac (forma)

  • Postavljanje komponenti na obrazac

  • Menjanje osobina komponenti preko Object Inspektora

• Editor koda

  • Programiranje

Ulaz-Izlaz, Dodeljivanje, Labele i EditBox

Najveća razlika u odnosu na Pascal

• Tipovi (integer, real, string)

• Promenljive

• Izrazi

• Naredbe

• Naredba dodeljivanja

• Konverzija brojeva u stringove i obrnuto

  • StrToInt, IntToStr, StrToFloat, FloatToStr

U konzolnim aplikacijama se radi kao u standardnom Pascalu.

Dogadjaji, Dugme

• Potprogrami
• Dogadjaji
• Windows programiranje

Učitavanje

• Postaviti EditBox na obrazac
• Promeniti mu ime, osobina Name (Edit_n)
• Obrisati Edit_n.Text
• Postaviti Labelu na obrazac
• Postaviti Label.Catption na željenu vrednost (npr. 'n=')

ILI

• Postaviti dugme (Button) na obrazac
• Promeniti mu ime i Caption (npr. Button_Radi)

ZATIM

• Programirati odgovarajući dogadjaj (Dvostruki klik na dugme ili ime dogadjaja)

Na primer

procedure TForm1.Edit_nExit(Sender: TObject);
begin
  if Edit_n.Text = ''
  then n := 0
  else n := StrToInt(Edit_n.Text)
end;

Napomena: Plavim slovima su napisane opcione radnje.

Štampanje

Upisivanje u EditBox

• Postaviti EditBox na obrazac
• Promeniti mu ime (Edit_Rezultat)
• Obrisati Edit_Rezultat.Text
• Zabraniti upis u njega u toku izvršavanja aplikacije (postaviti osobinu ReadOnly na true)
• Postaviti Labelu koja blize opisuje rezultat
• U Button_RadiClick upisati

Edit_Rezultat.Text := IntToStr (n)

Upisivanje u Labelu

• Postaviti Labelu na obrazac
• Promeniti joj ime (Label_Rezultat)
• Postaviti joj pocetnu vrednost
• Programitati odgovarajuci dogadjaj

Label_Rezultat.Caption := IntToStr(n)

If i CheckBox

• CheckBox služi za ukljucivanje i iskljucivanje neke opcije
• Osobina Checked : boolean
• Upotreba

if CheckBox1.Cheched 
then ... {ukljuceno} 
else ... {iskljuceno}

Case i RadioGroup

• RadioGroup predstavlja celinu od nekoliko radio dugmadi od kolih samo jedno moze biti izabranao u jednom trenutku
• Nazivi opcija se postavljaju u Items
• Koje dugme je izabradno se cita iz ItemIndex. Prvo dugme u grupi ima indeks 0. Ako nijedno dugme nije izabrano ima vrednost –1.
• Upotreba

procedure TForm1.RadioGroup1Click (Sender: TObject);
begin
  case RadioGroup1.ItemIndex of
    0 : Label1.Color := clRed;
    1 : Label1.Color := clBlue;
    2 : Label1.Color := clYellow;
  end;
end;

Neke korisne tehnike za rad sa petljama u Delphi-ju 

Naredbe ciklusa

• Da li se zna tačan broj prolazaka kroz petlju
  • DA: for
  • NE: while ili repeat
    • Da li kroz petlju mora da se prodje bar jedanput
      • DA: repeat
      • NE: while

ShowMessage

procedure ShowMessage (s:string);

Prikazuje se novi prozor u kome se prikazuje navedeni string.

Dugme OK koje služi za završetak rada sa tim prozorom.

InputBox

function InputBox (S1,S2,S3:string):string;

• S1 – naslovna linija
• S2 – poruka
• S3 – default vrednost promenljive koju ucitavamo

String u više redova

Dva stringa se mogu nadovezati jedan na drugoga operacijom konkatenacije (+).

U string se moze upisati i oznaka kraja reda sa #13.

Label1.Caption := ‘Sija sunce.’+ #13 + ‘Bas je lep dan.’

Komponenta Memo

• Višelinijska komponenta za ucitavanje vrednosti. Izgleda kao EditBox sa više linija. Linije se broje od nule.

• Osobine

  • ScrollBars,

  • Clear,

  • Lines,

  • Add, ...

Memo1.Clear;
for i:=0 to n do
Memo1.Lines.Add (IntToStr(i)+'. red')

Potprogrami

• Nema potrebe u predavanjima razdvajati procedure i funkcije.

• ULAZ I IZLAZ

• OBLAST VAŽENJA PROMENLJIVIH

• Uvesti ih što pre.

Modularno programiranje

• Interface

• Implementation

• inicijalizacija

Program u Delphi-ju

Glavni program

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.RES}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

Unit

unit Unit1;

Interface

uses Windows, Messages, ... , ExtCtrls;

type
  TForm1 = class(TForm)
    RadioGroup1: TRadioGroup;
    Label1: TLabel;
    Memo1: TMemo;
    Button1: TButton;
    procedure RadioGroup1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
{$R *.DFM}

procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
  case RadioGroup1.ItemIndex of
    0 : Label1.Color := clRed;
    1 : Label1.Color := clBlue;
    2 : Label1.Color := clYellow;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var i:integer ;
begin
  Memo1.Clear;
  for i:=0 to 9 do
    Memo1.Lines.Add (IntToStr(i)+'. red')
end;

end.

Napomena: Plavim slovima je napisan deo koda koji se pravi automatski.

Array i StringGrid

• Tabelarno prikazivanje vrednosti
• Kolone se se numerisu od 0 do ColCount-1.
• Vrste se numerišu od 0 do RowCount-1.
• Options.GoEditing postaviti na true.

StringGrid1.Cells [Col, Row : integer] : string

Slogovi

• Nema novih vizualnih komponenata

• Lak za razumevanje

• Može da bude prvi struktuirani tip

• Vrlo bitan za razumevanje objekata.

Objekat

Logično proističe iz koncepata

• Record-a

• Potprograma

• Oblasti važenja promenljivih