Ver Mensaje Individual
  #4  
Antiguo 09-07-2008
Avatar de Caro
*Caro* Caro is offline
Moderadora
 
Registrado: jul 2004
Ubicación: Cochabamba, Bolivia
Posts: 2.544
Reputación: 22
Caro Va por buen camino
Hola de nuevo octalh, la propiedad Delimiter solo te acepta un caracter, no puedes añadir mas de un caracter, de la forma en que esta tu cadena, te conviene de la otra forma que te puse, aqui te dejo el codigo modificado sobre lo ultimo que me dijiste, los nombres que vas obteniendo también los puedes cargar a un StringList y luego lo recorres.

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
var
 slNombres : TStringList; 
 Cadena, CadenaTmp, Palabra : String;
 PosIni, PosFin : Integer;
begin
 slNombres := TStringList.Create;
 Cadena := 'nombre(''PEPE MARTINEZ'')+nombre(''LAURA GONZALES'')+nombre(''ENRIQUE ALMENDRO'')+';
 CadenaTmp := Cadena;
 while Pos(''')+',CadenaTmp)>0 do
  begin
    PosIni := Pos('''',CadenaTmp);
    PosFin := Pos(''')',CadenaTmp);
    Palabra := Copy( CadenaTmp, PosIni+1, PosFin-PosIni-1);
    CadenaTmp := Copy(CadenaTmp, PosFin+1, Length(CadenaTmp)-PosFin);
    showmessage(Palabra);
    slNombres.Add(Palabra);
  end;
end;

Saluditos
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar.
Responder Con Cita