Что означает TForm1 = class(TForm)>/STRONG>

[metamfetamin]

Что строчка означает я знаю TForm1 = class(TForm), но в листинге ниже используется строка TForm1 = class(TForm)>/STRONG> что она означает?????

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
 TForm1 = class(TForm)>/STRONG>
  Label1: TLabel;
  Label2: TLabel;
  Label3: TLabel;
  Label4: TLabel;
  Label5: TLabel;
  Label6: TLabel;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
    private
{ Private declarations }
public
{ Public declarations }
    end;
    var
Form1: TForm1;
hMapObj:THandle; //ссылка на проец.файл
PMapView:PLongInt; //адрес региона памяти
    implementation
{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);  
begin
//создание проецируемого в память файла
hMapObj:=CreateFileMapping( </STRONG>
$FFFFFFFF, //не дисковый файл
Nil, //атрибут секретности
PAGE_READWRITE, //чтение и запись
0,
SizeOf(DWORD), //размер
'shared_memory');//уникальное название
if hMapObj=0 then< /STRONG>
    begin
ShowMessage('Файл не создан');
end
else
begin
GetMem(PMapView,SizeOf(LongInt)); //выделить память
//получить адрес региона
PMapView:=(MapViewOfFile(hMapObj,FILE_MAP_WRITE,0,0,0)); </STRONG> 
end;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
UnMapViewOfFile(PMapView);
CloseHandle(hMapObj);
end;
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
PMapView^:=X SHL8 + Y; //поместим данные < /STRONG>
label1.caption:=IntToStr(Hi(PMapView^))+ ':'+</STRONG>
IntToStr(LO(PMapView^));
label4.caption:=IntToStr(X); </STRONG>
label6.caption:=IntToStr(Y); </STRONG>
end;
end.

[Alex21]

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

Что строчка означает я знаю TForm1 = class(TForm), но в листинге ниже используется строка TForm1 = class(TForm)>/STRONG> что она означает?????

Это прилипли теги форматирования текста из источника откуда скопирован код.
С ними код не скомпилируется, их надо убрать.

[AlDelta]

Вообще strong это тег, <STRONG> предназначен для акцентирования текста. Браузеры отображают такой текст жирным начертанием.

Синтаксис
<strong>Текст</strong>

TForm1 = class(TForm)>/STRONG> - это очепятка.

[metamfetamin]

Спасибо огромное!!!

[metamfetamin]

Есть 2 листинга, взаимосвязаные между собой. В 1-ом объявляется файл, проецируемый в память, выделяется ему место в памяти, запрашивается адрес памяти и записывается координаты мышки по этому адресу. Во втором же открывается файл, созданный в первой программе, определяется адрес файла и читаются координаты мышки на форме первого приложения.

1.

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
        procedure FormCreate(Sender: TObject);
        procedure FormDestroy(Sender: TObject);
        procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

private
{ Private declarations }
public
{ Public declarations }
end;
    var
  Form1: TForm1;
  hMapObj:THandle; //ссылка на проец.файл
  PMapView:PLongInt; //адрес региона памяти
    implementation
{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
  begin
//создание проецируемого в память файла
hMapObj:=CreateFileMapping(
$FFFFFFFF, //не дисковый файл
Nil, //атрибут секретности
PAGE_READWRITE, //чтение и запись
0,
SizeOf(DWORD), //размер
'shared_memory');//уникальное название
if hMapObj=0 then
  begin
ShowMessage('Файл не создан');
  end
else
begin
GetMem(PMapView,SizeOf(LongInt)); //выделить память
//получить адрес региона
PMapView:=(MapViewOfFile(hMapObj,FILE_MAP_WRITE,0,0,0));
end;
end;

   procedure TForm1.FormDestroy(Sender: TObject);
begin
  UnMapViewOfFile(PMapView);
  CloseHandle(hMapObj);
end;

   procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
  PMapView^:=X SHL + Y; //поместим данные
  label1.caption:=IntToStr(Hi(PMapView^))+ ':'+
  IntToStr(LO(PMapView^));
  label4.caption:=IntToStr(X);
  label6.caption:=IntToStr(Y); 
end;
end.

Здесь проблем нету, я создал форму и на нее поместил 6 елементов label.

    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;

Что касается 2-го листинга:

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls;
type
TForm1 = class(TForm) 
Label1: TLabel;
Timer1: TTimer;
Label2: TLabel;
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
hMapObj:THandle; 
xPMapView:PLongInt; 
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
hMapObj:=OpenFileMapping
begin
ShowMessage;
end
else
begin
GetMem(PMapView,SizeOf(LongInt));
PMapView:=(MapViewOfFile(hMapObj,FILE_MAP_REA,0,0,0)); 
end;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption:=IntToStr(Hi(PMapView^))+ ':'+
IntToStr(LO(PMapView^));
end;
end.

Здесь я создал форму и поместил на нее копоненты

Label1: TLabel;
Timer1: TTimer;
Label2: TLabel;

но при нажатии F9, мне выдает ошибку в части программы отмечной красным, как я понимаю оно не может найти файл созданый первой частью программы.

Вопрос такой, как определить создала ли первая часть программы етот файл или можна как то проверить где он находится ????

[mihali4]

А что это за ...

procedure TForm1.FormCreate(Sender: TObject);
begin
hMapObj:=OpenFileMapping
begin

Судя по наличию ELSE, где-то раньше должен быть IF ?

[metamfetamin]

Етот листинг дал препод............сказал что вроде правильный..........хотя что то здесь не то!!!!