[Вопрос] Переводчик и мой корявый код :)

[Molodoy hacker]

Hi all programmers, ну вобще решил я замоздрачить свой переводчик. Все вроди нормально было. Но когда дошел до шага отправки запросов, вылезла ошибка при запуске программы, и хотел что-бы вы мне помогли с этой глупой ошибкой буду рад любой помощи.

Вот сам код:

procedure TForm1.sButton1Click(Sender: TObject);
var
data:TStringlist;
get_t:string;
gettext,S:string;
 Idx:integer;
begin
 data:=TStringList.Create;
 data.Add('text='+sMemo1.Lines.Text);
 if sComboBox2.Text='Английский'
 then
 data.Add('from=eng')
 else
 data.Add('from=rus');

 data.Add('to=register');

 if sComboBox1.Text='Английский'
 then
 data.Add('from=eng')
 else
 data.Add('from=rus');
get_t:=IdHTTP1.Post('http://begin-english.ru/online', data);

S:=IdHTTP1.Get('http://http://begin-english.ru/online');


S := Copy(S,Pos('<p id="perevod">,S) + Length('<p id="perevod">'), Length(S)); // Тут ошибка Length('<p id="perevod">') возле буквы p
S := Copy(S,1,Pos('</p>',S)-1);


Idx := Pos('<p id="perevod">',S);
While Idx > 0 Do
  Begin

    Buf := Copy(S,Idx+4,Pos('</p>',S)-4-1);


    S := Copy(S,Pos('</p>',S)+5,Length(S));
    Idx := Pos('<p>',S);

sMemo2.Lines.Add(gettext);

end;

Помогите пожалуйста

[kangreon]

Смотрите выше =)
S:=IdHTTP1.Get('http://http://begin-english.ru/online');

И замените Length('<p id="perevod">') на 16, зачем каждый раз считать.
А ошибка потому, что вы не закрыли одинарные кавычки

S := Copy(S,Pos('<p id="perevod">',S)

[Пепел Феникса]

И замените Length('<p id="perevod">') на 16, зачем каждый раз считать.

лучше не надо, компилятор всеравно заменяет константой.
с остальным согласен.

[Molodoy hacker]

Ии.. еще тут ошибка вылезла

    Buf := Copy(S,Idx+4,Pos('</p>',S)-4-1);

Прямо перед Buf

[ArtGrek]

какую ошибку показывает?

[Ghost of Night]

Сообщение от Molodoy hacker

Прямо перед Buf

Что такое BUF в вашей программе?

[Molodoy hacker]

А фух. Я уже все, всем спасбо за помощь! Я сам разобрал код И теперь мой переводчик работает

Тему можно закрыть!