Buscar por:

Justificando texto

Código

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]{String},60 {Nº de caracteres possiveis da linha});