iniciante pergunta...

[gbpereira 0]

Pessoal,a minha pergunta até parece "boba" para vocês, mas sou principiante,e estou com um pequeno problema:Como devolver valor de uma variável integer para EDIT1?procedure TForm_SelecionaCurso.cb_CursoChange(Sender: TObject);begin //Monta o select para pegar o número do curso através do nome do curso ADOQuery_aux.SQL.Text := 'SELECT CUR_CD FROM CURSO ' + 'WHERE cur_st_fechado = ' + QuotedStr(Edit_status.Text); //Abre a query ADOQuery_aux.Open; //Atribui o valor obtido à variável giCodCurso := ADOQuery_aux.fieldbyName('cur_cd').AsInteger; //Fecha a query ADOQuery_aux.Close;end;procedure TForm_SelecionaCurso.btn_SelecionaCursoClick(Sender: TObject);begin If (trim(cb_Curso.Text) = '') then begin ShowMessage('Selecione um curso ou feche !'); end else //SIGLA DO CURSO nome_cliente := cb_Curso.Text; label1.Caption := nome_cliente; Edit1.Text := giCodCurso.AsString; (ESTE NÃO APERECE!)Um cordial abraço,Guilherme.grbpereira@gmail.com

[Hugo Slepicka 0]

Bom,acho que eu entendi... !!!você quer passar um valor inteiro para uma caixa de texxto Edit1???bom, é assim....Edt1.text := IntToStr(giCodCurso.Value);bom, a caixa de texto recebe um valor do tipo string em sua propriedade .Text, sendo assim, para não dar incompatibilidade você tem q converter o valor do campo inteiro pra string com o IntToStr(), entendeu???espero q seja isso e que eu tenha ajudado...abraço....

[gbpereira 0]

Caro Hugo,valeu pela dica, só que infelizmente não funcionou. Estou te enviando o código por completo, e a mensagem de erro, estou colocando-a em anexo.Obs.: Tenho uma variável global (Unit_Rotinas).PEDAÇO DA UNIT_ROTINAS:**************************************************************************uses Forms, Windows, SysUtils, Controls, StdCtrls, Mask, Graphics, DBCtrls; //Todos os fulanos vêem o que está aqui!!! Var nome_cliente : string; giCodCurso : Integer;[]'sGuilhermegrbpereira@gmail.comunit Unit_SelecionaCurso;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, ADODB, ExtCtrls, Buttons;type TForm_SelecionaCurso = class(TForm) cb_Curso: TComboBox; ADOQuery_aux: TADOQuery; Edit_status: TEdit; Panel3: TPanel; Label1: TLabel; Panel1: TPanel; btn_SelecionaCurso: TBitBtn; btn_fechar: TBitBtn; Panel2: TPanel; Edit1: TEdit; procedure FormShow(Sender: TObject); // procedure cb_CursoChange(Sender: TObject); procedure btn_SelecionaCursoClick(Sender: TObject); procedure btn_fecharClick(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form_SelecionaCurso: TForm_SelecionaCurso; giCodCurso : integer;implementationuses Unit_CadColab, Unit_Rotinas;{$R *.dfm}procedure TForm_SelecionaCurso.FormShow(Sender: TObject);begin //Limpa o combobox de Cursos cb_curso.Clear; //Define o SELECT para obter o nome dos cursos ADOQuery_aux.SQL.Text := 'SELECT CUR_SG FROM CURSO WHERE cur_st_fechado = ' + QuotedStr(Edit_status.Text)+' ORDER BY CUR_SG'; //Abre a Query com o select definido ADOQuery_aux.Open; //Enquanto não chegar ao final da query faça... While not ADOQuery_aux.Eof do begin //Adiciona ao combobox o nome do curso do registro corrente cb_curso.Items.Add(ADOQuery_aux.fieldbyname('CUR_SG').AsString); //Passa para o próximo registro da query ADOQuery_aux.Next; end;end; procedure TForm_SelecionaCurso.btn_SelecionaCursoClick(Sender: TObject);begin If (trim(cb_Curso.Text) = '') then begin ShowMessage('Selecione um curso ou feche !'); end else //Monta o select para pegar o número do curso através do nome do curso ADOQuery_aux.SQL.Text := 'SELECT CUR_CD FROM CURSO ' + 'WHERE cur_st_fechado = ' + QuotedStr(Edit_status.Text); //Abre a query ADOQuery_aux.Open; //Atribui o valor obtido à variável giCodCurso := ADOQuery_aux.fieldbyName('cur_cd').AsInteger; //Fecha a query ADOQuery_aux.Close; //SIGLA DO CURSO nome_cliente := cb_Curso.Text; label1.Caption := nome_cliente; //SUGESTÃO DO HUGO Edit1.text := IntToStr(giCodCurso.Value);end;procedure TForm_SelecionaCurso.btn_fecharClick(Sender: TObject);begin close;end;end.MENSAGEM DE ERRO:*************************************************************************[Error] Unit_SelecionaCurso.pas(90): Record, object or class type required[Fatal Error] Modulo.dpr(14): Could not compile used unit 'Unit_SelecionaCurso.pas'

[Hugo Slepicka 0]

MAL AEW VELHIHO....é q eu pensei q o giCodCurso fosse um campo da query...mas sendo variável ja vi mew erro....

//SUGESTÃO DO HUGOEdit1.text := IntToStr(giCodCurso.Value);end;

Nova Sugestão minha....

//SUGESTÃO NOVA DO HUGOEdit1.text := IntToStr(giCodCurso);end;

[gbpereira 0]

MAL AEW VELHIHO....é q eu pensei q o giCodCurso fosse um campo da query...mas sendo variável ja vi mew erro....

//SUGESTÃO DO HUGOEdit1.text := IntToStr(giCodCurso.Value);end;

Nova Sugestão minha....

//SUGESTÃO NOVA DO HUGOEdit1.text := IntToStr(giCodCurso);end;

Valeu caboco!!!!!Um abração.