Delphi-де кестелік ақпаратпен жұмыс істеудің StringGrid компоненті. Delphi қосымшасында

жүктеу/скачать 48,84 Kb.

бет	2/2
Дата	11.01.2022
өлшемі	48,84 Kb.
	#110817

1 2

Байланысты:
14 практиканың тақырыбы

32- сурет.

Батырма коды төмендегіше болады:

procedure TForm1.BitBtn1Click(Sender: TObject); begin

StringGrid1.Cells[0,0]:='Аты-жөні'; StringGrid1.Cells[1,0]:='Мамандық'; StringGrid1.Cells[2,0]:='Шифры'; StringGrid1.Cells[3,0]:='Курс'; StringGrid1.Cells[4,0]:='Топ нөмірі'; end;

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

сурет.

Мысал2: Тауар аттары, əр тауардың біреуінің бағасы жəне саны кестеде берілген. Əр тауардың жалпы бағасын табыңдар. Ең қымбат жəне ең арзан тауар атын шығарыңдар.

сурет.

Шешуі: Батырма кодтары төмендегіше болады.

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
Begin

max:=strtoint(StringGrid1.Cells[1,i]);

k:=i;end;

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(хабарлама, тип, батырма түрі, анықтама контексі);

жүктеу/скачать 48,84 Kb.

Достарыңызбен бөлісу:

1 2