Discussion :

[boober31]

Bonjour,

Je copie un fichier texte dans un memo et je souhaiterais lire caractère par caractère le texte dans le mémo pour écrire ensuite dans un tableau le code ascii correspondant au caractère lu. Avec un mémo je n'arrive à lire que les lignes(Memo1.Lines) mais je ne sais pas comment faire pour lire les caractères un à un dans un mémo jusquà la fin du mémo et le copier par exemple dans un autre mémo pour le moment.Je vous remercie

Boober

[Pedro]

Salut
Un petit coup de t'aurait donné:

Code :

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

1
2
 
memo1.Lines.Text;

Qui renvoie une chaine de caractère contenant le texte complet du TMemo (CR/LF compris)

[rsc]

Chaque ligne (Lines) est une chaîne, donc

Code :

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

Memo .Lines [i] [j]

représente le jème caractère de la ième ligne, en bouclant de

Code :

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

1
2
3
for i := 0 to memo.Lines .Count - 1 do
for j := 1 to Length (Memo .Lines [i]) do
s := Memo .Lines [i] [j];

Roland

[[Silk]]

Salut,
il te suffit de faire comme ça :

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
 
Var
i,j : integer;
Caractere : char;
 
 For i := 0 to Memo1.lines.count-1 do 
 begin 
  //On répète pour chaque ligne
    For j := 0 to length(Memo1.lines.ValueFromIndex[i]) do
    begin
         //Caractere est le caractère que tu veux récupérer
        Caractere := Memo1.lines.ValueFormIndex[i][j]
        // ton code pour gérer ton cractère récupérer ici
    end;
end;

@+

[[Silk]]

Vive les messages croisés

[boober31]

je vous remercie beaucoup. juste une petite dernière question. pourquoi ça marche pas aprés si je fais

Code :

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

1
2
 
 Memo2.Lines[i][j] :=caractere;

pour copier le caractère dans le memo2 . Le compilateur me dit que Memo2.Lines[i][j] n'est pas affectable.
Merci

ps: Silk je n'ai pas utilisé ton ValueFromIndex qui aparamment n'est pas forcément nécessaire.

[Pedro]

Salut
Il faut faire:

Code :

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

1
2
 
Memo2.Lines[i].Strings[j]:=caractère;

[boober31]

ok mais pourquoi?
Merci Pedro

[Pedro]

Salut
Parce que Lines est du type TStrings et que la propriété qui contient chaque ligne est... Strings[Index:integer]
Sinon, tu as aussi, comme je le disais plus haut, la propriété Memo1.Lines.Text qui renvoit tout le texte concaténé CR/LF compris

[samerkouta]

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
procedure TForm2.Button1Click(Sender: TObject);
Var
i,j : integer;
Caractere : char;
Begin
 For i := 0 to Memo1.lines.count -1 do
 begin
  //On répète pour chaque ligne
    For j := 1 to length(Memo1.lines.ValueFromIndex[i]) +1 do
    begin
         //Caractere est le caractère que tu veux récupérer
        Caractere := Memo1.lines[i][j];
        ShowMessage(Caractere);
        // ton code pour gérer ton cractère récupérer ici
    end;
end;
end;

[Clorish]

ok mais pourquoi?
Merci Pedro

Parce que "lines" est une propriété en lecture seule.
C'est un des gros avantages des property. Elles permettent de definir des variables publiques dont on peut restreindre d'acces en lecture/ecriture.

Apres, la difference entre :

Code :

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

Memo1.Lines[i].Strings[j]

et

Code :

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

Memo1.Lines[i][j]

est une question de syntaxe.

Dans la premiere, le l'analyseur va lire la property lines[i] et ensuite va enregistrer le caractere dans la variable Strings[j], donc on accede a lines en lecteur et c'est Strings qui est accédé en ecriture.

Dans le 2e cas, on affecte le caractere a Lines[i] car cet objet possede une property par defaut : Strings. Autrement dit, quand on affecte une variable directement a Lines, elle est redirigée vers sa property Strings.
Donc pour le compilateur, C'est Lines[i] qui est affecté, meme si derriere l'objet effectue une redirection sur Strings[j]

La property Lines etant definie en lecture seule, le compilo hurle