Results 1 to 6 of 6

Thread: Listbox laten tellen en vervolgens schrijven...

  1. #1
    Registered User
    Join Date
    Mar 2003
    Location
    Ergens in de Noorden :)
    Posts
    2

    Listbox laten tellen en vervolgens schrijven...

    Hello laat ik maar direct to the point zijn....

    mijn vraag voor jullie is als volgt:

    ik wil namelijk dat ik alle gegevens die in een listbox zijn uitschrijf naar een text bestand (*.html);

    maar tot mijn eigen ongeluk lukt dit mij noooooooit, ben nog een middelmatige beginner-ling;

    Hoe het volgens mij moet:
    --------------------------------

    procedure TForm3.VerderClick(Sender: TObject);

    var
    F: TextFile;
    teller: integer;

    begin
    teller := StrToInt(ListBox1.Items[0]);

    AssignFile(F, Label1.Caption+'\'+'menu.html');
    Rewrite(F);

    WriteLn(F, '<html>');
    WriteLn(F, '<title>'+Form2.Edit1.Text+'</title>');
    WriteLn(F, '<head></head>');
    WriteLn(F, '<body>');
    WriteLn(F, 'Menu <br>'
    +if listbox1.items[0] = listbox1.items[99] then

    begin
    WriteLn(F, +listbox1.items[0]+'<br>');
    teller := teller+1;
    end;

    WriteLn(F, '</body>');
    WriteLn(F, '<html>');
    CloseFile(F);

    end;


    ik krijg elke hier een fout:

    WriteLn(F, +listbox1.items[0] ((( HIER ))) +'<br>');

    maar volgens mij klopt dit niet eens, maar kon dit alleen bedenken... kan iemand mij helpen,

    Alvast bedankt.....

  2. #2
    Hoi,

    volgens mij bedoel je zoiets:

    Code:
    procedure TForm3.VerderClick(Sender: TObject);
    var
      F       : TextFile;
      x  : integer;
    
    begin
      AssignFile(F, Label1.Caption + ' ' + 'menu.html');
      Rewrite(F);
    
      WriteLn(F, '<html>');
      WriteLn(F, '<title>'+ Form2.Edit1.Text + '</title>');
      WriteLn(F, '<head></head>');
      WriteLn(F, '<body>');
      WriteLn(F, 'Menu <br>');
      for x := 0 to listbox1.items.count do
        WriteLn(F, + listbox1.items[x] + '<br>');
    
      WriteLn(F, '</body>');
      WriteLn(F, '<html>');
      CloseFile(F);
    end;
    met de For lus ga je door de items heen welke bij wegschrijft.

    Succes

  3. #3
    Registered User
    Join Date
    Mar 2003
    Location
    Ergens in de Noorden :)
    Posts
    2
    WriteLn(F, + listbox1.items[x] + ((( HIER ))) '<br>');

    Thx... voor je reactie... maar ik krijg nog steeds bij deze regel naar de + een foutmelding als volgt:

    Operator not applicable to this operand type;

    thx...

  4. #4
    misschien moet je de eerste plus weghalen ?

  5. #5
    hoi,

    oopz

    Code:
    WriteLn(F, listbox1.items[x] + '<br>');
    niet goed opgelet met copy - pasten dankje Link

  6. #6
    Je zou ook de NLDHTMLUtils kunnen gebruiken, dan kun je in simpele Delphi code een HTML pagina maken. Hier heb ik een voorbeeldje gemaakt van een stringgrid.
    Marcel

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. ListBox Columns
    By lynxie in forum Algemeen
    Replies: 9
    Last Post: 04-Mar-06, 11:36
  2. Replies: 2
    Last Post: 09-Jan-05, 23:55
  3. laatste regels van listbox laten zien.
    By AaronL in forum Algemeen
    Replies: 7
    Last Post: 12-Jun-04, 10:51
  4. Laten tellen voor grooote opdracht
    By Jelmer in forum Algemeen
    Replies: 17
    Last Post: 15-Jan-04, 15:47
  5. Replies: 6
    Last Post: 25-Jul-03, 10:52

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
  •