gmane.comp.ide.lazarus.brazil

Re: como fazer o retorno correto. clonar objeto

Francisco Luiz — 2013-05-21T20:15:28

valeu, tentei fazer isso, mas acho que fiz algo de errado. usando o result 
como o próprio objeto também gera erro.

Em terça-feira, 21 de maio de 2013 12h00min30s UTC-3, Daniel Gaspary 
escreveu:

Re: como fazer o retorno correto. clonar objeto

Marcos Douglas — 2013-05-21T15:01:32

2013/5/21 Tiago Sanches <tiaches-Re5JQEeQqe8AvxtiuMwx3w< at >public.gmane.org>

É claro que tem problema em não liberar, vc terá um memleak!
O mais "correto", na minha humilde opinião, é usar parâmetro 'out'
numa procedure.

Seguindo seu exemplo:

procedure NewQuery(out AQuery: TSQLQuery);
begin
  AQuery := TSQLQuery.create(nil);
  AQuery.sql.text := 'select * from tabela';
  AQuery.open;
end;

var
  Q: TSQLQuery;
begin
  NewQuery(Q);
  try
    // faz qq coisa
  finally
    Q.Free; // libera no fim do seu processo.
  end;
end;


Marcos Douglas

Re: como fazer o retorno correto. clonar objeto

Daniel Gaspary — 2013-05-21T15:00:30

2013/5/21 Tiago Sanches <tiaches-Re5JQEeQqe8AvxtiuMwx3w< at >public.gmane.org>:

Eu acho que você está confundindo o que é um objeto e o que é uma variável.

Quando se atribui um objeto a uma variável não se está criando um novo
objeto ou copiando o mesmo. Simplesmente se está apontando para ele.
abc e result apontam para o mesmo objeto.

Você está retornando um objeto TSQLQuery, então não DEVE dar free.

E nem precisa usar abc, use somente result, vai ficar mais claro o código.

Re: como fazer o retorno correto. clonar objeto

Diego Garcia — 2013-05-21T14:38:49

Acredito que se você limpar a instancia do seu objeto assim que você
retornar ela, não conseguira usa-la.
Se você não quer se preocupar com memory leaks ou AV, você pode trabalhar
com records nesse seu exemplo, ou contagem de referencia.

[]'s


*Diego Garcia*
http://drgarcia1986.wordpress.com
http://twitter.com/drgarcia1986


Em 21 de maio de 2013 11:33, helioroots roots <heliosroots-Re5JQEeQqe8AvxtiuMwx3w< at >public.gmane.org>escreveu:

Re: como fazer o retorno correto. clonar objeto

Tiago Sanches — 2013-05-21T14:46:11

bom, entao nao tem problema, nao liberar da memória?
tipo

function teste(): TSQLQuery;
var abc: TSQLQuery;
begin
  abc := TSQLQuery.create(nil);
  abc.sql.text := 'select * from tabela';
  abc.open;

  result := abc;
  // freeandnill( abc );
end;

lembrando, que, no meu caso, essa function teste() esta em uma classo...

e que em um formulario, por exemplo, usaria ela assim:
queryTeste := classe.teste();

então nao tem problema, criar e não liberar?

porque se eu libero, com o freeandnill, mesmo depois do result, me aparece: 
"Project teste raised exception class 'External: SIGSEGV"




Em terça-feira, 21 de maio de 2013 11h33min58s UTC-3, helioroots roots 
escreveu:

Re: como fazer o retorno correto. clonar objeto

helioroots roots — 2013-05-21T14:33:58

é mesma coisa q fazer isso

function teste: TTeste ;
begin
  result := TTeste.Create;
end;

Em 21/05/13, Guionardo Furlan<guionardo-Re5JQEeQqe8AvxtiuMwx3w< at >public.gmane.org> escreveu:

Re: como fazer o retorno correto. clonar objeto

Guionardo Furlan — 2013-05-21T14:27:05

Eu não entendi a tua lógica.
Você quer retornar uma instância de uma classe, mas liberá-la antes? Então
o retorno deveria ser NIL.

De qualquer forma:
1. Result ganha o endereço de abc
2. A instancia apontada por abc é destruída
3. abc ganha o valor nil.

Se você usar o valor de Result, vai ter um AV, pois a instância não existe
mais.


