[Помогите!] Здоровье босса в ProgressBar1

[Tide73]

Подскажите пожалуйста, выдает ошибку при компиляции на месте отмеченым красным.

var
    p,i:Tstrings;
    name,h_full,h_now,battle_time:string;

    begin
idhttp1.Request.UserAgent:= 'Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.2.13)';
idhttp1.Request.ContentType:='application/x-www-form-urlencoded';

p:=Tstringlist.Create;
i:=Tstringlist.Create;

try
i.Add('method=getBoss');
i.Add('key=' + Edit2.Text);
i.Add('user=' + Edit1.Text);
i.Text:=IdHTTP1.Post('http://109.234.156.251/prison/universal.php?getBoss', i);
memo2.Lines.Add(i.Text);

name:=parse ('<name>', '</name>', Memo2.Text); //Имя босса
h_full:=parse ('<h_full>', '</h_full>', Memo2.Text); //Здоровье 100%
h_now:=parse ('<h_now>', '</h_now>', Memo2.Text); //Здоровья осталось
battle_time:=parse ('<battle_time>', '</battle_time>', Memo2.Text); //Времени осталось



ProgressBar1.Position:=h_now;
ProgressBar1.Max:=h_full;

Label10.Caption:=battle_time

[Hint] Unit1.pas(93): Variable 'res' is declared but never used in 'parse'
[Error] Unit1.pas(127): Incompatible types: 'Integer' and 'String'
[Error] Unit1.pas(128): Incompatible types: 'Integer' and 'String'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

[Fliva59]

Вот его ошибка!
h_full,h_now:string; а надо Integer

Но если поставить Integer то ошибка будет здесь

Цитата: h_full:=parse ('<h_full>', '</h_full>', Memo2.Text); //Здоровье 100% h_now:=parse ('<h_now>', '</h_now>', Memo2.Text); //Здоровья осталось

Так как это String

PS. ProgressBar1 это всегда Integer

[VeTaL_UA]

Цитата: Сообщение от Fliva59 ProgressBar1 это всегда Integer

ProgressBar1.Position всегда Integer...

А насчёт кода, попробуй так:

ProgressBar1.Position:=strtoint(h_now);
ProgressBar1.Max:=strtoint(h_full);

[Tide73]

Цитата: Сообщение от VeTaL_UA ProgressBar1.Position всегда Integer... А насчёт кода, попробуй так: ProgressBar1.Position:=strtoint(h_now); ProgressBar1.Max:=strtoint(h_full);

Компилирует, но при запросе ошибка.

[Fliva59]

Вот тебе код тут робит всё! Проверенно!!

procedure TForm1.Button1Click(Sender: TObject);
var
    p,i:Tstrings;
    name,h_full,h_now,battle_time:string;

    begin
idhttp1.Request.UserAgent:= 'Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.2.13)';
idhttp1.Request.ContentType:='application/x-www-form-urlencoded';

p:=Tstringlist.Create;
i:=Tstringlist.Create;

try
i.Add('method=getBoss');
i.Add('key=*************');
i.Add('user=*************');
i.Text:=IdHTTP1.Post('http://109.234.156.251/prison/universal.php?getBoss', i);

name:=parse ('<name>', '</name>', i.text); //Имя босса
h_full:=parse ('<h_full>', '</h_full>', i.text); //Здоровье 100%
h_now:=parse ('<h_now>', '</h_now>', i.text); //Здоровья осталось
battle_time:=parse ('<battle_time>', '</battle_time>', i.text); //Времени осталось



ProgressBar1.Position:=strtoint(h_now);
ProgressBar1.Max:=strtoint(h_full);

Label1.Caption:=battle_time;

finally
  IdHTTP1.Free
end;
end;

PS. Можно мемо и не подключать

[Tide73]

Цитата: Сообщение от Fliva59 Вот тебе код тут робит всё! Проверенно!! procedure TForm1.Button1Click(Sender: TObject); var p,i:Tstrings; name,h_full,h_now,battle_time:string; begin idhttp1.Request.UserAgent:= 'Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.2.13)'; idhttp1.Request.ContentType:='application/x-www-form-urlencoded'; p:=Tstringlist.Create; i:=Tstringlist.Create; try i.Add('method=getBoss'); i.Add('key=*************'); i.Add('user=*************'); i.Text:=IdHTTP1.Post('http://109.234.156.251/prison/universal.php?getBoss', i); name:=parse ('<name>', '</name>', i.text); //Имя босса h_full:=parse ('<h_full>', '</h_full>', i.text); //Здоровье 100% h_now:=parse ('<h_now>', '</h_now>', i.text); //Здоровья осталось battle_time:=parse ('<battle_time>', '</battle_time>', i.text); //Времени осталось ProgressBar1.Position:=strtoint(h_now); ProgressBar1.Max:=strtoint(h_full); Label1.Caption:=battle_time; finally IdHTTP1.Free end; end; PS. Можно мемо и не подключать

Первый запрос проходит нормально, но ProgressBar1.Position:=strtoint(h_now); неработает, при втором нажатии на кнопку выдает ошибку

[Fliva59]

При 2-ом запросе очищай ProgressBar1.Position и всё

[Fendak]

Помогите, у меня ошибак вот здесь: что мне зделать?

name:=parse

Раrse ((((((((((((((((((

[NebesaBag]

Хм. Разве мало ботов для тюряги?)