2008/12/1 Andreano Lanusse <[EMAIL PROTECTED]>:
> Uma pequena correção no código :) que enviei anteriormente, considere este.
>
> o type StringArray tem que array of Char e não array of String
>
> type StringArray = array of Char;
> procedure StringToArray( S : string; var MyArray : StringArray);
> var
> i, n : integer;
> begin
> if S = '' then
> Raise Exception.Create( 'O Parâmetro S deve conter algum valor para
> ser utilizada');
> SetLength(MyArray, 0);
> for i := 1 to length(S) do
> begin
> n := Length(MyArray);
> SetLength(MyArray, n+1);
> MyArray[n] := S[i];
> end;
> end;
Tire o primeiro setlength com tamanho zero, tire a variável n, mova o
setlength de dentro do lado para fora dele e use length(s) no segundo
parâmetro, coloque um "-1" no índice do MyArray ao atribuir o caracter
pois arrays dinâmicos são "zero based", e por fim remova toda a rotina
e use a string diretamente, pois ela pode ser acessada exatamente da
forma que o seu array dinâmico.
--
Joao Morais
> var
> ma : StringArray;
> begin
>
> StringToArray('Delphi String to Array sample', ma);
> ....
>
> ________________________________
> From: delphi-br@yahoogrupos.com.br [EMAIL PROTECTED] On Behalf Of Joao Morais
> [EMAIL PROTECTED]
> Sent: Monday, December 01, 2008 3:33 PM
> To: delphi-br@yahoogrupos.com.br
> Subject: Re: [delphi-br] String to Array of Char ...
>
>
> 2008/12/1 Carlos Eduardo Menezes <[EMAIL
> PROTECTED]<mailto:carlos_e%40rocketmail.com>>:
>> Boa tarde pessoal, gostaria de saber se alguem de vocês conhece uma
>> função que converta uma string num array de char, ou mesmo algumas de
>> dicas de como eu posso fazer uma.
>
> String _é_ um array de char. O que você está tentando fazer?
>
> Joao Morais
>
