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

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

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 23.11.2012, 19:47   #1
Heng
Форумчанин
 
Регистрация: 27.02.2012
Сообщений: 117
По умолчанию Создание класса задающего параметры Таблицы

Пытаюсь создать класс который устанавливает размеры таблицы но он что-то требует в скобках, что подскажите ! пожалуйста.
Siz.Sizee:=Siz.Size();

[Error] Unit1.pas(98): Not enough actual parameters

Код:
unit Unit6;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Grids, ComCtrls, Menus, ExtCtrls, jpeg;
type
  TTable = class
        Sizee:integer;
        constructor Create (NewSize:integer);
        procedure Size(n:integer);
       
    private
        n:integer;
       
    end;

implementation

uses Unit1;

{$R *.dfm}

constructor TTable.Create(NewSize: integer);
begin
 Sizee:=Newsize;
end;

procedure Ttable.Size(n:integer); //Ïðîöåäóðà çàäàåò ðàçìåð ïîëÿ ÀõÀ
begin
 n:=strtoint(form1.edit1.text);
 form1.Stringgrid1.ColCount:=n;
 form1.Stringgrid1.RowCount:=n;
 form1.Stringgrid2.ColCount:=n;
 form1.Stringgrid2.RowCount:=n;
end;

end;

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Grids, ComCtrls, Menus, ExtCtrls, jpeg;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
   
    procedure BitBtn2Click(Sender: TObject);
    
    { Private declarations }
  public
    { Public declarations }
  end;

  var
    Form1: TForm1;

implementation

uses  unit6;

{$R *.dfm}

procedure TForm1.BitBtn2Click(Sender: TObject);
var
 Siz:TTable;
begin
 Siz:=TTable.Create(StrToInt(edit1.text));
 Siz.Sizee:=Siz.Size();

end;

Последний раз редактировалось Heng; 23.11.2012 в 19:49.
Heng вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
ПАРАМЕТРЫ-КОНСТАНТЫ, НЕТИПИЗИРОВАННЫЕ ПАРАМЕТРЫ ПОДПРОГРАММ, МАССИВЫ И СТРОКИ ОТКРЫТОГО ТИПА Юрий62 Помощь студентам 1 04.12.2011 14:09
параметры турнирной таблицы NiCola999 Помощь студентам 3 27.02.2011 19:11
ПАРАМЕТРЫ-КОНСТАНТЫ, НЕТИПИЗИРОВАННЫЕ ПАРАМЕТРЫ ПОДПРОГРАММ, МАССИВЫ И СТРОКИ ОТКРЫТОГО ТИПА Kira09 Паскаль, Turbo Pascal, PascalABC.NET 0 19.12.2010 17:28
Параметры для Exсel - таблицы Djem1991 Общие вопросы Delphi 4 22.06.2010 10:21
Циклически задать однотипные параметры для многих компонентов единого класса chandrasecar Общие вопросы Delphi 4 25.01.2009 00:18