RE: TZF - Many Thanks but more help needed

Thank you for your response.

Code as requested.

procedure TForm1.Compare1Click(Sender: TObject);
var  fn,ln : string;                                    // FirstName - 
LastName Varaibles
    id1, id2, x,y : Integer;                        // id1 = db1 member 
and id2 = db2 member (x & y for RecNo and RecCount)
    MatchFound : Boolean;                      // wanted to use this to 
exit loop when a match is found
begin
  TzDbf.Active := True;
  TzDbf.GoTop;
    X := 1;                                        // Initialised this 
for the ShowMessage window to see what was happening
    id2 := 0;                                     //  Initialised this 
for the ShowMessage window to see what was happening
    While NOT TzDBF.dEOF Do
    Begin
      MatchFound := False;
      fn := Trim(TzDBF.GetCField('firstname'));              // get 
firstname
      ln := Trim(TzDBF.GetCField('lastname'));             // get 
lastname
      id1 := TzDBF.GetLongField('memberid');             // get current 
id number

      //  Show it on screen to see if all is ok

      ShowMessage('Competitor - '+fn+' '+ln+
                             ' is currently '+IntToStr(id1)+
                             ' but should be '+IntToStr(id2));

      CompetitorsFrm.Competitors.Active := True;
      CompetitorsFrm.Competitors.GoTop;
      y := CompetitorsFrm.Competitors.RecCount;   // get the total 
number of records in main database (db1)
      For x := 1 to y Do
        Begin
          If (fn = 
Trim(CompetitorsFrm.Competitors.GetCField('firstname'))) AND
             (ln =  
Trim(CompetitorsFrm.Competitors.GetCField('lastname'))) Then

             Begin         // we found a match so enter and 
update/correct the db2 file
              MatchFound := True;
              id2 := 
CompetitorsFrm.Competitors.GetLongField('memberid');  // get the 
membership number from current record

             // lets display it on screen to check we have got this far

              ShowMessage( ' Record No.'+IntToStr(x)+
                                     ' = Competitor - '+fn+' '+ln+
                                     ' is currently '+IntToStr(id1)+
                                     ' but should be '+IntToStr(id2));

              TzDbf.SetLongField('memberid',id2);  // write it to db2
              TzDbf.Post;                                    // post it 
to db2 
             End
          Else
                    //   ok got lost here.....tried to do x := y which 
is total recordcount so that i could exit loop but it won't compile

          If MatchFound Then   // then tried the boolean op. but 
....help.
         CompetitorsFrm.Competitors.Go(x);

        End;  // For x loop
      TzDBF.Skip(1); // skip to next record
    End;
End;



R & WL Hamilton wrote:
> Can you give a code sample where it crashed? Is is a crash with an error
> or an infinite loop of searching?
> 
> How are you comparing db2 to the correct db1 number if your db2 member
> number is  missing or wrong?
> Roger
> ----- Original Message -----
> From: "Jerry Mallett" <[email protected]>
> To: <[email protected]>
> Sent: February 9, 2003 7:30 PM
> Subject: TZF - Many Thanks but more help needed
> 
> 
> > Hi Guys.
> >
> > Many thanks to all those that responded to my last problem.
> >
> > Got another one now which I have just spent 6 hours on without success.
> >
> > I'm self taught and still learning so go easy on me here.
> >
> > Two databases, First One containing all the proper and correct info on
> > everyone in the club.  About 1000 names addresses etc, plus a membership
> > number.
> >
> > Second one containing some 300 of the same names and membership numbers
> > but with different data.
> >
> > My problem is the membership nos have gone belly up in the second
> > database and I tried to write a routine to compare db2 with db1, check
> > the membership number from db2 with the original in db1, if they didn't
> > match update db2 with the proper membership number from db1.
> >
> > Used a WHILE loop to get info from each record in turn from db2 and
> > nested a for next loop within the while loop which went through each
> > record in turn of db1 to do a comparison. It only partly worked then
> > crashed.
> >
> > Glad I don't do this for a living.  I'd be an extremely poor man today.
> > lol
> >
> > Needless to say I haven't succeeded and was wondering if anyone can
> > help...please.....
> >
> >
> > Jerry
> >
> >
> 
> 
> 



Top O the Morning to ye one and all

==^================================================================
This email was sent to: [email protected]

EASY UNSUBSCRIBE click here: http://topica.com/u/?clvXPN.a5kvff.Z2NsZHQt
Or send an email to: [email protected]

TOPICA - Start your own email discussion group. FREE!
http://www.topica.com/partner/tag02/create/index2.html
==^================================================================