| Цитата(koder @ 25.12.2005, 17:31) | | Можно простенькие примерчики описания классов |
Запусти делфи, и будет тебе самый простой пример, описания класса Tform1, который наследует свойства, поля и методы у Tform. А при ддобавлении объектов на форму, в структуру класса, добавляются функции-члены класса, и т.п.
| Цитата(koder @ 25.12.2005, 17:31) | | множеств,массивов |
| Код |
procedure TForm1.Button1Click(Sender: TObject);
var
n,m:set of char; //Тип множества
a:array[1..255] of string; //массив
i,j:integer;
begin
m:=['a'..'z'];
n := m-['d'..'k']; //работа с множеством
j:=0;
for i:=1 to 255 do
if chr(i) in n then
begin
j:=j+1;
a[j] := chr(i); //запись их в массив
end;
for i:=1 to 20 do
memo1.Text := memo1.Text + (a[i]) //вывод оставшихся элементов множества n
end;
|
На форму брось поле Memo и кнопку, на которую воткни эту процедуру...
ИМХО в качестве примера, помоему нормально. |
