|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
01.06.2011, 14:48 | #1 |
Новичок
Джуниор
Регистрация: 01.06.2011
Сообщений: 1
|
наследник компонента TstringGrid
На базе визуального компонента TstringGrid реализовать класс который реализует двухмерный массив. Количество рядков и столбцов должно задаваться через свойство. Элементы массива отображать в соответствующих ячейках компонента. На базе данного класса реализовать СЛАУ Гаусса.Мне сказали что нужно создать новый компонент на базе TstringGrid. Люди я новичок в этом помогите пожалуйста разобраться..
Вот часть кода компонента. unit stringGridmass1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids; type tstringGridmass1 = class(TStringGrid) private { Private declarations } function GetItem(x, y: integer): integer; procedure SetItem(x, y: integer; const Value: integer); protected { Protected declarations } function GetEditText(ACol, ARow: Longint): string; override; procedure SetEditText(ACol, ARow: Longint; const Value: string); override; public { Public declarations } // Конструктор, создающий массив с указанным размером constructor Create(AOwner: TComponent); override; destructor Destroy; override; // Соответственно, нужно возвращать размеры массива function sizeX : integer; function sizeY : integer; // Свойство для получения элемента массива property Item[x, y:integer] : integer read GetItem write SetItem; default; procedure ReadArray; procedure WriteArray; published { Published declarations } end; procedure Register; implementation procedure Register; begin RegisterComponents('Samples', [tstringGridmass1]); end; { tstringGridmass1 } constructor tstringGridmass1.Create(AOwner: TComponent); begin inherited; Create(AOwner); width:=199; height:=29; colcount:=10; rowcount:=5; fixedcols:=0 end; destructor tstringGridmass1.Destroy; begin inherited; end; Последний раз редактировалось Тарас1234; 01.06.2011 в 19:17. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Использование компонента idUdpClient без компонента TForm. | Riply | Компоненты Delphi | 2 | 18.02.2011 21:21 |
Потоки - Как сделать чтоб не предок ждал пока наследники подсчитают, а один наследник ждал другого? | SkrudjMakdak | Общие вопросы Delphi | 7 | 22.09.2010 09:03 |
Не компилиться класс наследник.. | coper | Общие вопросы .NET | 1 | 30.03.2010 00:39 |
Как записать данные в файл из компонента TstringGrid? | Николай ПН | Общие вопросы Delphi | 4 | 25.02.2010 12:49 |