Ler memo e colocar em array.

Question

Como fa�o para ler um caracter por vez de um memo e colocar em um Array de Char com tamanho igual ao total de caracteres do memo?...

Bruno Belchior · Answer

Isso deve ajudar:[code:1:585ca11b95]function SetCharArray(pText: string): TCharArray;var  ret: TCharArray;  i, lgth: Integer;begin  lgth := Length(pText);  SetLength(ret,lgth);  for i := 1 to lgth+1 do    ret&#91;i-1&93; := pText&91;i&93;;  Result := ret;end;[/code:1:585ca11b95]...

Leitorbinario · Answer

Tentei usar o texto do memo na fun��o mas deu o seguinte erro.Undeclared identifier: �TCharArray�Imcompatible types...

Bruno Belchior · Answer

Isso � um tipo criado na sess�o type...[code:1:e89c54d7b1]type  TCharArray = array of char;[/code:1:e89c54d7b1]...

F�rum Ler memo e colocar em array. #343851