Классы и объекты

[Valera]

Добрый день.

У меня в одном модуле есть два класса, один из них - форма. В другом классе есть function 1. Как можно результат этой функции передать на форму, например, в Edit.Text?

[was3110]

Edit1.Text:=экземплярКласса2.functi on1(); (если функция возвращает строку)
Здесь важно создать переменную ссылку на объект "экземпляр класса2".
И function1 должна быть доступна (не закрытый метод класса)

[Valera]

Спасибо, попробую сейчас.

[Valera]

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

Edit1.Text:=экземплярКласса2.functi on1(); (если функция возвращает строку)
Здесь важно создать переменную ссылку на объект "экземпляр класса2".
И function1 должна быть доступна (не закрытый метод класса)

Не получается. Что не так?
Вот код.
unit Unit1;

interface

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

type
TForm1 = class;
TFClub = class
private
sezon:boolean;
win:integer;
draw:integer;
public
constructor Create(win:integer;draw:integer);ov erload;
function ShowTable(fclub:TFClub):string;
published
property sez:boolean read sezon;
property w:integer read win;
property dr:integer read draw;
end;



/////////////////////////////////////////////////
TForm1 = class(TForm)
Edit5: TEdit;
StringGrid1: TStringGrid;
procedure FormCreate(Sender: TObject);



private
{ Private declarations }
public



end;
/////////////////////////////////////////
var
Form1: TForm1;
n:integer;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
Fclub1:TFClub;
i,j:integer;

begin

with StringGRid1 do
for i:=1 to RowCount-1 do //Çàãîëîâêè ñòðîê íå òðîãàåì
for j:=1 to ColCount-1 do //Çàãîëîâêè ñòîëáöîâ íå òðîãàåì
Cells[j, i]:='1';

n:=0;

begin

Fclub1:=TFClub.Create(StrToInt(Stri ngGrid1.Cells[1,1]),StrToInt(StringGrid1.Cells[2,2]));
Edit5.Text:=Fclub1.ShowTable(Fclub1 );

end;

end;

constructor TFClub.Create(win:integer;draw:inte ger);
begin
sezon:=true;
self.win:=win;
self.draw:=draw;

end;

function TFClub.ShowTable(fclub:TFClub):stri ng;
var
a:integer;
b:string;
begin
if fclub.sezon
then


a:=fclub.w +fclub.dr;
b:=IntToStr(a);

end;



end.

[veniside]

> Не получается

а что может получится, если результат вашей великолепной ShowTable() неопределён?

[Valera]

Что значит, неопределен? А как определить?

[veniside]

добавить строку:

result := 'Динамо-Киев — Чемпион!';

[was3110]

function TFClub.ShowTable(fclub:TFClub):stri ng;
var
a:integer;
b:string;
begin
if fclub.sezon
then


a:=fclub.w +fclub.dr;
b:=IntToStr(a);
result:=b;
end;

тогда функция будет возвращать эту строку...

[Valera]

Спасибо, уже добавил