объясните код

[Rend1]

unit MainFrm;

interface

uses
SysUtils, Windows, Messages, Classes, Graphics, Controls,
Forms, Dialogs, Buttons, ExtCtrls, ColorGrd, StdCtrls, Menus, ComCtrls;

const
crMove = 1;
type

TDrawType = (dtLineDraw, dtRectangle, dtEllipse, dtRoundRect,
dtClipRect, dtCrooked);

TMainForm = class(TForm)
sbxMain: TScrollBox;
imgDrawingPad: TImage;
Вот код непонятно следующее 1.почему константа объявлена имменно в этом месте и можно ли объявить ее после implementation 2.дайте ссылку где прочитать о clMove и dt... в HELP найти не могу.3чем отличаются процедуры в type и public прочитал кучу литературы но нигде прямо не сказано

[n@sok]

1. Если константа будет объявлена после implementation, она не будет доступна другим модулям, ссылающимся на этот модуль и использующим эту константу. В данном случае таких модулей нет, поэтому константу можно объявить где угодно до первого ее использования.
2. crMove и dt... - это идентификаторы, придуманые программистом и предназначены для облегчения чтения программы. crMove - имя константы, любое ее появление в тексте будет заменяться на значение 1. dt... - значения, которые может принимать переменная типа TDrawType.
3. Методы, объявленные в private могут вызываться только из других методов того же класса, а методы, объявленные в public, также из любого другого места программы, где объявлен объект данного класса.

[Rend1]

пробую сделать сканер портов из книги "Dlphi глазами хакера" и там нужно дописать в ручную функцию а Delphi ругается что не знает такой функции ючто делать?

[Stilet]

что делать?

Выяснить откуда такая функция взялась )

[Mitron]

Public- процедуры доступные из других модулей данного проекта,
Private- в рамках этого модуля.

[Rend1]

1ювопрос в следующем если процедуру из public записать в type то что изменится.
To Stilet
объясни подробно

[Stilet]

объясни подробно

Всмысле? Откуда я то могу знать что за пример ты изучаешь? я ж не телепат. Вот приведи код тогда подумаем.

[Rend1]

пример

procedure TForml.ButtonlClick(Sender: TObject);
var
i,j,s, opt, index: Integer;
FSocket: array [0..41] of TSOCKET; //Массив сокетов
//Массив, в котором будет храниться информация о каждом сканируемом со-
кете
busy
port
addr
hEvent
fset
tv
tec
array [0..41] of boolean;
array [0..41] of integer; //Массив сканируемых портов
TSockAddr;
THandle; //Объект для обработки сетевых событий
TFDset;
TTimeval;
PServEnt;
PName:String;
GInitData : TWSADATA;
begin
//Устанавливаем максимальное и минимальное значение полоски
//состояния сканирования. Минимум — начальный порт сканирования,
//максимум — конечный порт
ProgressBarl.Min:=StrToInt(StartPortEdit.Text);
ProgressBarl.Max:=StrToInt(EndPortEdit.Text);
//Инициализируем WinSock
WSAStartup(MAKEWORD(2,0), GInitData);
//Записываем в переменную i значение начального порта
i:=StrTo!nt(StartPortEdit.Text);
//Заполняем основные поля структуры addr, которая будет использоваться
//при вызове функции connect
addr.sin_family := AF_INET;
addr.s in_addr.s_addr := INADDR_ANY;
//Выводим сообщение о том, что начат поиск введенного хоста
DisplayMemo.SelAttributes.Color:=clTeal;
DisplayMemo.SelAttributes.Style:=
DisplayMemo.SelAttributes.Style+[fsBold];
DisplayMemo.Lines.Add('Поиск хоста');
if FD_ISSET (FSocket[j], fset) then
begin
('Хост:'+AddressEdit.Text+': порт :'
+IntToStr(Port[j])+' ('+Pname+') '+' открыт ');
end;
end;
//Закрыть j-й сокет, потому что он больше уже не нужен
closesocket(FSocket[j]);
end;
//Увеличиваем позицию в ProgressBarl
ProgressBarl.Position:=i;
end;
//Закрываем объект событий
WSACloseEvent(hEvent);
//Вьшодим сообщение о конце сканирования
DisplayMemo.SelAttributes.Color:=clTeal;
DisplayMemo.SelAttributes.Style:=
DisplayMemo.SelAttributes.Style+[fsBold];
DisplayMemo.Lines.Add('Сканирование закончено...');
ProgressBarl.Position:=0;
end;
проблемная функция
function TForml.LookupName: TInAddr;
var
HostEnt: PHostEnt;
InAddr: TInAddr;
begin
if Pos(\', AddressEdit.Text)>0 then
InAddr.s addr := inet addr(PChar(AddressEdit.Text);
Сеть на низком уровне 223
else
begin
i
HostEnt := gethostbyname(PChar(AddressEdit.Text));
FillChar(InAddr, SizeOf(InAddr), 0);
if HostEnt <> nil then
begin
with InAddr, Hos4tEntA do
begin
S_un_b.s_bl := h_addrл[0];
S_un_b.s_b2 := h_addrA[1];
S_un_b. s_b3 : = h_addr/s [ 2 ] ;
S_un_b. s_b4 : = h_addr~ [ 3 ] ;
end;
end
end;
Result := InAddr;
end;

код неполный

From Stilet: Для оформления кода есть специальный тег

[Stilet]

Ну и на какой строке она ругается? Или опять догадываться ?

[Rend1]

я же специально написал проблемная функция в сомом низу не знаю куда ее вставить