Largo de una cadena en pixels sabiendo la fuente usada para imprimirla
0000-00-00 00:00:00
function LargoTexto(texto : string; f : TFont) : integer; var aux : TFont; begin aux:=Screen.ActiveForm.Canvas.font; Screen.ActiveForm.Canvas.font:=f; result:=Screen.ActiveForm.Canvas.textwidth(texto); Screen.ActiveForm.Canvas.font:=aux; end;
Por ejemplo, se haria LargoTexto('Delphi es bastante mejor que el visual basic',fuente), siendo fuente una variable TFont definida en arial, negrita, 5 puntos, etc