Вправа 3. Обмін даними. (с. 117)
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
a:array[1..5] of string;
begin
StringGrid1.Cells[0,1]:='a';
for i:=0 to 4 do
begin
a[i+1]:=Memo1.Lines[i];
StringGrid1.Cells[i+1,0] := IntToStr(i+1);
StringGrid1.Cells[i+1,1] := a[i+1];
Memo1.Lines[i]:='';
end;
end;
Завдання:
1. Зробіть зміни в проекті, щоб результати виводилися у вигляді не рядка, а стовпця таблиці.
2. Виконайте Вправу 4. с.119. Розклад уроків.
3. Зробіть зміни в проекті, щоб вхідні дані вводилися не через поле Memo, а через вікно введення InputBox (див. Вправа 2 с. 114)
ДЗ.: п.15, виконати завдання записані вище.
Немає коментарів:
Дописати коментар