欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  IT编程

字符串(包含中英文、数字、符号)的对齐

程序员文章站 2022-03-21 23:29:45
字符串(包含中英文、数字、符号)的对齐我们知道,当字符串中包含中英文、数字、符号时,两行文本即使个数相同,也未必能对齐。UI 看着很不舒服。写了个对齐函数,让字符串都定长,就对齐了。{ 获取字符串宽度;包含中英文、数字等 }function GetStringWidth(const strValue: string; const font: TFont): Integer;var DC : HDC; hSavFont: HFont; Size : TSize;b...

我们知道,当字符串中包含中英文、数字、符号时,两行文本即使个数相同,也未必能对齐。UI 看着很不舒服。
写了个对齐函数,让字符串都定长,就对齐了。

{ 获取字符串宽度;包含中英文、数字等 }
function GetStringWidth(const strValue: string; const font: TFont): Integer;
var
  DC      : HDC;
  hSavFont: HFont;
  Size    : TSize;
begin
  DC       := GetDC(0);
  hSavFont := SelectObject(DC, font.Handle);
  GetTextExtentPoint32(DC, PChar(strValue), length(strValue), Size);
  SelectObject(DC, hSavFont);
  ReleaseDC(0, DC);
  Result := Size.cx;
end;

{ 对齐字符串;即固定长度 }
function AlignStringWidth(const strValue: string; const font: TFont; const intMaxLen: Integer = 200): String;
var
  intLen: Integer;
begin
  intLen := GetStringWidth(strValue, font);
  if intLen >= intMaxLen then
    Result := strValue
  else
  begin
    Result := strValue;
    while true do
    begin
      Result := Result + ' ';
      if GetStringWidth(Result, font) >= intMaxLen then
        Break;
    end;
  end;
end;


记录一下。
 

 

本文地址:https://blog.csdn.net/dbyoung/article/details/112556389

相关标签: 随想 Delphi