ActiveDelphi

[Diogo_]

Olá

eu tava tentando fazer um array de varios numeros so que vai ser hyper chato fazer de todos os numeros entao tava tentando fazer uma função que me desse as arrays seria algo como

no Edit1.Text eu coloquei = 01,00,05,a6,7b

são 4 arrays e a função pega esses numeros e transforma em
Teste[0] := $01;
Teste[1] := $00;
Teste[2] := $05;
Teste[3] := $a6;
Teste[3] := $7b;

alguem sabe como fazer isso?
eu não sei como informar a função que a cada virgula ',' é um numero novo...

Obrigado

[gustavocco]

Olá, aqui to passando um exemplo jogando num listbox, só altera o código passando ao array...

[tiagosoler]

procedure gravatextomatriz();
var texto, novotexto: string;
contador, qtvirugulas: byte;
matriz: array of string;
begin
texto:=Edit1.Text;
qtvirgulas:=0;
for contador:=0 to Length(texto) do begin
if MidStr(texto, contador, contador)=',' then qtvirgulas:=qtvirgulas+1;
end;
SetLength(matriz, qtvirgulas);
for contador:=0 to High(matriz) do begin
novotexto:=LeftStr(texto, Pos(',', texto)-1);
Insert('$', novotexto, 0);
matriz[contador]:=novotexto;
texto:=Copy(texto, Pos(',' texto)+1, Length(texto));
end;
end;

[tiagosoler]

a funcao passada antes da minha como exemplo usando listbox tem erro:
a sintaxe da procedure delete esta errada
o correto é: Delete(var S: string; Index, Count:Integer);
alem disso deletando só a virgula do texto os demais caracteres a esquerda irao acumular para o proximo item.

[Diogo_]

Aew pessoal muito obrigado pelas respostas usei o codigo do gustado editei umas coisas ficou bem rapido

[gustavocco]

Blz diogo.. bom q serviu o exemplo.