Erro em Laço com inserção em MEMO

[universog3 0]

Boa tarde galera!!

 

Estou montando um analisador léxico, ou tentando, e me esbarrei numa porcaria de laço com dois MEMO, vou utilizar esse laço para quebrar o memo, que será a entrada de código para indentificar os tokens e jogar em outro memo o token com sua respectiva identificação...

 

não vai ser tá fácil como nesse código... mas fikei me perguntando pq esse maldito código abaixo não funcionou...

 

alguma idéia?? vlw

 

procedure TForm1.Button1Click(Sender: TObject);
var
nlinhas : integer;
count : integer;
begin
  count:=0;
  nlinhas := Memo1.Lines.Count;

   repeat

     begin
        Memo2.Lines[count] := Memo1.Lines[count];
        count := count+1;
     end;

   until count <= nlinhas;

end;

[Raficcha 1]

Na ultima passaa, vai dar erro mesmo.

 

Funciona assim: O memo.lines.cout retorna quantas linhas tem o memo, tenhamos, para exemplo, que ele tenha retornado "10".

 

isso não quer dizer que os "indices" das linhas vão até dez. Na verde vão de "0" a "9".

 

tente fazer assim:

 

procedure TForm1.Button1Click(Sender: TObject);
var
nlinhas : integer;
count : integer;
begin
 count:=0;
 nlinhas := Memo1.Lines.Count;

 repeat

 begin
 Memo2.Lines[count] := Memo1.Lines[count];
 count := count+1;
 end;

 until count < nlinhas; //antes estava until count <= nlinhas;

end;

:D