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