Em 21 de maio de 2013 11:21, Tiago Sanches <tiaches-Re5JQEeQqe8AvxtiuMwx3w< at >public.gmane.org> escreveu:

como fazer o retorno correto. clonar objeto

Tiago Sanches — 2013-05-21T14:21:22

se tenho uma função onde preciso retornar uma variavel que tem que ser 
limpa da memória... como fica?
tipo

function teste(): Tteste;
var abc: Tteste;
begin
  abc := Tteste.create;

  result := abc;
  freeandnill(abc);
end;

no entanto por causa do freeandnill, o result não da certo...

tem algma maneira de clonar um determinado objeto para o result...

ou outro método melhor?

Testes em software

luciano de souza — 2013-05-21T14:12:52

Caros,
Para melhor interagir com as equipes de desenvolvimento cá na empresa,
gostaria de entender melhor como funcionam os testes em software.
Não me parecia má uma visita na Wikipédia, então, fiquei a saber que
ela catalogava os seguintes tipos de testes:
1. Testes de unidade;
2. Testes de integração;
3. Testes de sistema;
4. Testes de aceitação;
5. Testes de operação.

1. Testes de unidade
Não tenho muita dúvida do que venha a ser isso. No Freepascal, temos a
FPCUnit. Basicamente, escolhemos uma rotina crítica e construimos um
programa que a teste e emita um relatório.
É um teste sempre feito pelo desenvolvedor. Suponho que seja muito
saudável que os testes unitários sejam entregues juntamente com o
código fonte, visto que futuras atualizações do software poderiam
resultar em testes uitários falhos.

2. Testes de integração
A Wikipédia deixou claro de que não se trata de integração entre
sistemas, mas sim, entre módulos. Um módulo contém os formulários; o
outro, persiste os

Re: erro caracteres acentuados

Alex — 2013-05-21T02:36:42

Re: erro caracteres acentuados

silvioprog — 2013-05-21T02:05:31

Em 20 de maio de 2013 20:51, Alex <alex_p_silva-/E1597aS9LRfJ/NunPodnw< at >public.gmane.org> escreveu:


Anexo um exemplo que usei na segunda gerra mundial. Não repare a sujeira, é
código antigo.

Re: erro caracteres acentuados

Alex — 2013-05-21T00:14:39

Re: erro caracteres acentuados

Amarildo Araújo — 2013-05-21T00:08:46

Eu utilizo está função

function TFuncoes.TiraCifraoTrocaVirg_Pto(Vlr: string): String;
var i:integer;
begin
  if Vlr <> '' then
    begin
      for i := 0 to Length(Vlr) do
        begin
          if Vlr[i] = ',' then
              begin
                Vlr[i]:='.';
              end else
                  begin
                    if Vlr[i] = 'R' then
                      begin
                        Vlr[i]:=' ';
                      end else
                          begin
                            if Vlr[i] = '$' then
                                begin
                                  Vlr[i]:=' ';
                                end;
                          end;
                  end;
            END;
  end;
  Result := vlr;
end;

<º_º>  Amarildo Araújo.
Skype:amarildo.vix


Se você pretende redirecionar este e-mail, por favor, apague todos os
endereços que aparecem  nele.
Uma opção de segurança é endereçá-los no Cco (com cópia oculta). Desta
forma você estará protegendo a mim

erro caracteres acentuados

Alex — 2013-05-20T23:51:02

Ola pessoal
tenho uma unit em iso-8859-2 e preciso substituir o conteudo de um Tedit 
para remover o 'Ç' quando digitar 'PÇ' ele substitui por 'PC' ja tentei 
as funções abaixo mas nada funcionou ...alguma dica ?

   // Edit33.Text:=stringreplace(Edit22.Text,'Ç','C',[rfReplaceAll]);
    if (Edit22.Text=AnsiToUtf8('PÇ'))then
    Edit33.Text:='PC';

Re: [OFF] Enfim o Google se rendeu! PHP no googleappengine :D!

Rafael — 2013-05-20T17:38:33

boa...


2013/5/20 JB <josebenedito-Re5JQEeQqe8AvxtiuMwx3w< at >public.gmane.org>

[OFF] Enfim o Google se rendeu! PHP no googleappengine :D!

