Ошибка в POS

[KREGI]

Странная ошибка
[Error] Unit2.pas(48): Missing operator or semicolon
во всех строках содержащих pos

var v:string;
...
v:=IdHTTP1.Post('http:сайт',SL);
 if Pos(Edit1.Text,v)<>0

Скажите причину, плз.

А вот такой код работает

procedure TForm1.Button1Click(Sender: TObject);
var v:string;
begin
v:=edit1.Text;
if Pos('e',v)<>0 then
ShowMessage('22');
end;

Думал уже делфи грешить начал...

[raxp]

какой тип у "v" ?

[KREGI]

raxp string, я написал)

[raxp]

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

теперь, что касается - IdHTTP1.Post()... мож у меня версия indy другая, но у меня это процедура, а не функция.

у меня так- procedure IdHTTP1.Post(URL: string; const Source: Tstrings; const AResponseContent: Tstream)

[Utkin]

Это не ошибка, я такое уже наблюдал, некоторым функциям требуется именно строка, а не указатель на строку, тем более, что edit1.Text это не строка, а свойство. Так что со стороны Делфи Вы не правы.

[KREGI]

Utkin, raxp не поверите но оно работало, добавляю процедуры в программу и вот те на. щас осмыслю что вы написали, и отпишусь.
raxp IdHTTP1.Post есть и функция и процедура.

[raxp]

raxp IdHTTP1.Post есть и функция и процедура.

значит версии отличаются... у меня только процедурка имеется. А вот Utkin прав.

[KREGI]

function Post(AURL: string; const ASource: TStrings): string; overload;
function Post(AURL: string; const ASource: TStream): string; overload;
function Post(AURL: string; const ASource: TIdMultiPartFormDataStream): string; overload;
procedure Post(AURL: string; const ASource: TStrings; const AResponseContent: TStream); overload;
procedure Post(AURL: string; const ASource: TStream; const AResponseContent: TStream); overload;
procedure Post(AURL: string; const ASource: TIdMultiPartFormDataStream; AResponseContent: TStream);

[Utkin]

Сообщение от KREGI

raxp IdHTTP1.Post есть и функция и процедура.

Скорее все-таки функция - их можно вызывать как процедуры .

[KREGI]

не работает....