Проверка орфографии

[KWN, lnc]

Уважаемые программисты. помогите разрбраться... как это сделать с помощью google???


чтобы в Memo1 был неправильный
а в memo2 исправленный???

[kangreon]

function UrlEncode(S: Utf8String): String;
var
  I: Integer;
begin
  Result := '';
  for I := 1 to Length(S)do
  if S[i] in ['a'..'z', 'A'..'Z'] then
    Result := Result + S[i]
  else
    Result := Result + '%' + IntToHex(Ord(S[i]), 2);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  http: TIdHTTP;
  s: string;
  i: integer;
begin
  http := TIdHTTP.Create;
  s := StringReplace(Memo1.Text,#13#10,' ',[rfReplaceAll]);
  s := UrlEncode(s);
  s := http.Get('http://www.google.ru/search?q=' + s);
  i := Pos('=spell><b><i>',s)+13;
  if i = 13 then
    Memo2.Text := Memo1.Text
  else
  begin
    s := Copy(s,i,PosEx('<',s,i)-i);
    Memo2.Text := s;
  end;
  http.Free;
end;

Примерно так. Хотя проверять текст лучше тут http://slovari.yandex.ru/~spellchecker/ Плюс есть API.

[KWN, lnc]

kangreon, спасибо огромное! а почему не весь текст а только слово?
можно целое предложение и есть ли у тебя код на http://slovari.yandex.ru/~spellchecker/ ????? =)

[kardinal94]

Насколько я знаю у Яндекса есть специальный сервис для проверки орфографии. Его использовать гораздо проще. Вот ссылочка интересная