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; |
|