[Resolvido] Passar variáveis entre forms?

[Thiago Delalibera 1]

Preciso passar variáveis entre forms, tipo tenho um form de cadastro com campos: nome, cpf, tel .. e entao a partir de um form de consulta onde eu seleciono um cliente, entao coloco o codigo dele em uma variavel.. quero pegar esta variavel que tem esse codigo atribuido, enviar para este form q eu uso para fazer os cadastros, para que com ele eu faça um select, mas como to começando em delphi nao sei como transportar esta variavel...

 

 

obrigado!

[Chrnos 30]

Tem duas formas.... ou você usa variáveis globais para jogar este valor nela ou cria alguma rotina para criar seu form e enviar os dados como parâmetro, algo como isso:

 

procedure TFormX.CriaTela(var a, b : integer; e, f : string);
begin
	 formX := TformX.Create(self);
	 with formX do
	 begin
		 edit1.text := IntToStr(a);
		 edit2.text := IntToStr(b);
		 edit3.text := e;
		 edit4.text := f;
		 showmodal;
	end;
end;

[]'s

[Thiago Delalibera 1]

Tem duas formas.... ou você usa variáveis globais para jogar este valor nela ou cria alguma rotina para criar seu form e enviar os dados como parâmetro, algo como isso:

 

procedure TFormX.CriaTela(var a, b : integer; e, f : string);
begin
	 formX := TformX.Create(self);
	 with formX do
	 begin
		 edit1.text := IntToStr(a);
		 edit2.text := IntToStr(b);
		 edit3.text := e;
		 edit4.text := f;
		 showmodal;
	end;
end;

[]'s

Valeus Chrnos, gostei do seu exemplo e desculpe a ignorancia nesse assunto, como seria o uso de variaveis globais pode me dar um exemplo?? obrigado

[Chrnos 30]

Variáveis globais são variáveis que podem ser acessadas em qualquer parte do programa. Por exemplo:

 

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
  private
	{ Private declarations }
  public
	{ Public declarations }
  end;

var
  //As variáveis declaradas aqui são globais
  //e podem ser acessadas por qualquer form
  //que tiver este form na sua lista de uses
  Form1: TForm1;
  a, b, d : Integer;

implementation

{$R *.dfm}

end.

Geralmente eu uso este tipo de variáveis em um datamodule para guardar dados que uso constantemente e que não quero ter que recuperar do banco o tempo todo, como código de usuário por exemplo. Ai vai de como você quer usar elas.

 

[]'s

[Thiago Delalibera 1]

ta resolvido =D

muito obrigado.. com sua ajuda ja peguei os esquemas. []´s