«Delphi программалау тілі»

StringGrid1.Cells[1,2]:=’Hello’;

32. 
    сурет.
    

StringGrid1.Cells[0,0]:='Аты-жөні';

StringGrid1.Cells[1,0]:='Мамандық';

StringGrid1.Cells[2,0]:='Шифры';

StringGrid1.Cells[3,0]:='Курс'; StringGrid1.Cells[4,0]:='Топ нөмірі'; end;

Төмендегі суретте программаның орындалу нəтижесі көрсетілген.

32. 
    сурет.
    

32. 
    сурет.
    

var i, max, min, k, n:integer; // “Толтыру ” батырмасының коды Form1: TForm1; implementation {$R *.dfm} procedure TForm1.BitBtn1Click(Sender: TObject); begin

StringGrid1.Cells[0,0]:='Тауар аты';

StringGrid1.Cells[1,0]:='Бағасы';

StringGrid1.Cells[2,0]:='Саны';

StringGrid1.Cells[3,0]:='Жалпы бағасы';

StringGrid1.Cells[0,1]:='Кітап';

StringGrid1.Cells[0,2]:='Дəптер';

StringGrid1.Cells[0,3]:='Қалам'; StringGrid1.Cells[0,4]:='Күнделік'; end;

// “Есептеу ” батырмасының коды procedure TForm1.BitBtn2Click(Sender: TObject); begin

For i:=1 to 4 do

StringGrid1.Cells[3,i]:=inttostr(strtoint(StringGrid1.Cells[1,i])

*strtoint(StringGrid1.Cells[2,i])); max:=strtoint(StringGrid1.Cells[1,1]); min:=strtoint(StringGrid1.Cells[1,1]); k:=1;n:=1;

For i:=1 to 4 do begin

If max

If min>strtoint(StringGrid1.Cells[1,i]) then begin min:=strtoint(StringGrid1.Cells[1,i]);n:=i;end; end;

Edit1.Text:=StringGrid1.Cells[0,k];

Edit2.Text:=StringGrid1.Cells[0,n]; end; procedure TForm1.BitBtn3Click(Sender: TObject); begin

ShowMessage('Тауар бағасын жəне санын енгіз!') end; end.

Қосымшаның орындалу нəтижесі төмендегіше болады. (35- сурет)

Деректерді енгізудің InputBox функциясы арқылы жеке терезеде енгізуге болады. Функцияның жалпы түрі:

aйнымалы:=InputBox(‘тақырып’,’түсініктеме’,’мəн’) ;

Мəтіндік ақпаратты ShowMessage процедурасы арқылы экранға шығаруға болады.

Функцияның жазылу форматы:

ShowMessage(const Msg:String);

Мысалы: ShowMessage(‘Орындаған 4204- топ студенті- Уразов Дархан ’);

Нəтижеде экранға OK батырмасы бар шағын хабарлама терезесі шығады.

Деректерді экранға шығарудың күрделі функциясы- MessageDlg() функциясы. Оның жалпы түрі:

Мəн: =MessageDlg( хабарлама, тип, батырма түрі, анықтама контексі); Əдебиеттер: [1]-[7], қ[1]-[5]

Тақырыбы: Диаграмма сызу компоненттері .Additional парағының диаграмма салудың Chart компоненті.

1. 
   Индикаторды қолданудың ProgressBar компоненті
   
2. 
   Диаграмма сызудың Gauge компоненті
   

Дельфиде индикатор шығарудың ProgressBar компоненті қолданылады.

Компоненттің негізгі қаситетері: Max, Min, Position, Step.

Қарапайым диаграмма сызудың Gauge компоненті. Диаграмма түрін анықтаудың Kind қасиеті. BorderStyle, ForeColor, BackColor, MinValue, MaxValue, Progress, ShowText қасиеттері.

Формада секторлық диаграмма сызу мысалы. Уақыт санаудың GetTickCount API- функциясы.

Chart компоненті диаграммалар мен графиктер тұрғызуға арналған. Оның негізгі қасиеті болып – TcharSeriers типті бейнелеу стильдерін сипаттаушы Series қасиеті болып табылады.AllowPanning, AllowZoom, Title, Foot, Frame, Legend, SeriesList, View3d, т.с.с. қаиеттеріне шолу. Мысал ретінде оқушылардың реттік нөмері бойынша бағаларының графигін тұрғызу.