Copiar Caracteres

[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