Ver Mensaje Individual
  #2  
Antiguo 19-03-2012
Avatar de Caral
[Caral] Caral is offline
Miembro Premium
 
Registrado: ago 2006
Posts: 7.659
Reputación: 25
Caral Va por buen camino
Hola
Podrias crear un StringGrid (invisible) que contenga la informacion que saques del dato del campo.
Con esta funcion separas la cadena:
Código Delphi [-]
function SepararCadena(const Cadena: string; const Delim: Char): TStringList;
begin
  Result:= TStringList.Create;
  Result.Delimiter:= Delim;
  Result.DelimitedText:= Cadena;
end;

despues generas el resultado, en este caso proviene de un edit pero puede probenir de un campo string:

Código Delphi [-]
var
  TS: TStrings;
  i, a : integer;
begin
  a:= 1;
  TS:= SepararCadena(Edit1.Text,' ');
  try
    for i:= 0 to TS.Count -1 do
    begin
   StringGrid1.RowCount := StringGrid1.RowCount + 1;
   StringGrid1.Cells[i+1,a] := TS[i];
    end;
   finally
    TS.Free;
  end;

Si quieres probar el ejemplo coloca un stringgrid un boton y un edit, pon en el edit el nombre, apellido1 y apellido2, pon el segundo codigo en el boton.
Saludos
__________________
Siempre Novato
Responder Con Cita