Programming logic Delphi

Pemrograman dalam Delphi atau bahasa lainnya tidak akan bekerja tanpa logika. Logika adalah lem yang memegang kode bersama, dan kontrol bagaimana dijalankan. Sebagai contoh, seandainya kita sedang menulis sebuah program Procesor kata. Ketika pengguna menekan tombol Enter, kita akan memindahkan kursor ke baris baru. Kode tersebut akan memiliki tes logis untuk pengguna menekan tombol Enter. dengan menekan tombol enter tersebut harusnya dapat berpindah baris, jika tidak, kita terus pada baris yang sama.

If then else

  • Simple if then else

var
number : Integer;
text   : String;
begin
number := Sqr(17);          // menghitung 17 pangkat 2
if number > 400
then text := '17 squared > 400'    // jika kondisi benar
else text := '17 squared <= 400';  // jika kondisi salah
end;

  • Compound if conditions, and multiple statements

Kita dapat memiliki beberapa kondisi untuk if conditional. Dan kita dapat memiliki lebih dari satu pernyataan if then dan else klausa. Berikut adalah beberapa contoh:

if (condition1) And (condition2)   // Both conditions must be satisfied
then
begin
statement1;
statement2;
...
end              // perhatian jangan ditutup ';' - masih bagian dari'if'
else
begin
statement3;
statement4;
...
end;

  • Nested if statements / jika Bersarang

Sering kita menumukan suatu statemen atau pernyataan yang memliki banyak logis

if condition1
then statement1
else if condition2
then statement2
else statement3;

Logicial primitives

Sebelum kami perkenalkan ini, adalah tepat untuk memperkenalkan tipe data Boolean. Ini adalah tipe enumerasi, yang dapat memiliki salah satu dari dua nilai: Benar/True atau Salah/False. Kami akan menggunakannya di tempat kondisi di jika klausa di bawah ini untuk menjelaskan bagaimana mereka bekerja:

begin
if false And false
then ShowMessage('false and false = true');

if true And false
then ShowMessage('true and false = true');

if false And true
then ShowMessage('false and true = true');

if true And true
then ShowMessage('true and true = true');

if false Or false
then ShowMessage('false or false = true');

if true Or false
then ShowMessage('true or false = true');

if false Or true
then ShowMessage('false or true = true');

if true Or true
then ShowMessage('true or true = true');

if false Xor false
then ShowMessage('false xor false = true');

if true Xor false
then ShowMessage('true xor false = true');

if false Xor true
then ShowMessage('false xor true = true');

if true Xor true
then ShowMessage('true xor true = true');

if Not false
then ShowMessage('not false = true');

if Not true
then ShowMessage('not true = true');
end;

Case statements

  • A simple numerical case statement

var
i : Integer;
begin
i := RandomRange(15,20);  // Generate a random number from 15 to 20
Case i of
15 : ShowMessage('Random number was fifteen');
16 : ShowMessage('Random number was sixteen');
17 : ShowMessage('Random number was seventeen');
18 : ShowMessage('Random number was eighteen');
19 : ShowMessage('Random number was nineteen');
20 : ShowMessage('Random number was twenty');
end;
end;


  • Using the otherwise clause

var
i : Integer;
begin
i := RandomRange(10,20); // Generate a random number from 10 to 20
Case i of
15 : ShowMessage('Random number was fifteen');
16 : ShowMessage('Random number was sixteen');
17 : ShowMessage('Random number was seventeen');
18 : ShowMessage('Random number was eighteen');
19 : ShowMessage('Random number was nineteen');
20 : ShowMessage('Random number was twenty');
else
ShowMessageFmt('Unexpected number : %d',[i]);
end;
end;

  • Using enumeration case values

type
TCar = (Nissan, Ford, Rover, Jaguar);    // An enumeration type
var
car : TCar;                              // An enumeration variable
begin
car := Rover;                            // Set this variable
case car of
Nissan : ShowMessage('We have a Nissan car');
Ford   : ShowMessage('We have a Ford car');
Rover  : ShowMessage('We have a Rover car');
Jaguar : ShowMessage('We have a Jaguar car');
end;
end;

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s