7 replies to this topic

[drhouse]

Olá amigos, como verificar se os campos e iguais com este meu código abaixo de exemplo, no caso quero ver se em todos os edits de um formulario tem algum repitido, aguardo retorno obrigado desde já.

begin
for a := 1 to 10 do
begin
for b := 1 to 10 do
begin
if (TEdit(Formulario.Components[a]).Text) = (TEdit(Formulario.Components[b]).Text) then
begin
label1.caption := 'Há campos iguais em ' + a + ' e ' + b;
end;
end;
end;
end;

[LucasAlves]

Tente com esssa procedure que eu fiz:

procedure verificarEditsIguais(FormNome: TForm);
Var I,X, Total : Integer;
begin
Total:=FormNome.ComponentCount;

  for i := 0 to Total-1 do
  begin
        for x := 0 to Total-1 do
          if (FormNome.Components[i] <> FormNome.Components[x]) and (FormNome.Components[i] is TEdit) and (FormNome.Components[x] is TEdit) and
           (TEdit(FormNome.Components[i]).Text=TEdit(FormNome.Components[x]).Text) then
            begin
              ShowMessage('Exite mais de um campor com o valor "'+TEdit(FormNome.Components[i]).Text+'".');
              Abort;
            end;
  end;


end;

procedure TForm1.Button1Click(Sender: TObject);
begin
verificarEditsIguais(self);
ShowMessage('Está tudo OK!');
end;

Abraços!!!

Edição feita por: LucasAlves, 13/05/2011, 20:10.

[MatthewCem]

mninfwe http://www.monking.e...jupiter-264.phphttp://www.taxymoto....o-2017-022.html Vans Old Skool Black GumYeezy 2Adidas Stan Smith Scratch 38Nike Free Flyknit AliexpressNew Balance 574 Noir Et Bleu
cvxbuih

http://www.monasteri...aratos-390.html
http://www.monking.e...9102-68-941.php
http://www.dongpengv...teados-178.html
http://www.gprs-cont...lentes-113.html
http://www.gigaphoto...-famous-531.php

Cinturon Hermes Hombre Mexico
Reebok Nano 4 Mujer
New Balance Homme 2018 Rouge
Zapatillas Jordan Chile Precios
Stan Smith Adidas Blanche

[LarPhozyHah]

Pediatric Keflex Finasteride 1mg Buy Generic Propecia viagra Get Zentel

[Miguceamma]

Priligy Precio En Farmacia Chinese Replica Viagra 100 Mg Cialis Rossore generic viagra Cialis Buy In New Jersey

[oapedlok]

Discounts! product review example Products which fall under this return policy can be returned domestically, as long as they are unused and in the original packaging. No questions asked! If a product that falls under this guarantee is found to be counterfeit, you will get a full refund (shipping costs included). READ MORE 3pcslot imieye 720p 1.0 megapixel wireless ip camera wifi onvif p2p plugplay ir night vision support 64g sd card baby monitor ( 127.92 $)Original Replaceable Back Case for XiaoMi RedMi Note 2 ( $8.28 )Farhadi, AsgarWhite leather high top sneaker ( 250.35 $) MoschinoHot Dog Adjustable Harness Pets Collar Leopard Campo Professional Out Door Dog Harness Hand Strap for Small Large Dogs Pitbulls ( 6.23 $)5CMx400CM,Reflective adhesive tape, Reflective tape sticker for Truck,Car,Motorcycle,Bike, safety use,13 models,Free shipping. ( 3.20 $)Camera Lens Alarm Clock Calendar with Music and Starry Sky Projection-12.02 $2016 New products UltraLight Silicone Material Handlebar Girps High Density MTB Bicycle Handlebar Anti-slip Cycling Grip Cover ( 10.00 $)Burano New Arrival Hot Sale Soak-off Gel polish gel nail kit nail art tools sets kits manicure set choose 8 colors NEW ( 84.00 $)2016 pu leather tassel women handbags designer retro bolsas mujer shopping tote lady bags sac a main fashion shoulder bags l1077 ( 24.99 $)Double Chiffon Silk Stole ( 68.60 $)Meryl black suede sandal ( 351.99 $) Charlotte OlympiaDecker Stainless Steel Chronograph Watch ( 119.00 $)Womens Sky Blue Unlined Italian Leather Gloves ( 82.00 $)Vsyo o Ellison
Discounts! online product reviews


Products which fall under this return policy can be returned domestically, as long as they are unused and in the original packaging. No questions asked!
If a product that falls under this guarantee is found to be counterfeit, you will get a full refund (shipping costs included).


READ MORE
Brazilian hair with closure straight weave peerless virgin hair with closure 3 bundle deal brazillian straight hair with closure ( 94.04 $)
Stylish round neck plus size letters print short sleeve men's t-shirt ( 14.31 $)
7a malaysian straight hair 4 bundles malaysian virgin hair straight human hair 8 ( 50.00 $)
YBYT brand 2016 new casual envelope diamond lattice handbags hotsale women purse ladies clutch shoulder messenger crossbody bags ( 6.90 $)
McAfee Stinger 12.1.0.2239
K88H Bluetooth Smart Watch Heart Rate Monitor Smartwatch ( 41.20 $)
24v 200w protable car heater fan high quality using car styling heating fan car defroster environmental ( 25.90 $)
Nice-forever Elegant Applique Flower embroidery V-neck Office Dress Bodycon Female 34 Sleeve Sheath Vintage Women Dress B330 ( 22.99 $)
Topbrands.ru - shop online clothing premium
Anna Elsa Cosplay Wig Ponytail Hair For Adult Kids Elsa White Brown Wig Cosplay Hair wig Synthetic Wigs For Children QY05 ( 10.76 $)
DC Shoes - the Official online store. All about skateboarding!
Cane hand-woven modern led pendant lights lamp with 1 light for home lighting living room lustre pendente free shipping ( 119.48 $)
7a brazilian virgin hair with closure 4 bundles brazilian body wave with closure unprocessed human hair with closure ( 73.80 $)
havana mambo twist crochet braid hair havana mambo twist 12-24inch full-size blackpurpleburgundy Crochet Twist hair extension ( 5.30 $)
JJRC H11WH RC Quadcopter-59.89 $



