Alguém possui este componente/unit de serialização?
Estou precisando serializar objetos e gostei do projeto, sem falar que na ClubeDelphi vi bons comentários.

Alguém poderia me passar?
kenner “at” codebuilder.com.br

Obrigado,
Abraços

Adotei!
Abraços!

Este problema irá ocorrer com uso de ponteiro também.

Por isso, quando liberar o form, temos também que atribuir nil a referência, assim:

Form1.Free;
Form1 := nil;

ou simplesmente usar uma função disponível na unit SysUtils:

FreeAndNil(Form1);

Utilizando da segunda forma como você me disse, a variável Form do pCriaForm não seria a mesma variável que a Form1.
Nesse caso ela sempre comparará como Nil e criará um novo Form.
Faça o teste sem mandar destruir o Form ao fechar que você verá.

Para isso que estive procurando um bom exemplo de ponteiro como o seu.

Muito Obrigado!

type
PForm: ^TForm;

Procedure pCriaForm( Form : PForm ; FormClass : TFormClass ) ;
Begin

If ( Form^ = Nil ) Then
Form^ := FormClass.Create( Application ) ;
Form^.Show;

End;

e chama assim: pCriaForm( @Form1 , TForm1 );

Mas o mais simples nesse caso é não usar ponteiro:

Procedure pCriaForm(var Form : TForm ; FormClass : TFormClass ) ;
Begin

If ( Form = Nil ) Then
Form := FormClass.Create( Application ) ;
Form.Show;

End;

e chama assim: pCriaForm( Form1 , TForm1 );

o “var” indica que aquele parâmetro é por referência e não por valor, assim a alteração da variável dentro da procedure reflete na variável passada. Como disse nos artigos, apesar do Pascal ter manipulação de ponteiros, as vezes estes não são necessários.

Exemplo do quero fazer:

Procedure pCriaForm( Form : ^TForm ; FormClass : TFormClass ) ;
Begin

If ( Form^ = Nil ) Then
Form^ := FormClass.Create( Application ) ;
Form^.Show;

End;

Para chamar assim: pCriaForm( Form1 ; TForm1 );

Obrigado