Tide73
18.07.2011, 00:13
Подскажите пожалуйста, выдает ошибку при компиляции на месте отмеченым красным.
var
p,i:Tstrings;
name,h_full,h_now,battle_time:string;
begin
id[Ссылки могут видеть только зарегистрированные и активированные пользователи] 'Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.2.13)';
id[Ссылки могут видеть только зарегистрированные и активированные пользователи]'application/x-[Ссылки могут видеть только зарегистрированные и активированные пользователи]';
p:=Tstringlist.Create;
i:=Tstringlist.Create;
try
i.Add('method=getBoss');
i.Add('key=' + Edit2.Text);
i.Add('user=' + Edit1.Text);
i.Text:=Id[Ссылки могут видеть только зарегистрированные и активированные пользователи]('[Ссылки могут видеть только зарегистрированные и активированные пользователи]', 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'
var
p,i:Tstrings;
name,h_full,h_now,battle_time:string;
begin
id[Ссылки могут видеть только зарегистрированные и активированные пользователи] 'Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.2.13)';
id[Ссылки могут видеть только зарегистрированные и активированные пользователи]'application/x-[Ссылки могут видеть только зарегистрированные и активированные пользователи]';
p:=Tstringlist.Create;
i:=Tstringlist.Create;
try
i.Add('method=getBoss');
i.Add('key=' + Edit2.Text);
i.Add('user=' + Edit1.Text);
i.Text:=Id[Ссылки могут видеть только зарегистрированные и активированные пользователи]('[Ссылки могут видеть только зарегистрированные и активированные пользователи]', 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'