Question

How to format a string using fixed-width fields in Pascal

Answer 1

(*
Common format specifiers
-----------------------------------
%-10s { Left-aligned string, width 10 }
%10s { Right-aligned string, width 10 }
%5d { Integer, width 5 }
%08d { Integer, width 8, padded with zeros }
%12.2f { Float, width 12, 2 decimal places }
*)

program FixedWidthFields;

{$mode objfpc}{$H+}

uses
  SysUtils;

{ Formats a record using fixed-width fields }
function FormatRecord(const Name: string; Age: Integer;
  Salary: Double): string;
begin
  {
    %-15s = left-aligned string, width 15
    %10d  = right-aligned integer, width 10
    %12.2f = floating-point value, width 12, 2 decimal places
  }
  Result := Format('%-15s%10d%12.2f',
    [Name, Age, Salary]);
end;

var
  Output: string;

begin
  { Store the formatted string in a variable }
  Output := FormatRecord('R2D2', 96, 185000.0);

  WriteLn(Output);
end.



{
run:

R2D2                   96   185000.00

}

 

70+ SQL courses for beginners and professionals

Answer 2

program FixedWidthString;

{$mode objfpc}{$H+}

uses
  SysUtils;

var
  ResultStr: string;

begin
  { Left-align "Hello" in a field 10 characters wide }
  ResultStr := Format('%-10s', ['Hello']);

  WriteLn('|', ResultStr, '|');
end.


{
run:

|Hello     |

}

 

70+ SQL courses for beginners and professionals

Answer 3

program FixedWidthName;

{$mode objfpc}{$H+}

uses
  SysUtils;

var
  NameField: string;

begin
  { Right-aligned in a field of width 10 }
  NameField := Format('%10s', ['Orion']);

  WriteLn('|', NameField, '|');
end.


{
run:

|     Orion|

}

 

70+ SQL courses for beginners and professionals