Código Delphi [-] private { Private declarations } public { Public declarations } Zona1 : String; end;
private { Private declarations } public { Public declarations } Zona1 : String; end;
Código Delphi [-]SQLZona1.Close; SQLZOna1.Open; While not SQLZona1.Eof do begin Zona1:=Zona1+SQLZona1.Fields[0].AsString; end;
SQLZona1.Close; SQLZOna1.Open; While not SQLZona1.Eof do begin Zona1:=Zona1+SQLZona1.Fields[0].AsString; end;