Rozdział 5
[ Powrót ]
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:
Umieść na formularzu przycisk i komponent Memo.
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 ]