Discussion :

[OutOfRange]

Bonjour à tou(te)s
Je dois gérer une liste de 39000 lignes
L'aide D6 indique, pour l'utilisation d'une TStringList

unit Unit1;
interface
public
{ Déclarations publiques }
ClickList: TStrings;
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
ClickList := TStringList.Create;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
ClickList.Free;
end;

J'ai respecté scrupuleusement cette structure... mais je me heurte à un os et de taille!
Sans que je sache pourquoi,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ClickList.add('chaîne');

ne fonctionne que dans la procédure TForm1.FormCreate
Dans une autre procédure, la compile plante...

[Erreur] pal1.pas(110): Identificateur non déclaré : 'ClickList'

et si je cherche à initialiser mes 39000 lignes dans TForm1.FormCreate,

[Erreur] partage.pas(38962): Trop de constantes locales. Utilisez des procédures plus courtes.

C'est à devenir fou...
Y'aurait pas un bon psychiatre Delphi dans l'coin

?????????????????

[jenesuispasunrobot]

[Erreur] pal1.pas(110): Identificateur non déclaré : 'ClickList'

Le problème est que tu fait référence à ClickList dans l'unité Pal1 qui n'a peut être pas en uses le Unit1.

[cpdump]

Est ce que tu utilises ClickList dans une méthode de TForm1 ? sinon c'est normal que cela ne soit pas visible

Une unité de 39 000 ça fait beaucoup et cela ne doit pas être facile à maintenir. Qu'est ce qu'il y a dans tes 39 000 lignes.

Attention dans certains cas Dephi (tous les langages basé sur la syntaxe Pascal) est incapable de trouver la ligne exacte contenant l'erreur de syntaxe et renvoie un message d'erreur des dizaines ou des centaines de ligne plus loin.

[OutOfRange]

Pour jenesuispasunrobot
Les noms d'unités (copiés) depuis l'aide ne sont pas corrects... c'est tout!
Pour cpdump
Tout se trouve sur la même unité
Mes 39000 lignes sont les communes de France
J'ai fait un essai avec une seule ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ClickList.add('chaîne');

ne fonctionne pas en-dehors de la procédure TForm1.FormCreate

PIN-PON!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

[Nono40]

ne fonctionne pas en-dehors de la procédure TForm1.FormCreate

C'est à dire ? Ou ca en particulier ?

Mettre 39000 ligne de Add(''), c'est heu... pas terrible. Tu mets un fichier texte avec la liste et tu le charges avec CleckList.LoadFromFile()

[bjl]

bonjour,

une petite question car ce n'est pas clair.

ClickList est bien dans les déclarations publiques de TForm1 ?


si oui, dans une autre unit après y avoir déclaré unit1 dans les uses, il faudrait utiliser Form1.clicklist

de plus, CLiscklist étant de type Tstrings, tu dévrais récupérer des erreurs de type abstract.

j'aurais plutôt déclarer ClickList en Tstringlist. sinon, il va falloir écrire
Tstringlist(Form1.clicklist).add(....) pour éviter les ereurs abstraites.

dernier point, avant ClickList.free, j'aurais fait CLicklist.clear;

[OutOfRange]

OK, je n'ai pas été super clair
Ce code est compilé sans pb

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
 
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  listcp:TStrings;
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  listcp:=TStringList.Create;
  listcp.Add('chaine');
end;
 
end.

alors que celui-ci plante à la compile

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  listcp:TStrings;
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  listcp:=TStringList.Create;
end;
 
procedure crealist;
begin
  listcp.Add('chaine');
end;
 
end.

La seule différence est l'emplacement de la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

listcp.Add('chaine');

Pour répondre à NONO40, je voulais éviter de devoit trimbaler un fichier en appendice à mon .exe...

AÏE AÏE AÏE

[jenesuispasunrobot]

normal car la procedure Crealist n'a pas accès à ta form. sois tu déclare la procédure comme une procédure privée de ta form soit tu fais référence à ta form en mettant Form1.listcp.Add('chaine');

[OutOfRange]

OK je commence à comprendre
En fait listcp est objet de Form1, même si cet objet est non graphique
OULALA... Y'a encore des progrès à faire
Merci

[tourlourou]

ou tu déclares dans les variables de l'Unit1 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
var 
  Form1: TForm1;
  listcp:TStringList;

(ou dans une section var de la partie implémentation si listcp n'a pas besoin d'être accessible en dehors de l'Unit1)