многопользовательский чат дельфи

[ben95]

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

procedure TForm1.Timer1Timer(Sender: TObject);
begin
// условие на наличие установленных каналов
if ServerSocket.Socket.ActiveConnections<>0 then
begin
// цикл по существующим каналам
for i:=1 to ServerSocket.Socket.ActiveConnections do
begin
// сохраним пакет (если ничего не прислали, по пакет пустой)
text:=ServerSocket.Socket.Connections[i-1].ReceiveText();
// условие, что пакет не пуст
if text<>'' then
begin
{тут обработка строки, выделение составляющих кода команд (com) и пр.}
// определение команд
case com of
код: begin
{процедура}
end;
код: begin
{процедура}
end;
…………………………………….
end;
end;
end;
end;
// разрешение на выполнение процедур обновления
if UpdDo=True then
begin
{процедуры}
// блокируем разрешение
UpdDo:=False;
end;
end;

и в эитоге он начинает ругатся!

[AlDelta]

Телепаты в отпуске. Чем ругается, какие ошибки?

[ben95]

[Error] Unit1.pas(206): Undeclared identifier: 'i'
[Error] Unit1.pas(228): Undeclared identifier: 'UpdDo'
[Error] Unit1.pas(222): Illegal character in input file: '…' ($85)

[AlDelta]

1. Ниезвестный индетификатор i
2. Ниезвестный индетификатор UpdDo
3. Запрещённый знак '…'

Пересмотри код теперь еще раз.

[ben95]

пересмотрел на всякий случий выдельл и скопировал код с сайта http://pblog.ru/?p=100 и итоги 0

[AlDelta]

А это в твоем листинге есть?

Вот переменные, которые понадобятся в программе:

var
Form1: TForm1;
i, j, com, ContList: Byte;
len, pos, x: Word;
text, StrUserList: String;
UpdDo: Boolean;
Buf: array[0..3] of Byte;
UserMas: array[0..255] of TUserList; //массив объектов
UItems: TListItem;

[ben95]

а куда запихнуть?

[AlDelta]

Эх КопиПаст...

Запихнуть в глобальное обьявление переменных. Найди у себя в листинге строчку Form1: TForm1;

Вот под нее и вставляй обьявление переменных. Советую книгу по Делфи, любую для начинающих.

[ben95]

UserMas: array[0..255] of tUserListView
вот тут ошибка
[Error] Unit1.pas(52): Undeclared identifier: 'TUserListView'