Fórum como fazer procedure ? #348068
27/10/2007
0
gostaria de saber como eu faco para usar esse codigo nos outros forms sem que fique repentindo toda hora o codigo tentei fazer uma procedure mas nao consegui , gostaria de criar um funcao em que todos os forms echergacem essa funcao.
valew
var x : Integer;
begin
for x := 0 to ComponentCount -1 do
if Components[x] is TEdit then
begin
TEdit(Components[x]).Text := ´´;
end;
end;
valew
var x : Integer;
begin
for x := 0 to ComponentCount -1 do
if Components[x] is TEdit then
begin
TEdit(Components[x]).Text := ´´;
end;
end;
Ciotti
Curtir tópico
+ 0
Responder
Posts
27/10/2007
Marco Salles
crie uma unit separada ... Esta unit voce colocara sua função
Assim
unit Ufuncoes;
interface
depois , nos forms que voce quiser usar os procedimentos contidos nesta
função , declare na secção Uses o Nome desta Unit
e faça assim :
Assim
unit Ufuncoes;
interface
uses
[b:c65dd0d2ba]Forms,StdCtrls;[/b:c65dd0d2ba]
procedure Clear(form:Tform);
implementation
procedure clear(form:Tform);
var
x:integer;
begin
with form do
begin
for x:=0 to componentcount -1 do
if Components[x] is Tedit Then
Tedit(Components[x]).text:=´´;
end
end;
end.
depois , nos forms que voce quiser usar os procedimentos contidos nesta
função , declare na secção Uses o Nome desta Unit
e faça assim :
implementation
uses Ufuncoes;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
clear(form1);
end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)