Arquivo de remessa CNAB 240

uses
  Math, StrUtils, DateUtils;

const
  Espacos = ´                                                                                                  ´;
  Zeros = ´0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000´;

procedure STWrite(Stream: TStream; s: string);
begin
  Stream.Write(s[1], Length(s));
end;

procedure STWriteLN(Stream: TStream; s: string);
begin
  s := s + 1310;
  Stream.Write(s[1], Length(s));
end;

function Pic9(Tam: Integer; Num: Integer): string;
begin
  Result := Copy(IntToStr(Num), 1, Tam);
  while (Length(Result) < Tam) do
    Result := Copy(Zeros, 1, Tam - Length(Result)) + Result;
end;

function PicX(Tam: Integer; S: string): string;
begin
  Result := Copy(S, 1, Tam);
  while (Length(Result) < Tam) do
    Result := Result + Copy(Espacos, 1, Tam - Length(Result));
end;

function PicD(Data: TDateTime; Formato: string): string;
begin
  Result := FormatDateTime(Formato, Data);
end;

function PicC(Tam: Integer; Valor: Currency; CasasDec: Integer): string;
begin
  Result := Pic9(Tam, Round(Valor * IntPower(10, CasasDec)));
end;

procedure GravaLinha;
var
  Arquivo: string;
  fs: TFileStream;
begin
  fs := TFileStream.Create(Arquivo, fmCreate);
  try
    STWriteLN(fs, ´CTE´ +
      Pic9(4, Query.FieldByName(´Numero´).AsInteger)+
      PicX(30, Query.FieldByName(´Nome´).AsString)+
      PicD(Query.FieldByName(´Data´).AsDateTime, ´yyyymmdd´)+
      PicC(13, Query.FieldByName(´Valor´).AsCurrency, 2)+
    );
  finally
    fs.Free;
  end;
end;