DisplayTabsInString Function
Returns a String with all occurrences of TAB (ie #9) replaced with the contents of ESBTabStr.

Unit
QESBPCSConvert

Declaration
Function DisplayTabsInString(const S: string): string;

Parameters
the String to process.

Category
Extra String Handling Routines

Implementation

function DisplayTabsInString (const S: string): string;
var
     P: Integer;
begin
     Result := S;
     P := ESBPosCh (#9, Result);
     while P > 0 do
     begin
          Result := LeftStr (Result, P - 1) + ESBTabStr
               + RightAfterStr (Result, P);
          P := ESBPosCh (#9, Result);
     end;
End;


HTML generated by Time2HELP
http://www.time2help.com