Ajuda em um código.

Delphi

28/12/2011

Estou montando um editor de texto Automático,
com a idéia de copiar e colar o texto em um
memo. Ao clicar no botão a função quebra as linhas
conforme a quantidade de 48 caracteres.

    QtdCaract:=Length(SourceString);
    Aux:= 48;
    While QtdCaract > J  do
        begin
         If J > Aux then
           Begin
           Aux := J + 49;
           QtdCaract := Tamanho - 48;
           Memo1.Lines.Text:= Memo1.Lines.Text + #13;
           end;
        Memo1.Lines.Text:= Memo1.Lines.Text + SourceString[J];
        J := J + 1;
Lucas Prestes

Lucas Prestes

Curtidas 0

Respostas

Leonardo Xavier

Leonardo Xavier

28/12/2011

o que acontee com este codigo, é que nao tenho o delphi aqui comigo. qual erro que este codigo apresenta?
GOSTEI 0
POSTAR