Limitar String Por Tamanho (width)

[Felipe Junges]

Dai pessoal, existe alguma função do delphi que limite uma string pelo "width" dela, ou seja, não pelo Lenght, mas pelo comprimento em pixels, ou mm, etc dela?

Estou montando um relatório usando o Rave (RvSystem) e os dados de um campo estão escrevendo sobre os do outro...

Valeu!!

[Churc]

opa

Você pode usar a propriedade TextWidth de um canvas,

eu nunca usei fora de algum objeto, então fiz essa função

mas acho que falta algo nela como liberar o canvas coisas

do tipo, ela funciona mas não sei se está totalmente correta...

Function GetTextWidth(const szText: String): Integer;
var
  aCanvas: TCanvas;
begin
  aCanvas := TCanvas.Create;
  aCanvas.Handle := GetWindowDC(GetDesktopWindow);
  Result := aCanvas.TextWidth(szText);
  aCanvas.Free;
end;

Pra usar, basta passar a String e ela te retornará o comprimento

da String...

Acho que jeito mais facil que usando o TextWidth do canvas não

tenha mas como mencionei não sei se precisa liberar o canvas

pra ficar completa esta função...

abraço

[Felipe Junges]

Churc, funcionou perfeitinho, eu estava meio assim de criar um objeto a cada chamada da função, mas se é o unico jeito, então tá beleza!!

Valeu pela ajuda!!