Fórum Será que dá (Procedures)? #224874

08/04/2004

0

Delphi

Olá amigoos! :lol:
Sou iniciante, e tenho uma dúvida.

Eu tenho uma tabela TabNun, nesta tabela tenho 25 campos que é de N01, N02, até N25.

Criei um form com 15 Edits e em cada evento OnExit dos Edits eu coloquei o seguinte codigo:

If (edt1.text = 01) then
TabNum.N01:=edit1.text;
If (edt1.text = 02) then
TabNum.N02:=edit1.text;
If (edt1.text = 03) then
TabNum.N03:=edit1.text;
Até TabNum.N25;

Isso eu fiz nos 15 eventos dos Edits.

Será que tem como fazer um Procedure, ou outro jeito para este caso.
Sou novato e agradeço a ajuda. :oops:


Marcelo_j.

Marcelo_j.

Responder

Posts

08/04/2004

Lucas Silva

Tem jeito sim....


procedure Tform1.VerificaEdit();
Case StrToInt(edit1.text) of
1: TabNum.N01:=edit1.text;
2: TabNum.N01:=edit1.text;
3: TabNum.N01:=edit1.text;
4: TabNum.N01:=edit1.text;
5: TabNum.N01:=edit1.text;
end;

ai na saida de cada edit você chama a procedure Verifica edit;


Responder

Gostei + 0

08/04/2004

Motta

ou

TabNum.Fields[(StrToInt(edit1.text) - 1)]:=edit1.text;


Responder

Gostei + 0

08/04/2004

Everton

procedure TForm1.VerificaEdits(Numero: String);
begin
if (Numero <> ´´) then
if (StrToInt(Numero) > 0) and (StrToInt(Numero) < 26) then
TabNum.FieldByName(´N´+Numero).AsString := Edit1.Text;
end;


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar