unit npremeir;
 
interface
 
 
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    text1: TEdit;
    text2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Button1: TButton;
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 procedure premier (depart, fin:longint);
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure premier (depart, fin:longint);
var
conte:longint;
pilou:string;
testadd:byte;
begin
conte:=1;
testadd:=0;
While depart<=fin do
begin
   while conte<=depart do
   begin
   if depart mod conte = 0 then
   testadd:=testadd + 1;
   conte:=conte + 1;
   end;
if testadd = 2 then
 begin
 pilou:=IntToStr(depart);
 ListBox1.Items.Add(pilou);
 end;
 depart := depart + 1;
end;
end;
 
end.
 
 
A ce moment( en gras ) il me dit :Listbox1 : undeclared identifier .. mais je l'ai declaré  
je me dit que c PE pas ça le probleme .. si je met label1.caption
il me dit aussi label1 : undeclared identifier ..
j'aimerai savoir d'ou vient le bug ...
 
C'est la premiere fois que je fait une fonction , ya pe un bug qq part ..
 
Merci d'avance

[jfdsdjhfuetppo]--Message édité par Pilou2001 le 09-05-2002 à 15:23:53--[/jfdsdjhfuetppo]

Tu as fait une procédure, pas une méthode.
ListBox1 est un élément de la classe TForm1. Il n'existe donc pas tout seul.
Pour l'utiliser, il faut donc que tu appelles form1.ListBox1 (en veillant à ce que form1 soit déja créé au moment de l'appel.

Merci beaucoup, je teste tout de suite

ou bien tu mets premier dans le private ou le public de form1, et tu mets plus bas, lors de sa definition, procedure TForm1.premier(...)