Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.02.10;
Скачать: CL | DM;

Вниз

Нет вывода   Найти похожие ветки 

 
RomanaPro ©   (2003-01-30 22:16) [0]

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) [1]

function PortIn - не метод формы, значит, в ней надо писать
Form1.Label1.Caption:=

а из раздела var Label1: TLabel; УБРАТЬ!!!



Страницы: 1 вся ветка

Текущий архив: 2003.02.10;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.019 c
7-29111
Hopkins
2002-12-04 20:32
2003.02.10
Не открывается лоток CD-ROM. Вроде все как написано...


1-28704
MixerPro
2003-01-30 17:12
2003.02.10
Поиск в TreeView


1-28799
msoftware
2003-01-31 12:51
2003.02.10
Вопрос по TreeView


1-28915
ИгорьК
2003-01-31 09:58
2003.02.10
HTML редактор


1-28894
XPatriot[d.m.b]
2003-01-30 20:55
2003.02.10
Графическая область