Rozdział 5

 [ Powrót ]


Przejdźmy od razu do nauki Object Pascala.

Funkcja Pred i Succ

Funkcja Pred zwraca poprzednik swojego argumentu np. Pred liczby 50 da 48. [ Pred(50) da 49 ] np:

var
x: integer;

begin
x:=10;

for i:=0 to Pred(x) do begin
memo.lines.add('To zdanie powtórzy się 9 krotnie');

Funkcja Succ natomiast odwrotnie - odlicza to tyłu. Succ(100) daje 101.

Łańcuchy

Istnieje kilka rodzajów łańcuchów: shortstrings, longstrings.
Łańcuchy typu shortstrings nie mogą przekroczyć 255 znaków, np:

var
   lancuch: shortstring; // Nie może przekraczać 255 znaków.
   lancuch2: string[5]; //Nie może przekroczyć 5 znaków

Wystarczy, że będziesz pisał samo string wtedy łańcuch nie będzie miał ograniczeń (długi łańcuch).

Komentarze

Mało pisałem o komentarzach w Delphi. Stosuje się je, aby  przekazać innym programistą jakąś wiadomość np. 

{Staszek, ten kod jest do d***}

Istnieje kilka rodzajów komentarzy: (* treść *), {treść}, //komentarz jednej linii

Kody ASCII

Każdy znak ma swój odpowiednik w kodach ASCII. Chciałbyś np. postawić znak  "©"? Nie ma sprawy. Naciśnij lewy Alt i przy wyłączonej klawiaturze numerycznej wystukaj 0169. Skąd to wiem? Taki jest odpowiednik tego znaku w kodzie ASCII. Zrób coś takiego:

  1. Umieść na formularzu przycisk i komponent Memo. 

  2. Treść procedury uzupełnij następująco:

procedure TForm1.Button1Click(Sender: TObject);
var
y,i:integer;
begin

for i:=32 to 255 do 

memo1.lines.add(inttostr(0)+inttostr(i)+'='+chr(i));

end;

Teraz po naciśnięciu przycisku na ekranie zobaczysz znak i odpowiadający mu znak ASCII.

Pliki dołączone

Pliki dołączone to pliki zawierające kod źródłowy który w trakcie kompilacji dołączony jest do twojego projektu.
W tym celu z menu File wybierasz New, a następnie wybierasz plik tekstowy. Piszesz w nim np.

const

Szerokosc=300;
Wysokosc=200;

Wybierasz filtr "Any File" i wpisujesz nazwę z rozszerzeniem *.INC. Żeby dołączyć taki plik d do projekru zrób coś takiego:

{ $I   PLIK.INC }

Wbrew pozorom to nie jest komentarz, a tzw. dyrektywa. Kompilator traktuje to tak, gdyby kod programu został tu wklejony.

Nie wspomniałem jeszcze o jednej rzeczy. Pisząc na przykład tak:

edit1.text:='Tekst który właśnie czytasz jest baaaaaardzo długi
i dlatego nie mieści się w jednej linii';

kompilator wygeneruje błąd. Oba wersy musimy z sobą połączyć znakiem "+".

edit1.text:='Tekst który właśnie czytasz jest baaaaaaardzo długi '+
'i dlatego nie mieści się w jednej linii

 

 [ Powrót ]