| DisplayTabsInString Function | 
Unit
QESBPCSConvert
Declaration
Function DisplayTabsInString(const S: string): string;
| Parameters | 
| S | the String to process. | 
Category
Extra String Handling RoutinesImplementation
 
| 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; | 
|  |