Copiar Caracteres

[ZayDun]

Hola de nuevo, teneis que perdonarme por que creo que no me explique como deberia. estoy haciendo un programa que traduzca una palabra del ingles a español y para ello conecto con una web a traves de un clientsocket, tengo un edit1.text que es donde pongo la palabra que quiero traducir, me conecto a la web y empiezo a recibir datos... la traducion esta metida entre estos caracteres result("palabra_ya_traducida")%&%""S% logro quitar result(" quedandome asi palabra_ya_traducida")&%&%"·&%" y lo que me gustaria ahora es poder decirle a delphi que elimine desde " hasta el final del un edit2.text donde yo pongo la respuesta. gracias de nuevo y perdonar si no me explique bien, UN SALUDO.

[roman]

Pues ¿cómo quitas la primera parte? Porque el método que describiste al principio del hilo no funciona si hay algo antes del primer ".

Yo haría algo así:

Código Delphi [-]
var
  i: Integer;

begin
  (* Busco la primera " *)
  i := Pos('"', Texto);
  if i > 0 then
  begin
    Delete(Texto, 1, i); // borro todo hasta la primera "

    (* Busco la segunda " *)
    i := Pos("", Texto);
    if i > 0 then
    begin
      Delete(Texto, i, MaxInt); // borro hasta el final (tomado de seoane )
    end;
  end;
end;

// Saludos

[luisgutierrezb]

pues a mi se me haria mas facil algo asi como:

Código Delphi [-]
strResultado := Copy(strTraduccion, Pos('(')+2, Pos(')'-2 - Pos('(')+2);

la idea es buscar cuando se abre el parentesis, y agregamos 2 caracteres para que empieze en la palabra, despues buscamos donde se cierra, quitamos los caracteres, restamos la primera posicion para saber el numero de caracteres a copiar que pide la funcion y ya

[ZayDun]

gracias por tomaros vuestro tiempo, los codigos me han funcionado perfectamente!!