Fórum Problema com texto justificado no RBuilder #265071

303 - Justificar Texto 
function Justifica(mCad:string;mMAx:integer):string; 
var 
mPos,mPont,mTam,mNr,mCont:integer; 
mStr:string; 
begin 
mTam:=Length(mCad); 
if mTam>=mMax then 
Result:=copy(mCad,1,mMax) 
else 
mStr:=´´; 
mCont:=0; 
mPont:=1; 
mNr:=mMax-mTam; 
while mCont<mNr do 
begin 
mPos:=pos(mStr,copy(mCad,mPont,100)); 
if mPos=0 then 
begin 
mStr:=mStr+´ ´; 
mPont:=1; 
continue; 
end 
else 
begin 
mCont:=mCont+1; 
Insert(´ ´,mCad,mPos+mPont); 
mPont:=mPont+mPos+length(mStr); 
end; 
Result:=mCad; 
end; 
end; 

EX.: 
Memo1.lines[i]:=justifica(memo1.lines[i],60 {Nº de caracteres possiveis da linha});