Discussion :

[smail21]

Salam
j'ai à ouvrir un fichier texte qui ne contient que des lettres successives ATGTCGTACTG....., alors je dois les copier dans un Memo ou un RichEdit, j'ai chois un TMemo! mais si vous jugez qu'un RichEdit est meilleur je peux changer.
mais ce que je dois faire c'est de :
1- Vérifier que les lettres dedans sont égales à T, G, C, A est différentes de l'espace blanc.
2- obtenir la taille de cette séquence de lettres.

comment dois-je procéder
merci d'avances

[Lung]

Un truc de ce genre ?

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
var
   F: TextFile;
   szLigne, szLigne2: String;
   i: Integer;
begin
   AssignFile(F, 'MonFichier.txt');
   try
      Reset(F);
      while not Eof(F) do
      begin
         Readln(F, szLigne);
         szLigne2 := '';
         for i:=1 to Length(szLigne) do
         begin
            if(szLigne[i] in ['T', 'G', 'C', 'A']) then
               szLigne2 := szLigne2 + szLigne[i];
         end;
         Memo.Lines.Add(szLigne2);
      end;
   finally
      CLoseFile(F);
   end;

Une fois que ton Memo est rempli, tu peux obtenir la longueur du texte par :

Code :

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

Length(Memo.Text);

[smail21]

Une fois que ton Memo est rempli, tu peux obtenir la longueur du texte par :

Code :

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

Length(Memo.Text);

la première partie marche bien, mais celle de la longueur me donne toujours +2 !
j'ai un séquence de 32 lettres, il me renvois 34
l'autre séquence est de 28, il me renvois 30 ???
où est le problème?

[Lung]

la première partie marche bien, mais celle de la longueur me donne toujours +2 !
j'ai un séquence de 32 lettres, il me renvois 34
l'autre séquence est de 28, il me renvois 30 ???
où est le problème?

Il y a peut-être des retour à la ligne ...

[smail21]

non c'est une séquence directe!
j'ai même vérifié le contenu du mémo et celui des fichiers textes!
il rajoute tjrs +2, meme si la tailleoriginale est paire ou impaire!
alors j'ai mis

Code :

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

taille:= length(memo.text)-2;

merci Sir

[Lung]

De rien.
Si ton problème est résolu, n'oublie pas de cliquer sur le bouton [Résolu].