Клиент-Сервер

[Jony18]

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

[RuVarez]

Что вы имеете ввиду под N?

[Jony18]

N- это количество букв которые должны быть в слове

[RuVarez]

сервер уже написан?

[Jony18]

да вот
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ScktComp, StdCtrls;

type
TForm1 = class(TForm)
Memo1: TMemo;
ServerSocket1: TServerSocket;
procedure FormCreate(Sender: TObject);
procedure ServerSocket1ClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
procedure ServerSocket1ClientDisconnect(Sende r: TObject;
Socket: TCustomWinSocket);
procedure ServerSocket1ClientError(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
procedure ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
ServerSocket1.Open;
end;

procedure TForm1.ServerSocket1ClientConnect(S ender: TObject;
Socket: TCustomWinSocket);
begin
memo1.Lines.Add('Êëèåíò ïîäêëþ÷èëñÿ.')
end;

procedure TForm1.ServerSocket1ClientDisconnec t(Sender: TObject;
Socket: TCustomWinSocket);
begin
memo1.Lines.Add('Êëèåíò îòêëþ÷èëñÿ.')
end;

procedure TForm1.ServerSocket1ClientError(Sen der: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
begin
memo1.Lines.Add('Îøèáêà :'+inttostr(ErrorCode));
ErrorCode:=0;
end;

procedure TForm1.ServerSocket1ClientRead(Send er: TObject;
Socket: TCustomWinSocket);
var s,ks: string;
i,j,k: integer;
begin
s:=Socket.ReceiveText;
memo1.Lines.Add('Ïðèíÿòî >>>>> '+s);

if pos('N:',s)=1 then
begin
delete(s,1,2);
ks:=copy(s,1,pos('#',s)-1);
k:=strtoint(ks);
delete(s,1,pos('#',s));
memo1.Lines.Add(s);
end;

i:= 1; {íà÷èíàåì ñ ïåðâîãî ñèìâîëà â ñòðîêå}
j:= 0; {ñíà÷àëà äëèíà ñëîâà ðîâíà íóëþ}
while i<=length(s) do
begin
if (s[i] <> ' ') and (s[i] <> '.') and (s[i] <> ',')
and (s[i] <> '?') and (s[i] <> '!') and (s[i] <> '-')then
begin {åñëè î÷åðåäíîé ñèìâîë íå ïðîáåë}
inc(j);{óâåëè÷èâàåì äëèíó ñëîâà}
inc(i);{ïåðåõîäèì ê ñëåäóþùåé áóêâå}
end
else
begin
if j <> k then
begin {åñëè äëèííà ñëîâà <= ' ks '}
delete(s,i-j,j+1); {âûðåçàåì âìåñòå ñ ïðîáåëîì ïîñëå ñëîâî}
i:= i-j;
j:= 0; {îáíóëÿåì äëèíó ñëîâà}
end
else
begin
i:= i+1;
j:= 0;
end;
end;
end;
Socket.SendText(s);
end;
end.



но тут удаляет слова меньше или равно N Надо изменить