JB — 2013-05-20T14:19:07

Fontes:

http://www.phpclasses.org/blog/post/208-5-Reasons-Why-the-Web-Platform-War-is-Over-PHP-Won-with-75-says-Google.html

https://developers.google.com/live/shows/511454529/

https://code.google.com/p/googleappengine/issues/detail?id=13&colspec=ID%20Type%20Component%20Status%20Stars%20Summary%20Language%20Priority%20Owner%20Log

José Benedito
JBS Soluções
Consulting Systems Development
c <josebenedito-Re5JQEeQqe8AvxtiuMwx3w< at >public.gmane.org>ontato-sNnIevSKLLuBYrYycbcsJg< at >public.gmane.org
www.jbsolucoes.net

skype: sac-sNnIevSKLLuBYrYycbcsJg< at >public.gmane.org

Re: [lazarus-br] E o Brook já pode ser usado?

JB — 2013-05-20T10:37:18

Estou trabalhando no projeto, pode ficar instável, teste usando esse link
http://jbs.linkpc.net/restclient.html

att.
JB


José Benedito
JBS Soluções
Consulting Systems Development
c <josebenedito-Re5JQEeQqe8AvxtiuMwx3w< at >public.gmane.org>ontato-sNnIevSKLLuBYrYycbcsJg< at >public.gmane.org
www.jbsolucoes.net

skype: sac-sNnIevSKLLuBYrYycbcsJg< at >public.gmane.org


2013/5/20 JB <josebenedito-Re5JQEeQqe8AvxtiuMwx3w< at >public.gmane.org>

Re: [lazarus-br] E o Brook já pode ser usado?

JB — 2013-05-20T10:08:13

opa, sorry, tente novamente

acho que estava com o serviço parado...

me adiciona no gtalk.

att.
JB


José Benedito
JBS Soluções
Consulting Systems Development
c <josebenedito-Re5JQEeQqe8AvxtiuMwx3w< at >public.gmane.org>ontato-sNnIevSKLLuBYrYycbcsJg< at >public.gmane.org
www.jbsolucoes.net

skype: sac-sNnIevSKLLuBYrYycbcsJg< at >public.gmane.org


2013/5/20 Arnaldo Silva <azlinjsilva-Re5JQEeQqe8AvxtiuMwx3w< at >public.gmane.org>

Re: [lazarus-br] E o Brook já pode ser usado?

Arnaldo Silva — 2013-05-20T09:36:46

Bom dia JB,

O Firefox não conseguiu estabelecer uma conexão com o servidor 
jbs.linkpc.net.

:(

Em 20-05-2013 05:18, JB escreveu:

Re: [lazarus-br] E o Brook já pode ser usado?

JB — 2013-05-20T08:18:21

Bom dia Everaldo,

o Silvio pode te responder melhor, porém posso dar minha opinião? :)

Sim, o Brook pode ser utilizado sem muita dor de cabeça.

Estou acompanhando o trabalho do Silvio a um bom tempo e testando
"insanamente" diversas tecnologias possíveis de desenvolvimento com
Lazarus/FPC, pois tenho a necessidade de migrar meu servidor de aplicações
feito em Delphi, esta tarefa não está sendo fácil e nessas últimas semanas
tive grande êxito ao incorporar o Brook na minha solução. É uma ferramenta
completa para o que se propõe, muito bem estudada e desenvolvida pelo
Silvio com apoio da comunidade, ele utiliza oque há de melhor no FPC e
entrega de forma simples ao desenvolvedor.

Para efeito de demonstração, disponibilizo um exemplo do Brook rodando em
meu servidor de aplicações.

http://jbs.linkpc.net/

É um simples exemplo de um cliente JSON RPC, apenas acesse em clique em
Run, ele vai acessar meu servidor, executar q query e retornar os dados no
padrão JSON RPC.

Todo serviço foi

[lazarus-br] E o Brook já pode ser usado?

Everaldo — 2013-05-20T02:14:45

Caro amigo Sílvio, como está o Brook, já pode ser utilizado sem muita 
"dor de cabeça"? Se pode, qual o linque para baixá-lo e começar a 
desenvolver através dele? Desde já, sou-lhe grato pela resposta que me 
fornecer.


Everaldo