uses DBXJSON, DBXJSONReflect;

function TUtil.DataSetToJSON(loDS: TDataSet): TJSONArray;
var
objRegistro: TJSONObject;
tmpField: TField;
begin
Result := TJSONArray.Create;
loDS.First;
while not loDS.Eof do
begin
objRegistro := TJSONObject.Create;
for tmpField in loDS.Fields do
objRegistro.AddPair(tmpField.FieldName,TJSONString.Create(tmpField.AsString));
Result.AddElement(objRegistro);
loDS.Next;
end;
end;

Abraços
João Henrique de Souza

na implementação do button1click o objeto criado nao está sendo destruído, isso nao vai dar memory leak?

seu exemplo é interessante, porém vc já experimentou dar um Free no objeto JsonEngine do click do botao?
Está levantando uma exceção, ao depurar o objeto está com problemas na destruição da lista dos objetos da biblioteca sugerida por vc. E sem o JsonEngine.Free pode dar um leak de memória.

Então, achei bem interessante a sua idéia de mudança, fique a vontade, apenas lhe peço que me devolva o documento para eu postar uma atualização aqui, colocarei os créditos para vc!

Muito obrigado!
Everson Novka

Seu artigo esta legal sobre padronização de códigos, só acho que algumas coisas poderiam ficar um pouco melhor como, por exemplo, os nomes de parâmetros das funções, no artigo você fala para colocar o A na frente do nome do parâmetro, porem se formos analisar o padrão do Delphi, o A aparece na frente dos parâmetros devido a seu significado em inglês, sendo assim em português fica incoerente utilizá-lo em alguns casos.
Ex.:
Em Inglês:
function Sum( AValueX, AValueY: Integer ): Integer;

A = O
Value = Valor

Sendo assim em português o correto seria:

function Soma( OValorX, OValorY: Integer ): Integer;

Logicamente isso caso estivesse seguindo o padrão da Borland, porém a idéia de padronizar os códigos é facilitar a leitura e a manutenção de tal forma que o desenvolvedor olhe o código e entenda o sem demora.

Neste caso acima se removêssemos o ‘O’ não faria muita diferença e o desenvolvedor entenderia da mesma forma.

Se você me permitir posso pegar o seu modelo de padrão e comentá-lo em meu blog algumas coisas legais, para aperfeiçoá-lo ainda mais permitindo que toda a comunidade tire proveito desta documentação ótima que você já redigiu e disponibilizou.

São poucas coisas como uma melhor endentação, comentários seguindo padrão XML e etc.

Grande Abraço,
Diego Garcia.
http://unitonedev.blogspot.com

Agradeço pela visita no blog.

[]‘s
Everson

Utilizamos Firebird na maioria de nossas aplicações, atualmente temos um driver de terceiro, agora vamos poder utilizar o nativo!

Abraços!