Listo!
La solución era más fácil que el problema.
Cargué la respuesta en Notepad++ y ahí me dí cuenta que cada línea de texto estaba acompañada con su traducción y había un texto al final que las otras líneas no tenían.
Con eso se me ocurrió todo.
Esto fue lo que usé.
Se los dejo por si alguna vez lo necesitan.
Función que devuelve un texto entre que está entre dos opciones de texto y es la que uso para separar las lines del texto traducido.
Código Delphi
[-]function TForm1.ExtractTextBetween(const Input, Delim1, Delim2: string): string;
var
aPos, bPos: Integer;
begin
Result := '';
aPos := Pos(Delim1, Input);
if aPos > 0 then
begin
bPos := PosEx(Delim2, Input, aPos + Length(Delim1));
if bPos > 0 then
begin
Result := Copy(Input, aPos + Length(Delim1),
bPos - (aPos + Length(Delim1)));
end;
end;
end;
Edit1.Text contiene la URL que uso para traducir el texto.
Código:
https://translate.google.com.ar/translate_a/single?client=webapp&sl=auto&tl=es&dt=at&dt=bd&dt=ex&dt=ld&dt=md&dt=qca&dt=rw&dt=rm&dt=ss&dt=t&dt=gt&pc=1&otf=1&ssel=0&tsel=3&kc=1&tk=893352.727247&q=Guru%20Guru%20sur%20DS%20est%20un%20jeu%20plut%C3%B4t%20orginal%20puisqu%27il%20propose%20une%20sorte%20de%20mini-golf%20o%C3%B9%20la%20balle%20se%20voit%20remplac%C3%A9e%20par%20une%20petite%20cr%C3%A9ature.%20Il%20s%27agit%20alors%20non%20pas%20seulement%20de%20viser%20juste%20mais%20aussi%20d%27utiliser%20les%20capacit%C3%A9s%20magiques%20de%20votre%20bestiole%20pour%20l%27orienter%20vers%20le%20trou.
Código Delphi
[-]procedure TForm1.Button1Click(Sender: TObject);
var
s : TStringList;
i : integer;
begin
s := TStringList.Create;
s.Text := idhttp1.Get(Edit1.Text);
for I := 0 to s.Count - 1 do
begin
if AnsiContainsText(s[i],'.md') then
begin
Memo2.Lines.Add(ExtractTextBetween(s[i],'["','","'));
end;
end;
s.Free;
end;
Saludos!!!!!