Results 1 to 4 of 4

Thread: Boolean not set

  1. #1

    Boolean not set

    Op het internet heb ik onderstaande code gevonden.
    Nu krijg ik de code niet goed werkend, het lijkt erop dat B niet de waarde True krijgt.
    Ik krijg namelijk gelijk de ShowMessage('Er kon geen data overgedragen worden...........');
    Iemand een idee ?

    Code:
    procedure TForm1.Button1Click(Sender: TObject);
    var B : Boolean;
    begin // Select the excel file and read in the data
      Button1.Enabled := False; // switch off
      if OpenDialog1.Execute
          then begin // selecteer de file
                Label4.Text := 'File name: ' + ExtractFileName(OpenDialog1.FileName); // show filename
                Label3.Text := ''; // make sums clear
                ComboBox1.Items.Clear;
                ComboBox2.Items.Clear;
                BindSourceDB1.DataSet := nil;  // no connection to the grid
                AniIndicator1.Visible := True;
                AniIndicator1.Enabled := True;
                try
                  B:= DataModule2.OpenExcel(OpenDialog1.FileName, Application);
                  except end; // Did not work?
                AniIndicator1.Enabled := False;
                AniIndicator1.Visible := False;
                 if B 
                  then begin
                       BindSourceDB1.DataSet:= DataModule2.ClientDataSet1;
                       // the combobox receives the data fields as a list
                       DataModule2.ClientDataSet1.Fields.GetFieldNames(ComboBox1.Items);
                       DataModule2.ClientDataSet1.Fields.GetFieldNames(ComboBox2.Items);
                       end
                else ShowMessage('Er kon geen data overgedragen worden...........');
               end;
      Button1.Enabled := True; // swicht on
    end;
    It deosn't mttaer in waht oredr the ltteers in a wrod are, the olny iprmoatnt tihng is taht the frist and lsat ltteer are at the rghit pclae.

  2. #2
    Wordt een beetje lastig als we niet weten wat OpenExcel allemaal uitspookt.
    P.S. De code zelf is ook een beetje 'apart', maar dat was niet je vraag natuurlijk

  3. #3
    En je slurpt sowieso de e.v. exception op uit OpenExcel dus krijg je waarschijnlijk een hint dat B geen waarde kan hebben.

    Zorg er dus voor dat de exception over heel de constructie gaat (voorkeur) of zet een initiële waarde voor B.

  4. #4
    drByte, paar vragen.
    1. Welke Delphi versie gebruik je?
    2. Wat doet de functie OpenExcel precies?
    3. Kan je misschien het volledige project oploaden zodat ik en anderen een beter beeld krijgen van wat er allemaal gebeurt.
    Nu heb ik namelijk geen idee wat er in OpenExcel gebeurt, of wat voor object Datamodule2 is.

    Zoals het er nu uit ziet lijkt het dat OpenExcel mislukt en dat daarom je boolean op false staat.

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •