Fórum Arquivo TXT #224518

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Math, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
// Criação da classe
  TAjustarLinha = Class
    cLineSource: String;
    nLength: Integer;
    cCharPad: Char;
    cPadRight: String;
    cPadLeft: String;
    cPadZeros: String;
    procedure Clear; 
    procedure Execute; 
  end;
var
  Form1: TForm1;

implementation

{$R *.DFM}

{ TAjustarLinha }

procedure TAjustarLinha.Clear;
begin
  cLineSource  := ´´;
  nLength := 0;
  cCharPad := #32;
  cPadRight := ´´;
  cPadLeft := ´´;
  cPadZeros := ´´;
end;

procedure TAjustarLinha.Execute;
var nFill: Integer;
begin
nFill:= nLength - Length(cLineSource);
  If (nLength < nFill) then
  begin
    cPadRight  := cLineSource;
    cPadLeft   := cLineSource;
    cPadZeros  := cLineSource;
  end else
  begin
    cPadRight  := cLineSource + StringOfChar(cCharPad, nFill);
    cPadLeft   := StringOfChar(cCharPad, nFill) + cLineSource;
    cPadZeros  := cLineSource + StringOfChar(´0´, nFill);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
With TAjustarLinha.Create do
  begin
    Clear;
    cLineSource:= ´Teste de preenchimento´; // Nome do campo
    nLength:= 40; // Tamanho do campo no leiaute
    cCharPad:= ´B´; // Normalmente brancos e não B 
    Execute;

    ShowMessage(cPadRight);
    ShowMessage(cPadLeft);
    ShowMessage(cPadZeros);

    Free;
  end;
end;

end.