Discussion :

[mick605]

Ouaaaaaah le délire... mais bon cela n'empechera pas qu'il comprenne que quand form5 sera show il aura le show de form5, et quand il excutera son projet il aura aussi le message de la form5.

Exact.

T'avouera que nommé les forms de la sorte ne va franchement pas l'aider.

J'espere qu'il comprends nos explications.

Oui, c'est important de toujours bien nommer ses composants, ca permet de gagner BEAUCOUP de temps lors d'un debuggage (comme ici )

[Bakouz]

Ouaaaaaah le délire... mais bon cela n'empechera pas qu'il comprenne que quand form5 sera show il aura le show de form5, et quand il excutera son projet il aura aussi le message de la form5.

T'avouera que nommé les forms de la sorte ne va franchement pas l'aider.

J'espere qu'il comprends nos explications.

C'est mon collègue en fait qui a commencé comme ca et on a fait avec

Par contre..


ca marche ! Avec comme tu m'a conseillé

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 procedure TForm6.FormShow(Sender: TObject);
 var
 addFichier : String;
 nomF : String;
begin
  nomF:=Form3.ClasseP;
  addFichier:='db\'+nomF+'.txt';
  if (FileExists(addFichier)) then
  begin
    Memo1.Lines.LoadFromFile(addFichier) ;
  end
  else
Memo1.Lines.SaveToFile(addFichier) ;
end;

[BuzzLeclaire]

Ouah...
T'as vu Mick ?

23h57 en même temps... c'est la première fois que ca m'arrive... mort de rire.

Va faloir que les admins mettents les secondes bientôt dans l'heure des topics.

Mortel...

[Bakouz]

Franchement impeccable, un énorme merci a vous 3, vraiment

Thx a lot Mick pour etre la depuis le début de soirée a m'aider et pour le tableau

[Andnotor]

Mis à part ça, une boucle sur i jusqu'à Memo2.Lines.Count -1 et ensuite une lecture sur Memo2.Lines.Strings[i+3], ça va pas le faire .

[BuzzLeclaire]

...
ca marche ! Avec comme tu m'a conseillé
...

Ouf !! j'en suis ravi.

Mais il faudrait vraiment que tu renomme tes Fiches...

Maintenant ce que tu essai de faire, il y a vraiment d'autre moyen beaucoup plus propre pour y arriver. Mais le principal c'est que tu atteinds ton obectif.

[mick605]

Ouah...
T'as vu Mick ?

23h57 en même temps... c'est la première fois que ca m'arrive... mort de rire.

Va faloir que les admins mettents les secondes bientôt dans l'heure des topics.

Mortel...

A cause de ca, j'ai eu quelques bugs d'actualisation !! Mais ca m'est déja arrivé une fois ^^.

Franchement impeccable, un énorme merci a vous 3, vraiment

Thx a lot Mick pour etre la depuis le début de soirée a m'aider et pour le tableau

De rien ! Maintenant termines en mettant le "Résolu" au topic et c'est parfait !
Je te conseillerai juste de lire quelques tutos sur le ShowModal, dans ton cas précis, ca pourrait t'être très utile !

[Bakouz]

Ouf !! j'en suis ravi.

Mais il faudrait vraiment que tu renomme tes Fiches...

Maintenant ce que tu essai de faire, il y a vraiment d'autre moyen beaucoup plus propre pour y arriver. Mais le principal c'est que tu atteinds ton obectif.

Je confirme, on doit s'y prendre tout seul et débute la dedans donc on tatonne un peu.

Encore merci,je vais m'atteler aux autres détails, bonne nuit

[mick605]

Mis à part ça, une boucle sur i jusqu'à Memo2.Lines.Count -1 et ensuite une lecture sur Memo2.Lines.Strings[i+3], ça va pas le faire .

^^ En fait, la lecture du fichier se fait nickel ... Son premier post ne décrit pas tres bien son probleme, a vrai dire, il a plusieurs forms et n'arrivait pas a gerer la chronologie des énevements lors d'un FormX.Show. Ce qui fait qu'il essayait d'ouvrir un fichier dont le nom est contenu dans MaVariable, avant que MaVariable ne contienne quoi que ce soit

[Andnotor]

^^ En fait, la lecture du fichier se fait nickel ... Son premier post ne décrit pas tres bien son probleme, a vrai dire, il a plusieurs forms et n'arrivait pas a gerer la chronologie des énevements lors d'un FormX.Show. Ce qui fait qu'il essayait d'ouvrir un fichier dont le nom est contenu dans MaVariable, avant que MaVariable ne contienne quoi que ce soit

J'ai bien compris .
J'attire juste son attention avant sa prochaine question. Lecture au-delà de Count-1 = Impossible.

[BuzzLeclaire]

Mis à part ça, une boucle sur i jusqu'à Memo2.Lines.Count -1 et ensuite une lecture sur Memo2.Lines.Strings[i+3], ça va pas le faire .

Tu veux parler de cela

Code :

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

1
2
3
4
5
      for i := 0 to Form1.Memo2.Lines.Count - 1 do
        begin
          mStringNomP :=Form1.Memo2.Lines.Strings[i] ;
          mStringPWDP := Form1.Memo2.Lines.Strings[i+2] ;
          GroupeP := Form1.Memo2.Lines.Strings[i+3] ;

effectivement sa va faire mal....


PS : J'ai réussi une nouvelle fois avec AndNotOr 00h04 ..... Winnerrrrrr

[Bakouz]

Je verrais ca dans 'quelques heures'.. merci d'avoir pointé le prochain soucis

Bonne nuit

[mick605]

AndNotOr, Buzz > Bien vu les gars !

Psst Buzz, ya 23h52, 23h57, 00h04 ! Trop actif le topic !