Vetor de carateres de uma string

Question

Como criar um vetor com cada letra de uma string?DELPHIvet[1]=�D�vet[2]=�E�vet[3]=�L�vet[4]=�P�vet[5]=�H�vet[6]=�I�Obrigado....

Beppe · Answer

// se vetor � din�micoSetLength(V, Length(S));// este c�digo funciona tanto com din�mico como est�ticofor I := 1 to Length(S) do  V[I + Low(V) - 1] := S;// ou aindaMove(Pointer(S)^, V[Low(V)], Length(S));PS: N�o testei. Se for est�tico assegure-se da largura do array....

Yallebr · Answer

DELPHI

vet[1]=�D�
vet[2]=�E�
vet[3]=�L�
vet[4]=�P�
vet[5]=�H�
vet[6]=�I�

var
  Vet : string of array
  Cont: SmallInt

SetLenght(Vet,Lenght(SuaString))
For Cont := 1 to Lenght(SuaString) do
  Vet[Cont] := SuaString[Cont]

F�rum Vetor de carateres de uma string #279218