[Novice99]

PHP код:

implementation
var S:string;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
 Data:TStringList;
 i:Byte;
begin
 Data:=TStringList.Create;
 Data.Add('ru='+Edit1.Text);
 Data.Add('en='+Edit2.Text);
 for i:=1 to StrToInt (Edit3.Text) do begin
 S:=IdHTTP1.Post('http://.../index.php',Data);
if Pos('Atrue',S) = 0 then
 Memo2.Lines.Add('GOOD-'+IntToStr(i))
else
 Memo2.Lines.Add('ERROR-'+IntToStr(i)); 


При каждом запросе - GOOD, запрос выполнен. На странице в исходном коде если нормально выполнился запрос, присутствует {"result:"true"}, если не выполнилось {"result":"false"}.
Как сделать чтобы по результату был GOOD и ERROR.

[friz]

Код:

if Pos('true',S) > 0 then 
 Memo2.Lines.Add('GOOD-'+IntToStr(i)) 
else 
 Memo2.Lines.Add('ERROR-'+IntToStr(i)); 

может так?

[Novice99]

friz, спасибо.