这个函数是什么意思啊

freeman9302000 2007-04-11 02:05:10
function GetSolidStr(const S: string): string;
var
Len: Byte;
FirstPos, LastPos: Byte;
begin
Result := '';
if S = '' then Exit;

Len := Length(S);
FirstPos := 1;
while (FirstPos <= Len) and
(S[FirstPos] <= #32) do begin
Inc(FirstPos);
end;
if FirstPos > Len then Exit;

for LastPos := Len downto FirstPos do begin
if S[FirstPos] > #32 then
Break;
end;

Result := Copy ( S, FirstPos, LastPos - FirstPos +1 );
end;
...全文
171 6 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
才子鸣 2007-04-12
  • 打赏
  • 举报
回复
廣播?
freeman9302000 2007-04-12
  • 打赏
  • 举报
回复
谢谢你们了啊,chenzhou(jack chen)和netgetwin,我又看了一下,就是这个意思,真是太谢谢你们了,对了,你们做过没有做过有关分发的,就是将接收到的信息分发给各个客户端
chenzhuo 2007-04-11
  • 打赏
  • 举报
回复
#12#14#31oghoghaohfoiwaehf#16#32#18
应该是oghoghaohfoiwaehf
chenzhuo 2007-04-11
  • 打赏
  • 举报
回复
首先去掉字符<=#32的头,然后截取到以<#32为结束的字符
例如
#12#14#31oghoghaohfoiwaehf#16#32#18
=31oghoghaohfoiwaehf#16#32

if S[FirstPos] > #32 then
Break;
应该是S[LastPos]


nevergetwin 2007-04-11
  • 打赏
  • 举报
回复
把一个字符串中的可视字符取出来,不包括'0','1','2'
其实是去掉了字符串中头尾不可视的字符
chenzhuo 2007-04-11
  • 打赏
  • 举报
回复
应该是去掉字符串头尾为的ASC码小于32的字符

5,928

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