Será que dá (Procedures)?

Delphi

08/04/2004

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.

Curtidas 0

Respostas

Lucas Silva

Lucas Silva

08/04/2004

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;


GOSTEI 0
Motta

Motta

08/04/2004

ou

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


GOSTEI 0
Everton

Everton

08/04/2004

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;


GOSTEI 0
POSTAR