О.О.П

[Heng]

Создал класс в отдельном модуле, но при обращении к нему из основного модуля вылезают какието ошибки, в чем дело ??

Созданный класс

unit CheckCom;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, ExtCtrls;

type
  TcheckCom = class
    s:string;
    v:Boolean;
    w,w1:integer;

    procedure getOpen(var s:string;var v:Boolean; var w:Integer);
    procedure getClose(var s:string;var v:Boolean;var w1:Integer);
    procedure DelCom(var s:string;var v:Boolean;var w,w1:integer);
    constructor Create(newS:string; newV:Boolean;newW,newW1:integer);
  end;

implementation
uses Unit1;

{ checkCom }

constructor TcheckCom.Create(newS: string; newV: Boolean; newW,
  newW1: integer);
begin
  s:=news;
  v:=newv;
  w:=neww;
  w1:=neww1;
end;

procedure TcheckCom.DelCom(var s: string; var v: Boolean; var w,
  w1: integer);
begin
  delete(s,pos('//',s),Length(s)-1);
   if (w=0) and (w1=0) and (v=true) then
  Delete(s,1,Length(s));
       w:=0;w1:=0;
end;

procedure TcheckCom.getClose(var s: string; var v: Boolean;
  var w1: Integer);
  var i:Integer;
begin
 for i:=1 to Length(s) do
  if s[i] = '}' then begin v:=false; w1:=w1+1;
   delete(s,1,pos('}',s));
   end;
end;

procedure TcheckCom.getOpen(var s: string; var v: Boolean; var w: Integer);
var i:Integer;
begin
 for i:=1 to Length(s) do
  if s[i] = '{' then begin v:=true; w:=w+1;
  delete(s,pos('{',s),length(s)-1);
  end;
end;

end.

Основной модуль

procedure TForm1.Button1Click(Sender: TObject);
var
i,j,x,y,n,q:integer;
p:integer;
s1,s2:string;
w,w1:integer;   // Ïåðåìåííûå äëÿ ðàáîòû â êîììåíòàðèÿõ
v:boolean;   // Ïåðåìåííûå äëÿ ðàáîòû â êîììåíòàðèÿõ
Comm:TcheckCom;



begin
x:=0; y:=0; n:=2;
                       // Îò÷èùàåì íàøó òàáëèöó
for i:=0 to sg1.ColCount - 1 do
 for j:=1 to sg1.RowCount - 1 do sg1.Cells[i,j]:='';
                                                     Label3.Caption:='';
 Comm.Create('',False,0,0);//w:=0; w1:=0; v:=false; //Óñòàíàâëèâàåì íà÷àëüíûå çíà÷åíèÿ ïðîâåðêè íà êîììåíòàðèè
 while x < memo1.Lines.Count do begin

  s1:='';
  s:=Memo1.Lines[x];             //Áåðåì ïî îäíîé ñòðîêå
  sg1.Cells[0,y+1]:=inttostr(x+1);    // çàïèñûâàåì íîìåð ñòðîêè â òàáëèöó
  s:=s+' ';
  Comm.s:=s;
                                 // Óäàëÿåì êîìåíòàðèè
   {getOpen;  //Íà÷àëî ìíîãîñòðî÷íîãî êîìåíòàðèÿ
   getClose; //Êîíåö ìíîãîñòðî÷íîãî êîìåíòàðèÿ
   DelCom;}

  Comm.getOpen(s,comm.v,comm.w);
 end;
end;

[Serge_Bliznykov]

создавать нужно так:

  Comm := TcheckCom.Create('',False,0,0);

[Stilet]

какието ошибки

Если не перечислишь их то тебе дадут "какоето" решение.

[Heng]

Comm.getOpen(comm.s,comm.v,comm.w); в этой строке после Comm. не показывается список полей и методов.

[BDA]

Heng - внимание на 2 пост в этой теме

[Sciv]

пишет [Warning] Unit1.pas(201): Variable 'Comm' might not have been initialized

Это не ошибка, это предупреждение. Которое, кстати, игнорировать не стоит, ибо гласит сие: "Переменная comm может быть неинициализирована." Имеется в виду, неинициализированна, когда исполнение кода дойдет до строчки 201, где она и вызывается. В таком случае уже во время выполнения вылезет какая-нибудь рантаймовая ошибка доступа к памяти...

В Вашем случае она 100% будет неинициализирована. Исправляется правильным кодом из поста Сержа (№2 в этой ветке)

[Heng]

Comm.getOpen(comm.s,comm.v,comm.w); в этой строке после Comm. не показывается список полей и методов.

про вот это кто-нибуть может пояснить ???

[BDA]

Я не знаю, как в Дельфи, но в С++ все поля по умолчанию Private.
Напишите:

type
  TcheckCom = class
  private:
    s:string;
    v:Boolean;
    w,w1:integer;
  public:
    procedure getOpen(var s:string;var v:Boolean; var w:Integer);
    procedure getClose(var s:string;var v:Boolean;var w1:Integer);
    procedure DelCom(var s:string;var v:Boolean;var w,w1:integer);
    constructor Create(newS:string; newV:Boolean;newW,newW1:integer);
  end;

[Вадим Мошев]

Сообщение от BDA

Я не знаю, как в Дельфи, но в С++ все поля по умолчанию Private.
Напишите:

type
  TcheckCom = class
  private:
    s:string;
    v:Boolean;
    w,w1:integer;
  public:
    procedure getOpen(var s:string;var v:Boolean; var w:Integer);
    procedure getClose(var s:string;var v:Boolean;var w1:Integer);
    procedure DelCom(var s:string;var v:Boolean;var w,w1:integer);
    constructor Create(newS:string; newV:Boolean;newW,newW1:integer);
  end;

Так у нас же обращение к полям и методам происходит в рамках одного и того же объекта. Или я что-то не понимаю?

[BDA]

Вадим Мошев, как я понял, ошибка возникает (как и должно быть) в procedure TForm1.Button1Click.