Discussion :

[TheBigMac]

Bonsoir

Voici la partie interface d'une unit, trouvée sur internet

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
 
interface
 
type
  {$ifdef WINDOWS}
  size_t = Word;
  {$else}
  size_t = LongInt;
  {$endif}
 
type
  TTranslationTable = array[char] of char;  { translation table }
 
  TSearchBM = class(TObject)
  private
    FTranslate  : TTranslationTable;     { translation table }
    FJumpTable  : array[char] of Byte;   { Jumping table }
    FShift_1    : integer;
    FPattern    : pchar;
    FPatternLen : size_t;
  public
    procedure Prepare( Pattern: pchar; PatternLen: size_t; IgnoreCase: Boolean );
    procedure PrepareStr( const Pattern: string; IgnoreCase: Boolean );
    function  Search( Text: pchar; TextLen: size_t ): pchar;
    function  Pos( const S: string ): integer;
  end;

Venu du TP7, je ne sais pas comment l'appeler depuis mon application en mode console.

Pouvez-vous me conseiller, merci d'avance.

[Balises CODE rajoutées par Pedro. Merci d'y penser à l'avenir]

[Pedro]

Salut
Il te suffit d'ajouter l'unité dans laquelle tu as ce code dans la clause uses de l'unité où tu veux l'utiliser.
Ensuite, C'est une classe, il faut donc la créer et à la fin, la libérer:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
var SearchBM: TSearchBM;
begin
  SearchBM := TSearchBM.Create;
  try
    SearchBM.Machin(Truc);
    SearchBM.Bidule;
  finally
    SearchBM.Free; //Ou Destroy si tu es  sûr de ton coup
  end;
end;

Le fait que cela soit une appli console ou non n'empêche en rien le fonctionnement de cette classe (enfin du moins avec le code que tu montres )

[TheBigMac]

Merci beaucoup Pedro pour ton aide;

Mais, excuse moi:je suis novice et je ne comprend pas pourquoi appeler deux fois SearchBM: une fois avec un paramètre et sa variable et la deuxième fois sans variable.

Code :

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

1
2
3
4
5
6
7
 
.....
 try
    SearchBM.Machin(Truc);
    SearchBM.Bidule;
  finally
......

Est-ce simplement un exemple ou y a-t-il une raison particulière?

Merci

[Pedro]

Est-ce simplement un exemple ou y a-t-il une raison particulière?

Non c'est un exemple Il signifie qu'une fois la classe créée, tu peux utiliser toutes ses méthodes membres

Si ton sujet est résolu, merci de cliquer sur

[TheBigMac]

Merci Pedro.