Discounts! best products co


Products which fall under this return policy can be returned domestically, as long as they are unused and in the original packaging. No questions asked!
If a product that falls under this guarantee is found to be counterfeit, you will get a full refund (shipping costs included).


READ MORE
Original Xiaomi Mi IV In-Ear 3.5mm Wired Hybrid Dynamic and Two Balanced-Armature Drivers Earphones 22.79$
Men Dress Shirt 2016 Hot Men's Slim Fit Long Sleeve Shirts Chemise Homme Camisas Mens Clothing Solid Patchwork Dress Shirts K307 ( 20.96 $)
2016 Hot Ethernet Network Cable Tester Tools Kits RJ45 Crimping Crimper Stripper Punch Down RJ11 Cat5 Cat6 Wire Line Detector ( 16.29 $)
Bohemian gold and turquoise clip-on earrings ( 507.13 $) Roberto Cavalli
6MM 200 pcslot Mix Colors Loose Beads Small Jingle Bells Christmas Decoration Gift Wholesale ly ( 0.68 $)
Original Turata Full Edge Protection Case For iPhone 6 6S Plus Luxury Ultra Thin Back Cover For Samsung Galaxy S6 S6 Edge Plus ( 9.99 $)
Acrylic 3DCSTAR P802-MHS 3D Printer ( 165.99 $)
Malaysian virgin hair straight 3 bundles rosa hair products malaysian straight hair unprocessed malaysian human hair weave ( 40.00 $)
Ob isklyuchenii iz "Edinoj Rossii" Mariya Maksakova uznaet iz SMI
2015 alligator leather women handbag bolsas de couro fashion famous brands shoulder bag black bag ladies bolsas femininas sac ( 52.36 $)
Armor Rotation Stand Dual Layer Holster for LG G4 ( $4.62 )
BAFTA
Peruvian Body Wave 8A Peruvian Virgin Hair Body Wave 3 Bundle Deals Peruvian Hair Bundles Body Wave Human Hair Bundles Weave ( 30.00 $)
Women Shoes Fashion Cow Muscle Heel Flock Genuine Leather Boots Womenmen Lace Up Shoes Motorcycle Ankle Boots Plus size 34 -44 ( 46.99 $)
Powder Pink Silicone iPhone 6 Cover ( 60.00 $)

[LarPhozyHah]

Where To Buy Cialis Online Safely No Rx Viagra Vs Cialis Sales Viagra Cialis Douleurs viagra prescription Alli Weight Loss Pills For Sale
Cephalexin Ibuprofen Acheter Du Clomid En Ligne Avec cialis Best Place To Buy Tretinoin 0.05
Propecia Wann Einnehmen Generic Tab Bentyl Purchase Internet Online Free Doctor Consultation Buy Prednisone No Prescription Paypal canadian pharmacy levitra Virgara
Delta Enterprises Cialis Viagra Pas Marche Temporary Side Effects Of Propecia levitra on line sale Canada Drug Amex Buying Generic Levitra

[napedlok]

Discounts! summer beauty products 2017


Products which fall under this return policy can be returned domestically, as long as they are unused and in the original packaging. No questions asked!
If a product that falls under this guarantee is found to be counterfeit, you will get a full refund (shipping costs included).


READ MORE
14 Colors Promotion New Design Stud Earrings Glass Stone European Brand Silver Plated Earrings Fashion Black Earrings For Women ( 1.32 $)
Umi Plus 4G Phablet-241.53 $
Pesn Lda i Ognya
Hyh haoyihui 2016 brand new spring style vogue lozenge women gold sequins jackets three quater sleeve fashion coats outwears ( 34.52 $)
Jacqueline Sand Leather Womens Watch ( 119.00 $)
4 x Alloy Propeller Prop Nut Cap CW CCW for DJI Phantom 2 Vision Brushless Motor ( $1.85 )
High quality np55 pneumatic nailing puller gun industrial stubbs nailer gun air tool ( 122.36 $)
counter strike 1.6 русская версия боты скачать
где находится шкив коленвала 2110
7a brazilian lace closure straight natural black bleached knots middle free three way part 4x4 lace ( 24.00 $)
Beam Moving Head Light RGBW LED Wash Light 90v-240v Professional Stage Dj BarHome Entertainment Lighting Effect ( 161.00 $)
Burano nail tools 36w uv gel lamp & 12 color uv gel practice fingers cutter nail art tool kit set #001set manicure set ( 127.00 $)
OHSEN Brand Dive LED Watches Men Military Sport Watch Quartz Silicone Watches Men Wristwatch Relogio Masculino Relojes Mujer ( 27.25 $)
картинки тим фортресс 2
BRELONG Solar LED Camping Lamp Lantern ( $9.18 )