criar uma variavel global

Question

pesoal tenho um valor em um form e gostaria de criar uma variavel global para que quando eu acessar outro form o valor continue. Existe algum jeito?Pessoal estou desesperado. me ajudem...

Bacalhau · Answer

Eu resolvi isso de uma forma super burra, mas resultou at� hoje.

Antes de abrir o form2, escrevo para um ficheiro de texto os valores que preciso no 2� form

var l : textfile;

assignfile(l,�ARQUIVO.TXT�);
rewrite(l);
writeln(l,valor1);
writeln(l,valor2);
writeln(l,valorEtc);
closefile(l);

A primeira coisa que o form2 faz � ler o arquivo e carregar vari�veis com os valores obtidos

assignfile(l,�ARQUIVO.TXT�);
reset(l);
readln(l,valor1);
var_a := valor1;
readln(l,valor 2);
var_b := valor2;
readln(l,valor etc);
var_etc := valorEtc;
closefile(l);

Isto � de uma esquesitice a toda a prova, mas o facto � que passo quanto valores quiser, o form2 trabalha sem problemas e ainda consegue repassar valores para a form1

Aroldo Zanela · Answer

Colega,Utiliza a se��o Public para isso. Por exemplo:[code:1:6939860e37]No Form1Public nGrandeTotal: Currency;....Implementation....procedure TForm1.FormCreate(Sender: TObject);begin  Application.CreateForm(TForm2, Form2);  Form2.ShowModal;  Form2.Free;end;.....No Form2....Form1.nGrandeTotal := qSomaTotalVALOR.Value; // Referencia o form1....[/code:1:6939860e37]...

F�rum criar uma variavel global #176929