Объектга мулжалланган дастурлаш тиллари

Режа

• 1. Delphi дастурлаш муҳити
• 2.Delphi дастурлаш муҳити ойнаси ва унинг элементлари
• 3.Синфлар ва объектлар
• 4.Визуал компаненталар библотекаси
• 5.Delphi нинг форма компоненталари

• 2000 йил Borland фирмаси Linux учун визуал восита ишлаб чиқаришни қарор қилади. Бу восита асоси албатта Delphi ҳисобланади.
• Янги библиотека компонент яратишда худди Windows га ёзилган коддан фойдаланилади ва бу Linux да ҳам қўшимча кодсиз компиляция қилинади

DELPHI МАЪЛУМОТЛАР ТИПИ

• Integer -2147483648..214748367
• Cardinal 0..4294967295
• Shorting -128..127
• Smalling -32768..32767
• Longint -21474836648..2147483647
• Byte 0..255
• Word 0..65535
• Longword 0..42949667295

• var
• I: integer ;
• begin
• I : = 11 ;
• I : = $а ;
• end;

КАСРЛИ МАЪЛУМОТЛИ ТУРЛАРИ

• Real48 2,9x10-39…1,7x1038
• Real 5x10-324..1,7x10308
• Single 1,5x10-45..3,4x1038
• Double 5,0x10-324…1,7x10308
• Extended 3,6x10-4931…1,1x104932

Булеан типлари

• TRUE (рост) ёки FALSЕ (ёлгон)
• var
• B: Bоolean ;
• Str : AnsiStising ;
• begin
• b: =true;
• if b =true then
• str : = «рост»
• else
• str : = «ёлғон»;
• end;

• procedure TForm1.Button1Click(Sender: TObject);
• var
• a,b,c:real;
• x1,x2,d:real;
• begin
• a:=StrToFloat(Edit1.Text);
• b:=StrToFloat(Edit2.Text);
• c:=StrToFloat(Edit3.Text);
• d:=b*b-4*a*c;
• if d>=0 then begin
• x1:=-(b-sqrt(d))/2*a;
• x2:=-(b+sqrt(d))/2*a;
• memo1.Lines.Add('d='+FloatToStr(d));
• memo1.Lines.Add('x1='+FloatToStr(x1));
• memo1.Lines.Add('x2='+FloatToStr(x2));
• end
• else
• memo1.Lines.Add('тенглама ечимга ега эмас');
• end;

МАССИВЛАР

• Ўзгарувчи номи: array [қиймат оралиғи] of массивдаги ўзгарувчи типи.
• Қийматлар оралиғи - бошланғич қиймат .. охирги қиймат қўринишида бўлади. Улар ўртасига икки нуқта (..) қўйилади

• var
• B: array [0..99] of integer;
• begin
• b[0] : = 1 ;
• b[1] : = 2;
• end;

DELPHI ДА ПРОЦЕДУРА ВА ФУНКЦИЯЛАР

• Procedure Examp1;
• Var
• I: integer;
• Begin
• I:=10;
• End;

• function Exampl:Integer;
• var
• I: Integer;
• begin
• I : = 10 ;
• Result = I ;
• end;