Trabahando com textos

[Aszarael 0]

Pessoal preciso fazer o seguinte

tenho uma estring assim

 

30/60/90/120

 

Preciso quebra-la e em partes ou seja preciso saber quantos / tem a string e depois separar os valores.

Algume pode me dar uma dica de como fazer isso ?

Como faço para achar o / e depois prosseguir só dele.

Grato;

 

 

Título editado conforme regra n° 17

[marcio.theis 3]

Você pode fazer uma procedure que separe isto, algo do tipo:

 

 

procedure TForm1.TratamentoBarra(str: string);var	x: integer;	aux: string;beginfor x:=1 to Length(str) do	begin	if (str[x] <> '/') then		aux:=aux + str[x];	if ((str[x] = '/') or (Length(str) = x)) then		begin		//Tratamento do valor recebido		aux:='';		end;	end;end;

Chamando a procedure TratamentoBarra('30/60/90/120');

 

Neste caso ele separa o valor antes da barra, tendo um espaço separado para você fazer o seu tratamento com o valor...