Нет вывода [D6, Win95/98]
RomanaPro © (2003-01-30 22:16:00)
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Label1: TLabel;
b:integer;
implementation
{$R *.dfm}
function PortIn(Port: byte):byte;
begin
Label1.Caption:=IntToStr(b);
end;
begin
b:=10;
PortIn(10);
end.
Не выводится значение 10 в метку TLabel, в чём
проблема?
MBo (2003-01-31 06:48:00) [1]
function PortIn - не метод формы, значит, в ней надо писать
Form1.Label1.Caption:=
а из раздела var Label1: TLabel; УБРАТЬ!!!
Наверх 
ЧАТ |
Орешник |
|
