Separar String y cargar en edit delphi

[Jasan_Records]

Hola Muchachos!, Estoy Usando Delphi y Tengo un campo que guarda un dato como este: pc-12345-a-16, la consulta es como podria hacer la codificacion para separar la cadena delimitado por el - y que se muestre cada uno en un edit. por ejemplo edit1: pc, edit2:12345, edit3:a y edit4:16. espero su ayuda, Gracias.

[[Lepe]]

Hay dos formas, o usas ExtractStrings (mira en la ayuda el uses)

O un TStringList;

Código Delphi [-]
var
  st : TstringList; 
begin 
  st := TstringList.Create; 
  st.Delimiter := '-'; 
  st.DelimitedText:= 'pc-12345-a-16'; 
  if st.Count > 0 then  edit1.text := st[0]; 
  if st.Count > 1 then  edit2.text := st[1]; 
  if st.Count > 2 then  edit3.text := st[2]; 
  if st.Count > 3 then  edit4.text := st[3]; 
  finally 
    st.Free; 
  end;
end;

No lo he compilado... pero debe funcionar.
He puesto los "if" porque nunca me fío de los datos que pueda haber en la base de datos.

Saludos.

[Casimiro Notevi]

Empezado por Lepe

No lo he compilado... pero debe funcionar.

Se te olvidó el try

[Jasan_Records]

gracias por la ayuda pero quizas no fui bien claro, olvide comentar que la consulta que me trae ese dato pc-12345-a-16 y otros con el mismo formato lo hago con un adoquery, en el expte.DelimitedText:= ' ', debo poner el adoquery? perdon soy nuevo en esto y me apasiona aprender.

[Casimiro Notevi]

Empezado por Jasan_Records

... soy nuevo en esto y me apasiona aprender.

Entonces esto es lo que necesitas

[Neftali [Germán.Estévez]]

Aquí tienes la explicación de la clase TStringList con ejemplos que puedes probar.
En la misma línea que el ejemplo que te ha escrito Lepe.