tntwidestrutils2.pas

TntExUpdate 是 流行的 TntUnicodeControls控件的扩展包.包括很难找到的 TntJVCL 也在里面. TntSysUtils2.pas/TntSysUtilsEx.pa

{*****************************************************************************}
{                                                                             }
{    Tnt Delphi Unicode Controls                                              }
{      http://www.tntware.com/delphicontrols/unicode/                         }
{        Version: 2.1.19                                                      }
{                                                                             }
{    Copyright (c) 2002-2005, Troy Wolbrink ([e-mail])       }
{                                                                             }
{*****************************************************************************}

unit TntWideStrUtils2;

interface

function WStrUntilDelimiter (var InStr: WideString;
  const Delim: WideString): WideString;

implementation

function WStrUntilDelimiter (var InStr: WideString;
  const Delim: WideString): WideString;
var
  I: Integer;
begin
  I := Pos (Delim, InStr);
  if  I = 0  then  begin
    Result := InStr;
    InStr := '';
  end
  else  begin
    Result := Copy (InStr, 1, I-1);
    Delete (InStr, 1, Length(Delim)+I-1);
  end;
end {WStrUntilDelimiter};

end.