Fórum Right ou left do clipper #237538

Use a função Copy.

Sintaxe:
Copy(Sua_String, Inicio, Largura);

Os primeiros caracteres:
Copy(Sua_String, 1, Largura);

Os últimos caracteres:
Copy(Sua_String, Length(Sua_String) - Largura, Largura);

existem as similares LeftStr, MidStr e RightStr na unit StrUtils.

Se você é clippeiro como eu também vai sentir falta das funçoes PAD() e STRZERO()

Dá pra fazer elas:

Note que a POEM_ZEROS requer um Parametro String e nao numerico como no Clipper


{ Completa String com Caracter a direita, Alinhando a Esquerda }
function padL(mStr : string; nLen : Integer; Caracter : Char) : String ;
begin
Result := copy(mStr,1,nLen) ;
Result := Result + StringOfChar(Caracter, (nLen - Length(Result))) ;
end ;

{ Completa String com Caracter a esquerda, Alinhando a Direita }
function padR(mStr : string; nLen : Integer; Caracter : Char) : String ;
begin
Result := copy(mStr,1,nLen) ;
Result := StringOfChar(Caracter, (nLen - Length(Result))) + Result ;
end ;

Function Poem_Zeros(Texto : String; Tamanho : Integer) : String;
var Zeros : String ;
Valor : Integer ;
begin
Result := Texto ;

try
Valor := StrToInt(Trim(Texto)) ;
Zeros := StringOfChar(´0´,Tamanho);
Result := FormatFloat(Zeros,Valor) ;
except
end ;
end ;