Acabo de hacerle una pequeña mejora a la función que mas arriba explique llamada
DatoFormateado, resulta que cuando un dato es menor a su tamaño del campo, toma el resto como espacios y no creo que eso sea conveniente para nadie, de manera pues que la función quedaria asi:
Código Delphi
[-]function DatoFormateado(const Campo: TField): String;
begin
if (Campo is TStringField) or (Campo is TDateField) then
begin
Result := ''''+Trim(Campo.AsString)+'''';
end
else
Result := StringReplace(Campo.AsString, ',', '.', [rfReplaceAll]);
end;
Y el resto sigue igual
![Wink](http://www.clubdelphi.com/foros/images/smilies/wink.gif)
.