cadena de longuitud fija

[ecfisa]

Hola martita.

Código Delphi [-]
function AjustarCadena(ATable: TDataSet): string;
var
  i: integer;
begin
  Result:= '';
  with ATable do
   for i:= 0 to FieldCount -1 do
     Result:= Result + Fields[i].AsString +
      StringOfChar(' ',Fields[i].DisplayWidth+1-Length(Fields[i].AsString));
end;

Llamada de ejemplo:

Código Delphi [-]
  ShowMessage(AjustarCadena(Table));

Saludos.