ｿｽ@ ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ

ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO

ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++

ｿｽﾖ連ｿｽTｿｽCｿｽg

ｿｽEpapy's softwarelibrary

kaizarsome 2005/04/14(ｿｽｿｽ) 14:24:05

Delphi5ｿｽｿｽgｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA
Trimｿｽﾖ撰ｿｽｿｽﾌ削除ｿｽﾎ象にて全ｿｽpｿｽXｿｽyｿｽ[ｿｽXｿｽﾍ削除ｿｽｿｽｿｽｿｽﾈゑｿｽｿｽ謔､ｿｽﾅゑｿｽｿｽB
ｿｽSｿｽpｿｽXｿｽyｿｽ[ｿｽXｿｽｿｽ除ｿｽﾎ象にゑｿｽｿｽｿｽﾉはどゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽ謔｢ｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽｿｽｿｽwｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB

deldel 2005/04/14(ｿｽｿｽ) 14:41:53

ShowMessage(StringReplace('hogeｿｽ@ｿｽﾙゑｿｽｿｽ@hogeｿｽ@ｿｽﾙゑｿｽ', 'ｿｽ@', '', [rfReplaceAll]));

ｿｽTｿｽﾏ趣ｿｽ 2005/04/14(ｿｽｿｽ) 14:50:12

> ShowMessage(StringReplace('hogeｿｽ@ｿｽﾙゑｿｽｿｽ@hogeｿｽ@ｿｽﾙゑｿｽ', 'ｿｽ@', '', [rfReplaceAll]));
ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽATrimｿｽﾆは難ｿｽｿｽがｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌではなゑｿｽｿｽﾅゑｿｽｿｽｿｽｿｽH

(ｿｽwｿｽｿｽｿｽvｿｽｿｽｿｽ)
Trimｿｽﾖ撰ｿｽｿｽﾍ包ｿｽｿｽｿｽｿｽかゑｿｽ謫ｪｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾑ厄ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌ空白と撰ｿｽｿｽ苺ｶｿｽｿｽｿｽｿｽｿｽ闖懶ｿｽｿｽｿｽﾜゑｿｽｿｽB

kaizarsome 2005/04/14(ｿｽｿｽ) 14:50:47

ｿｽｿｽｿｽ`ｿｽIStringReplaceｿｽI
ｿｽﾓ点ｿｽﾅゑｿｽｿｽｿｽｿｽBｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾅゑｿｽｿｽBｿｽBｿｽB
deldelｿｽｿｽｿｽｿｽAｿｽｿｽｿｽwｿｽｿｽｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

kaizarsome 2005/04/14(ｿｽｿｽ) 14:52:32

ｿｽｿｽｿｽTｿｽﾏ者様
ｿｽmｿｽｿｽｿｽﾉ・ｿｽEｿｽE
ｿｽｿｽｿｽｿｽｿｽﾌ目的ｿｽﾉゑｿｽｿｽｿｽﾄは、ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA
ｿｽｿｽﾍゑｿｽTrimｿｽﾅ大文ｿｽｿｽｿｽXｿｽyｿｽ[ｿｽXｿｽｿｽ除ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB

ｿｽﾘ撰ｿｽｿｽl 2005/04/14(ｿｽｿｽ) 14:58:11

//ｿｽｿｽｿｽｿｽｿｽﾅ関撰ｿｽｿｽｿｽｿｽｿｽﾌゑｿｽｿｽｿｽﾔ托ｿｽｿｽｿｽｿｽじゑｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽ

const
  ZenkakuSpace = 'ｿｽ@';

function MBTrimRight(s : string) : string;
var
  i : Integer;
begin
  i := Length(s);
  while i >= 1 do
  begin
    case ByteType(s,i) of
    mbSingleByte:
      if s[i] > #$20 then
        Break;
    mbLeadByte:
      Break;
    mbTrailByte:
      if (s[i] = ZenkakuSpace[2]) and (s[i-1] = ZenkakuSpace[1]) then
        Dec(i)
      else
        Break;
    end;
    Dec(i);
  end;
  Result := Copy(s,1,i);
end;

function MBTrimLeft(s : string) : string;
var
  i : Integer;
begin
  i := 1;
  while i < Length(s) do
  begin
    case ByteType(s,i) of
    mbSingleByte:
      if s[i] > #$20 then
        Break;
    mbLeadByte:
      if (s[i] = ZenkakuSpace[1]) and (s[i+1] = ZenkakuSpace[2]) then
        Inc(i)
      else
        Break;
    mbTrailByte:
      Break;
    end;
    Inc(i);
  end;
  Result := Copy(s,i,MaxInt);
end;

function MBTrim(s : string) : string;
begin
  Result := MBTrimLeft(MBTrimRight(s));
end;

kaizarsome 2005/04/14(ｿｽｿｽ) 15:04:37

ｿｽｿｽｿｽﾘ撰ｿｽｿｽlｿｽl
SysUtilsｿｽｿｽTrimｿｽﾖ撰ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄ、ｿｽﾊ厄ｿｽｿｽﾅ関撰ｿｽｿｽﾉゑｿｽｿｽ骼厄ｿｽﾉゑｿｽｿｽﾜゑｿｽｿｽB
DelphiｿｽﾍまゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽSｿｽﾒｿｽｿｽxｿｽｿｽｿｽﾈので、ｿｽ¥ｿｽ[ｿｽXｿｽQｿｽlｿｽﾉゑｿｽｿｽｿｽｿｽﾄ抵ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽｿｽｿｽwｿｽｿｽｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

deldel 2005/04/14(ｿｽｿｽ) 15:09:38

ｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽﾍ？

function Trim2(S: string): string;
begin
  if Copy(S, 1, 2) = 'ｿｽ@' then S := Copy(S, 3, Length(S));
  if Copy(S, Length(S) - 1, 2) = 'ｿｽ@' then S := Copy(S, 1, Length(S) - 2);
  Result := S;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage('<' + Trim2('ｿｽ@hogeｿｽﾙゑｿｽｿｽ@') + '>');
  ShowMessage('<' + Trim2('hogeｿｽﾙゑｿｽｿｽ@') + '>');
  ShowMessage('<' + Trim2('ｿｽ@hogeｿｽﾙゑｿｽ') + '>');
  ShowMessage('<' + Trim2('hogeｿｽﾙゑｿｽ') + '>');
  ShowMessage('<' + Trim2('ｿｽ@hogeｿｽ@ｿｽﾙゑｿｽ') + '>');
end;

ｿｽTｿｽﾏ趣ｿｽ 2005/04/14(ｿｽｿｽ) 15:30:28

> Trim2
ｿｽｿｽｿｽ[ｿｽﾌ全ｿｽpｿｽXｿｽyｿｽ[ｿｽXｿｽｿｽｿｽ闖懶ｿｽｿｽｿｽﾖ撰ｿｽｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽか？
ｿｽSｿｽpｿｽXｿｽyｿｽ[ｿｽXｿｽｿｽｿｽｿｽｿｽ[ｿｽﾉゑｿｽｿｽｿｽﾆは鯉ｿｽｿｽｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽｿｽﾋ。

deldel 2005/04/14(ｿｽｿｽ) 15:33:03

Trim2ｿｽﾖ撰ｿｽｿｽﾍ包ｿｽｿｽｿｽｿｽかゑｿｽ謫ｪｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾑ厄ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌ全ｿｽpｿｽXｿｽyｿｽ[ｿｽXｿｽｿｽｿｽ闖懶ｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽｿｽｿｽｿｽｿｽgｿｽjｿｽｿｽ 2005/04/14(ｿｽｿｽ) 15:33:05

deldelｿｽｿｽｿｽｿｽ
('ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@hogeｿｽﾙゑｿｽｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@')
ｿｽﾌ擾ｿｽｿｽｿｽｿｽ`ｿｽI
ｿｽﾘ撰ｿｽｿｽlｿｽｿｽｿｽｿｽﾌｿｽｿｽXｿｽｿｽｿｽｿｽｿｽｿｽﾆ読みまゑｿｽｿｽ蛯､ｿｽB

deldel 2005/04/14(ｿｽｿｽ) 15:34:10

ｿｽTｿｽﾏ者ゑｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽgｿｽjｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽﾚゑｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽﾝまゑｿｽｿｽｿｽm(_`_)m

kaizarsome 2005/04/14(ｿｽｿｽ) 15:35:54

ｿｽFｿｽlｿｽAｿｽFｿｽXｿｽｿｽｿｽwｿｽｿｽｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽｿｽｿｽｿｽﾈんが出ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽeｿｽXｿｽgｿｽｿｽｿｽﾄみまゑｿｽｿｽB

function TrimMB(const S: string): string;
var
  tmpS: String;
begin
  tmpS := S;

  while (Copy(tmpS, 1, 1) = ' ') and (Copy(tmpS, 1, 2) = 'ｿｽ@') do
  begin
    if Copy(tmpS, 1, 1) = ' ' then
      tmpS := Copy(tmpS, 2, Length(tmpS));
    if Copy(tmpS, 1, 2) = 'ｿｽ@' then
      tmpS := Copy(tmpS, 3, Length(tmpS));
  end;

  while (Copy(tmpS, Length(tmpS), 1) = ' ') and (Copy(tmpS, Length(tmpS) -1, 2) = 'ｿｽ@') do
  begin
    if Copy(S, Length(S), 1) = ' ' then
      S := Copy(S, 1, Length(S) - 1);
    if Copy(S, Length(S) - 1, 2) = 'ｿｽ@' then
      S := Copy(S, 1, Length(S) - 2);
  end;


  Result := tmpS;
end;

deldel 2005/04/14(ｿｽｿｽ) 15:41:14

ｿｽﾈ会ｿｽｿｽﾅはゑｿｽｿｽﾟでゑｿｽｿｽｿｽｿｽﾋ。
ShowMessage('<' + TrimMB('ｿｽ@ ｿｽ@ｿｽ@hogeｿｽ@ｿｽﾙゑｿｽｿｽ@ ｿｽ@ｿｽ@') + '>');
ｿｽﾘ撰ｿｽｿｽlｿｽｿｽｿｽｿｽﾌで、ｿｽﾎゑｿｽｿｽｿｽｿｽ閧ｾｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽEｿｽEｿｽEｿｽH

kaizarsome 2005/04/14(ｿｽｿｽ) 15:42:14

ｿｽｿｽｿｽｿｽｿｽﾙどのソｿｽ[ｿｽXｿｽﾍ、ｿｽ}ｿｽ‾ｿｽXｿｽｿｽｿｽ轤ｯｿｽﾅゑｿｽｿｽｿｽｿｽB
ｿｽCｿｽｿｽｿｽｿｽｿｽｿｽｿｽ¥ｿｽ[ｿｽXｿｽﾅゑｿｽｿｽBｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅ難ｿｽｿｽｿｽｿｽﾄまゑｿｽｿｽB
ｿｽﾘ撰ｿｽｿｽlｿｽlｿｽAdeldelｿｽlｿｽﾌソｿｽ[ｿｽXｿｽｿｽQｿｽlｿｽﾉ搾ｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽﾌ皆ｿｽlｿｽｿｽｿｽｿｽwｿｽEｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

{*** ｿｽﾈ会ｿｽｿｽ¥ｿｽ[ｿｽX ***}
function TForm1.TrimMB(const S: string): string;
var
  tmpS: String;
begin
  tmpS := S;

  while (Copy(tmpS, 1, 1) = ' ') or (Copy(tmpS, 1, 2) = 'ｿｽ@') do
  begin
    if Copy(tmpS, 1, 1) = ' ' then
      tmpS := Copy(tmpS, 2, Length(tmpS));
    if Copy(tmpS, 1, 2) = 'ｿｽ@' then
      tmpS := Copy(tmpS, 3, Length(tmpS));
  end;

  while (Copy(tmpS, Length(tmpS), 1) = ' ') or (Copy(tmpS, Length(tmpS) -1, 2) = 'ｿｽ@') do
  begin
    if Copy(tmpS, Length(tmpS), 1) = ' ' then
      tmpS := Copy(tmpS, 1, Length(tmpS) - 1);
    if Copy(S, Length(S) - 1, 2) = 'ｿｽ@' then
      tmpS := Copy(tmpS, 1, Length(tmpS) - 2);
  end;

  Result := tmpS;
end;

Fusa 2005/04/16(ｿｽy) 01:38:31

ｿｽﾝなゑｿｽｿｽｿｽ...ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽﾌ汎用ｿｽｿｽｿｽｿｽlｿｽｿｽｿｽﾄ手続ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽH

ｿｽSｿｽpｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾄ、ｿｽSｿｽﾄの包ｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽすｿｽｿｽ謔､ｿｽﾉ対会ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽ
ｿｽ謫ｪｿｽﾆ厄ｿｽｿｽ[ｿｽwｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽAｿｽAｿｽA

ｿｽｿｽｿｽｿｽﾉフｿｽ@ｿｽ[ｿｽXｿｽgｿｽeｿｽXｿｽgｿｽｿｽｿｽｿｽ{ｿｽｿｽｿｽｿｽﾗゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾆバｿｽOｿｽｿｽｿｽｿｽｿｽ轤ｹｿｽｿｽB
ｿｽｿｽｿｽﾌスｿｽｿｽｿｽﾅ起ｿｽｿｽｿｽﾄゑｿｽｿｽ謔､ｿｽﾈ凡ｿｽ‾ｿｽXｿｽｿｽhｿｽ‾ｿｽﾅゑｿｽｿｽ驍ｵ
ｿｽﾖ撰ｿｽｿｽﾌ信ｿｽｿｽｿｽｿｽｿｽ窿奇ｿｽtｿｽ@ｿｽNｿｽ^ｿｽｿｽｿｽｿｽｿｽOｿｽﾌようｿｽﾈ会ｿｽｿｽpｿｽﾉゑｿｽﾂなゑｿｽｿｽｿｽｿｽB


const
  EmptyStr: WideString = '';

function TrimLeftChar(S: WideString; Table: WideString): WideString;
var
  i: Integer;
  WriteIndex: Integer;
  TrimFlag: Boolean;
begin
  SetLength(Result, Length(S));
  WriteIndex := 0;
  TrimFlag := True;
  for i := 1 to Length(S) do
  begin
    if not (TrimFlag and (1<=Pos(S[i], Table))) then
    begin
      TrimFlag := False;
      Inc(WriteIndex);
      Result[WriteIndex] := S[i];
    end;
  end;
  SetLength(Result, WriteIndex);
{ -----------------------------------
  //ｿｽ瘻ｬｿｽｿｽｿｽｿｽｿｽRｿｽ[ｿｽhｿｽｿｽｿｽZｿｽｿｽｿｽｿｽｿｽﾌ趣ｿｽｿｽｿｽ
begin
  while (S<>EmptyStr) and (1<=Pos(S[1], Table))  do
    Delete(S, 1, 1);
  Result := S;
end;
//----------------------------------- }
end;

function TrimRightChar(S: WideString; Table: WideString): WideString;
var
  i: Integer;
  WriteIndex: Integer;
begin
  Result := S;
  WriteIndex := Length(Result);
  for i := Length(S) downto 1 do
  begin
    if (1<=Pos(S[i], Table)) then
    begin
      Dec(WriteIndex);
    end else
    begin
      break;
    end;
  end;
  SetLength(Result, WriteIndex);
{ -----------------------------------
  //ｿｽ瘻ｬｿｽｿｽｿｽｿｽｿｽRｿｽ[ｿｽhｿｽｿｽｿｽZｿｽｿｽｿｽｿｽｿｽﾌ趣ｿｽｿｽｿｽ
begin
  while (S<>EmptyStr) and (1<=Pos(S[Length(S)], Table)) do
    Delete(S, Length(S), 1);
  Result := S;
end;
//----------------------------------- }
end;

function TrimChar(S: WideString; Table: WideString): WideString;
begin
  Result := TrimLeftChar(TrimRightChar(S, Table), Table);
end;

procedure Check(A, B: String);
begin
  if not(A = B) then
  begin
    raise Exception.Create('ｿｽGｿｽｿｽｿｽ[ｿｽﾅゑｿｽ ' + A + ':' + B);
  end;
end;

procedure testTrimLeftChar;
begin
  Check('ｿｽｿｽ', TrimLeftChar('ｿｽ@ｿｽ@ｿｽｿｽ', 'ｿｽ@'));
  Check('ｿｽｿｽ', TrimLeftChar('ｿｽ@ｿｽ@ｿｽ@ｿｽｿｽ', 'ｿｽ@'));
  Check('ｿｽｿｽ', TrimLeftChar('ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ', 'ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ'));
  Check('X', TrimLeftChar('ｿｽ@ｿｽ@YYｿｽ@X', 'ｿｽ@Y'));
  Check('789', TrimLeftChar('012346789', '6543210'));
  Check('ABCXYZ', TrimLeftChar('XXYYZZABCXYZ', 'XYZ'));
  Check('', TrimLeftChar('XXYYZZABCXYZ', 'XYZABC'));
  Check('AAA'#9, TrimLeftChar(#9'AAA'#9, #9));
  Check(#9, TrimLeftChar('AAA'#9, 'A'));
  Check(#9'AAA', TrimLeftChar(#13#10#9'AAA', #13#10));
  Check(#13#10, TrimLeftChar(#9'AAA'#13#10, #9'A'));
  Check('123', TrimLeftChar('123', ''));
end;

procedure testTrimRightChar;
begin
  Check('ｿｽ@ｿｽ@', TrimRightChar('ｿｽ@ｿｽ@ｿｽｿｽ', 'ｿｽｿｽ'));
  Check('ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ', TrimRightChar('ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ', 'ｿｽｿｽｿｽｿｽｿｽｿｽ'));
  Check('ｿｽｿｽ', TrimRightChar('ｿｽｿｽｿｽ@ｿｽ@ｿｽ@', 'ｿｽ@'));
  Check('ｿｽ@ｿｽ@YY', TrimRightChar('ｿｽ@ｿｽ@YYｿｽ@X', 'ｿｽ@X'));
  Check('012', TrimRightChar('012346789', '346789'));
  Check('XXYYZZABC', TrimRightChar('XXYYZZABCXYZ', 'XYZ'));
  Check('', TrimRightChar('XXYYZZABCXYZ', 'XYZABC'));
  Check(#9'AAA', TrimRightChar(#9'AAA'#9, #9));
  Check(#9, TrimRightChar(#9'AAA', 'A'));
  Check(#9'AAA', TrimRightChar(#9'AAA'#13#10, #13#10));
  Check(#13#10, TrimRightChar(#13#10#9'AAA', #9'A'));
  Check('123', TrimRightChar('123', ''));
end;

procedure testTrimChar;
begin
  Check('ABC', TrimChar('123467829ABC5212694192', '0123456789'));
  Check('', TrimChar('123467829ABC5212694192', 'ABC0123456789'));
  Check('ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ', TrimChar('ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ', 'ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ'));
  Check('AAA', TrimChar(#9'AAA'#9, #9));
  Check(#9, TrimChar(#9'AAA', 'A'));
  Check(#9'AAA', TrimChar(#9'AAA'#13#10, #13#10));
  Check(#13#10, TrimChar(#9'AAA'#13#10, #9'A'));
  Check('123', TrimChar('123', ''));
end;

Created by board of various Programming Library.