 |
If OpenDialog1.Execute then begin // используем диалоге для выбора файла
|
|
|
|
Begin
VL:=TEdit.Create(nil);
VL.Parent:=Form1;
end;
End.
17.Написать программу, в которой при нажатии кнопки динамически создается объект типа Tlabel, в котором находится текст “ЛЕТО
procedure TForm1.Button1Click(Sender: TObject);
Var VL:TLabel;
Begin
VL:=TLabel.Create(nil);
VL.Parent:=Form1;
VL.Caption:='ЛЕТО';
end;
End.
18.Написать программу, в которой при нажатии кнопки динамически создается объект типа TMemo, содержащий текст: “Наступила весна!”.
procedure TForm1.Button1Click(Sender: TObject);
Var VL:TMemo;
Begin
VL:=TMemo.Create(nil);
VL.Parent:=Form1;
VL.Text:='Наступила весна!';
end;
End.
25.Написать программу, в которой на форме находятся кнопка Button1 и панель Panel1. При нажатии кнопки на панели динамически создается объект типа TEdit, в котором написан текст “Мороз и солнце!”.
procedure TForm1.Button1Click(Sender: TObject);
Var VL:TEdit;
Begin
VL:=TEdit.Create(nil);
VL.Parent:=Panel1;
VL.Text:='Мороз и солнце!';
end;
End.
31.Написать программу, в которой на форме находятся кнопка Button1 и панель Panel1. При нажатии кнопки на панели динамически создается объект типа TLabel, в котором написан текст “Весна!”.
procedure TForm1.Button1Click(Sender: TObject);
Var VL:TLabel;
Begin
VL:=TLabel.Create(nil);
VL.Parent:=Panel1;
VL.Caption:='ВЕСНА!';
end;
End.
28.Написать программу, в которой на форме находятся кнопка Button1 и объект типа TstringGrid. При нажатии кнопки на объекте динамически создается объект типа TEdit, в котором написан текст “Привет!”.
Вариант 1
procedure TForm1.Button1Click(Sender: TObject);
Var VL:TEdit;
Begin
VL:=TEdit.Create(nil);
VL.Parent:=StringGrid1;
VL.Text:='Привет!';
end;
Вариант 2
procedure TForm1.StringGrid1Click(Sender: TObject);
Var VL:TEdit;
Begin
VL:=TEdit.Create(nil);
VL.Parent:=StringGrid1;
VL.Text:='Привет!';
end;
End.
26.Написать программу, в которой при нажатии кнопки динамически создается объект типа TButton с надписью “программа”.
procedure TForm1.Button1Click(Sender: TObject);
|
|
|
Var VL:TButton;
Begin
VL:=TButton.Create(nil);
VL.Parent:=Form1;
VL.Caption:='Программа!';
end;
End.
7.Написать программу, в которой при нажатии кнопки динамически создается объект типа TstringGrid, в котором во второй строке, третьем столбце находится текст “РОБОТ”.
procedure TForm1.Button1Click(Sender: TObject);
Var VL:TStringGrid;hr:integer;
Begin
VL:=TStringGrid.Create(nil);
VL.Parent:=Form1;
VL.Cells[2,1]:='РОБОТ';
end;
End.
10.Написать программу, в которой меняются местами первая и последняя строки объекта типа TStringGrid.
//Заносим значения
procedure TForm1.Button2Click(Sender: TObject);
Var i,j,k: integer;
begin
for i:= 1 to StringGrid1.RowCount do
for j:= 1 to StringGrid1.ColCount do begin
k:= random(100);
StringGrid1.Cells[j-1,i-1]:= inttostr(k);
end;
end;
end.
//Меняем СТОЛБЦЫ (НАДО СТРОКИ)
procedure TForm1.Button1Click(Sender: TObject);
Var NRow1,NRow2,j: integer; ws:string;
begin
NRow1:= StrToInt(Edit1.Text);
NRow2:= StrToInt(Edit2.Text);
for j:=0 to StringGrid1.RowCount-1 do begin
ws:= StringGrid1.Cells[NRow1,j];
StringGrid1.Cells[NRow1,j]:=StringGrid1.Cells[NRow2,j];
StringGrid1.Cells[NRow2,j]:= ws;
end;
end;
//СДЕЛАТЬ 2 EDITа, в них номер меняемых строк
---------------------------------------------------------------------------------------------------------------
Написать программу, в которой меняются местами четвертая и вторая строки объекта типа TStringGrid.
19.Написать программу, в которой при нажатии кнопки динамически создается объект типа TListBox, содержащий три строки: январь, февраль, март.
procedure TForm1.Button1Click(Sender: TObject);
Var VL:TListBox;
Begin
VL:=TListBox.Create(nil);
VL.Parent:=Form1;
VL.Items.Add('Январь');
VL.Items.Add('Февраль');
VL.Items.Add('Март');
end;
End.
23.Написать программу, в которой на форме находятся кнопка Button1 и панель Panel1. При нажатии кнопки на панели динамически создается объект типа TListbox с тремя строками: “ Весна ”, “Зима”, “Лето”.
procedure TForm1.Button1Click(Sender: TObject);
Var VL:TListBox;
Begin
VL:=TListBox.Create(nil);
VL.Parent:=Panel1;
VL.Items.Add('Весна');
VL.Items.Add('Зима');
VL.Items.Add('Лето');
end;
End.
5.Написать программу, создающую меню с элементами File, Edit, Open, Close, Exit.
//Вытащить на форму стандартный компонент TMainMenu => Щелкнув два раза по нему левой кнопкой мыши откроется меню, там создаем объекты нажатием левой кнопки мыши, затем во вкладке Object Inspector => Caption даем имя созданному объекту.
|
|
|
9.+++Написать программу, в которой построчно с помощью операторов последовательного метода доступа читается текстовый файл в объект типа TМемо. Использовать оператор readln. //Написана верно,но не работает
procedure TForm1.Button1Click(Sender: TObject);
Const d:array[1..12] of integer= (31,29,31,30,31,30,31,31,30,31,30,31);
Var F: TextFile; st:string;
tm:array[1..12] of real;
m:1..12;
data:string[5]; // dd.mm
min,ty,t:real;
i:integer;
Begin
for i:=1 to 12 do tm[i]:= 0;
ty:= 0; data:='';
Memo1.Clear;
if OpenDialog1.Execute then begin // используем диалоге для выбора файла
|
|
|
