Help Mauricio

Question

Alors je doit dire que perso c du jamais vu en essayant un moyen de Crypter mais fichier pour le projet que je suis en train de faire , je suis tomber sur une source  DBPVERNAM  je pence que les auteurs se reconna&#238;trons !!!

Bref j'ais donc installer ce super composant y a pas d'autre mots mais le probl&#232;me c que dans mais

uses 

j'ais  ( Borland.Vcl.StdCtrls, System.ComponentModel,
  Borland.Vcl.ComCtrls ) et meme si je les vire sa revient as la compilation automatiquement donc ma question


Comment faire pour enlever ou desactiver le composant et surtous comment faire pour inverser le cryptage en gros adapter le code de facon as se que je puisse crypter mais fichier de mon repertoire et faire en sorte que quand j'apelle la procedure sa se decrypte et non l'inverse 

et voila le source sa reste un code simple mais bon c en cours de developpement donc soyer pas trops mechant merci

Const
  MyTab1: Array[0..0] Of String = (
    'Bse1\Test1.txt');


// on mais une variable si vous avez plusieur Tbutton
// sinon c pas la peine
Var
  QuelBouton: Integer;


Procedure TForm1.ListBox1Click(Sender: TObject);
Begin
  If (ListBox1.ItemIndex < 0) Then Exit;


  If (QuelBouton = 1) Then
  Begin
    If (FileExists(MyTab1[ListBox1.ItemIndex])) Then
      RichEdit1.Lines.LoadFromFile(MyTab1[ListBox1.ItemIndex])
    Else ShowMessage('Fichier ' + MyTab1[ListBox1.ItemIndex] + ' introuvable !');
  End;


End;


Procedure TForm1.Button1Click(Sender: TObject);
Var
  x: Integer;
Begin
  QuelBouton := 1;
  ListBox1.Clear;
  ListBox1.Items.Add ('Int 00 - Please redistribute the following files unmodified as a group, in a quartet of');
   ListBox1.Items.Add ('Int 00 - Zenith - ROM DEBUGGER');
End;

BlouMan · Answer

faut mettre un titre coh&#233;rent &#224; tes posts...

et apparemment t'as confonds "mes", "mais" et "met"...

sinon pour ton probl&#232;me je sais pas... 


<HR>
BLOU BLOU POWAA

Help Mauricio

1 réponse

Votre réponse