Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Компоненты Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 01.06.2011, 14:48   #1
Тарас1234
Новичок
Джуниор
 
Регистрация: 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.
Тарас1234 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Использование компонента 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