这个自定义函数是什么意思

Question

function MyListenThread.ConvertStr(SourceString : String ; Var DestString : TStringList) : boolean;
var
  tempStr : string;
  i : integer;
  StrLen : integer;
begin
  result := true;
  tempStr := '';
  StrLen := Length(SourceString);
  if StrLen > 0 then
  begin
  for i := 1 to Length(SourceString) do
  begin
     if SourceString[i] <> '#' then
     begin
        tempStr := tempStr+SourceString[i];
     end
     else
     begin
        DestString.Add(tempStr);
        tempStr := '';
     end;
  end;
  DestString.Add(tempStr);
  end
  else
     result := false;
end;

Answer 1

偶觉得这个函数的功能两句话就写完了吧....MyStringList.Delimiter := '#';
MyStringList.DelimiteredText := '2323#sdqwd#dqwdwq#dsadsasd';