(Resolvido) Separar numeros de um conjunto de numeros

[vms]

Olá pessoal,

queria criar um conjunto de numeros separados por virgula ou espaço ex. 20,30,10,20 ou 20 30 10 20

e separar esses valores e colocar no edit. Tem como?

desde já agradeço.

[Jhonas]

dê um exemplo de como voce precisa

abraço

[vms]

Ok.

Valores inseridos pelo o usuario

Edit1.Text := '10';

Edit2.Text := '10';

Edit3.Text := '20';

Edit4.Text := '20';

Var_string := Edit1.Text + ',' + Edit2.Text + ',' + Edit3.Text + ',' + Edit4.Text; //ficaria assim: 10,10,20,20

Este valor será armazenado em um campo do banco de dados do tipo texto que servirá como margem(Topo, Baixo, Direita, Esquerda) para um editor de texto, onde o usuario poderá configurar as margens de todos os registros individualmente.

eu poderia criar 4 campos e armazenar os valores separados, mas queria saber se isso é possivel. ficaria assim

Margem_Topo := StrToInt(Primeiro valor);

Margem_Baixo := StrToInt(segundo valor);

Margem_Direita := StrToInt(terceiro valor);

Margem_Esquerda := StrToInt(quarto valor);

[Jhonas]

é bem simples ... veja o exemplo

procedure TForm1.Button1Click(Sender: TObject);
var Margem_Topo, Margem_Baixo, Margem_Direita, Margem_Esquerda : integer;
    i , x : integer; s : string;
begin
   S := trim(Edit1.Text + ',' + Edit2.Text + ',' + Edit3.Text + ',' + Edit4.Text + ','); //ficaria assim: 10,10,20,20
   showmessage(s);
   x := 0;
   while Pos(',', S) > 0 do
      begin
         x := x + 1;
         i := strtoint(copy(s,1,Pos(',', S)-1));
         delete(s,1,Pos(',', S));

         case x of
          1  : Margem_Topo := i;
          2  : Margem_Baixo := i;
          3  : Margem_Direita := i;
          4  : Margem_Esquerda := i;
         end;

      end;

      showmessage('Margem_Topo = ' + inttostr(Margem_Topo));
      showmessage('Margem_Baixo = ' +inttostr(Margem_Baixo));
      showmessage('Margem_Direita = ' +inttostr(Margem_Direita));
      showmessage('Margem_Esquerda = ' +inttostr(Margem_Esquerda));
end;

abraço

[vms]

Opa! é isso mesmo Jhonas, obrigado.