найдите ошибку пожалуста уже 2 часа на этот сорц смотрю

← →
cosy (2007-11-12 14:57) [0]

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var
WA,s:string; k:boolean;
begin

wa:=serversocket1.Socket.Connections[0].ReceiveText;

if copy(wa,1,3)="ris" then
begin
k:=true;
serversocket1.Socket.Connections[0].SendText("server ris");
memo1.Lines.Add(s) ;
while k=true do
begin
memo1.Lines.Add(copy(s, pos("(",s)+1 , pos("+",s)-pos("(",s)-1));
memo1.Lines.add(copy(s, pos("+",s)+1 , pos(")",s)-pos("+",s)-1));
application.ProcessMessages;
delete(s, pos("(",s), pos(")",s)- pos("(",s) );
if s="" then k:=false;
end;

end
else
begin
s:=s+wa; memo1.Lines.Add(wa);
end;
end;

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

← →
Сергей М. © (2007-11-12 15:03) [1]

> не фига она не выдаёт а тока пробелы

Значит в передаваемой строке есть пробелы.

← →
terc © (2007-11-12 15:04) [2]

а помимо пробелов там ещё коечто есть тока вот почемута ему ткоа робелы нравятся

← →
Сергей М. © (2007-11-12 15:08) [3]

Значит ф-ция Copy возвращает пробелы. Больше им, пробелам этим, взяться неоткуда.

← →
terc © (2007-11-12 15:09) [4]

люди но мой клиент отправляет ему вот такие команды

(490+463)
(490+464)
(491+456)
(491+457)
(491+458)
(491+459)
(491+460)
(491+461)
(491+462)
(491+463)
(492+456)
(492+457)
(492+458)
(492+459)
(492+460)
(492+461)
(492+462)
(493+455)
(493+456)
(493+457)
(493+458)
(493+459)
(493+460)
(493+461)
(494+456)
(494+457)
(494+458)
(494+459)
(494+460)
(495+456)
(495+457)
(495+458)

← →
Reindeer Moss Eater © (2007-11-12 15:10) [5]

Значит все хорошо

← →
Сергей М. © (2007-11-12 15:11) [6]

И где тут пробелы ?
В упор не вижу никаких пробелов.

← →
terc © (2007-11-12 15:12) [7]

да они глумятся насчет пробелов их там по логике вещей быть неможет
просто взятся неоткуда

← →
Skyle © (2007-11-12 15:12) [8]

var WA,s:string;
....
memo1.Lines.Add(s) ;

А что должно содержаться в S? Оно нигде не присваивается.

смотри внимательнее там когда приползает сообщение он его сравнивает если не равен ris тогда

s:=s+wa; memo1.Lines.Add(wa);

заметь S:=......

> terc © (12.11.07 15:14) [9]
> смотри внимательнее там когда приползает сообщение он
> его сравнивает если не равен ris тогда
>
> s:=s+wa; memo1.Lines.Add(wa);
>
> заметь S:=......

1. цитата была из момента, когда всё-таки равен
2. Я заметил, что тут не S := , а S := S + .
Так чему равен S?

Удалено модератором
Примечание: Пункты Р.2, и З.5

> заметь S:=......
>

S при этом равно "" (пустая строка)
Никаких пробелов в ней при этом нет и быть не должно.
Так что автор попросту врет)

найдите ошибку пожалуста уже 2 часа на этот сорц смотрю Найти похожие ветки