grobal.~pas

delphi 编的一个语音的聊天系统.还是能用的,要是有错误请多多指教

unit Grobal;

interface

 uses Classes;

const
ServerCloseStr = '服务器关闭';
ServerStatusStr = '当前连接客户端：%d 每秒数据流量：%dKB';
BufferSize = 51200;
PortNoUseStr = '未使用';
PortUseStr = '发布中';
DataStreamSizeStr = '%dKB';

procedure SeparateTerms(s : string;Separator : char;Terms : TStringList);
implementation

procedure SeparateTerms(s : string;Separator : char;Terms : TStringList);
var
hs : string;
p : integer;
begin
Terms.Clear;
if Length(s)=0 then
Exit;
p:=Pos(Separator,s);
while P<>0 do
begin
hs:=Copy(s,1,p-1);
Terms.Add(hs);
Delete(s,1,p);
p:=Pos(Separator,s);
end;
if Length(s)>0 then
Terms.Add(s);
end;

end.