...einen Text links bzw rechts mit einem Füllzeichen ausrichten (padding)?

Autor: Loïs Bégué

Kategorie: Strings

function LeftPad(S: string; Ch: Char; Len: Integer): string;
var
  
RestLen: Integer;
begin
  
Result  := S;
  RestLen := Len - Length(s);
  if RestLen < 1 then Exit;
  Result := S + StringOfChar(Ch, RestLen);
end;

function RightPad(S: string; Ch: Char; Len: Integer): string;
var
  
RestLen: Integer;
begin
  
Result  := S;
  RestLen := Len - Length(s);
  if RestLen < 1 then Exit;
  Result := StringOfChar(Ch, RestLen) + S;
end;

{Beispiel / Example}

procedure TForm1.Button1Click(Sender: TObject);
begin
  
Edit1.Text := Rightpad(Edit2.Text, '-', 30);
end;

 

printed from
www.swissdelphicenter.ch
developers knowledge base