tabs.pas

来自「httpanalyzer, source code for delphi」· PAS 代码 · 共 21 行

unit Tabs;
  interface
  const
    CRLF: AnsiString = #13#10;
  const
    MaxTab = 254;
  var
    Tab: Array[0..MaxTab] of PChar;

  implementation
  var
    i: Integer;
    TabStr: ShortString;
  begin
    FillChar(TabStr,Sizeof(TabStr),#9);
    TabStr[0] := #255;
    TabStr[255] := #0;
    for i:=0 to 254 do
      Tab[i] := @TabStr[MaxTab-i+1];
  end.