Цитата:
Сообщение от PS11011010
Человек, откуда я знаю: какая у тебя строка имеет номер 115? У тебя в компиляторе она выделяется как-то, ну и пометь ты ее здесь тоже. Не важно как, главное укажи все места ошибок. Хорошо?
|
Без проблем...
У меня странность одна
Если такой код
Код:
var
Form1: TForm1;
Status: array [1..N] of string = ('Начинающий','Мастер','про');//Название статуса
Icon: array [1..N] of string = ('Icon1.png','Icon2.png','Icon3.png');//Картинка,обязятельно формат пнг.ЕСЛИ ДЖИПГ то потключай спец. юнит
mmop: array [1..2*N] of integer = (0,5,6,10,11,15);//рамки
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
op:integer;
begin
Op:=StrToInt(edit1.Text);
for i:=1 to n do //идем по всем рангам
if (Op>=mmop[i*2-1]) and (op<=mmop[i*2]) then
Label3.caption:=Status[i];
Img1.picture.loadfromfile(icon[i]);//грузим текст+картинку
end;
То в Label3 отображается ранг...
А если такой
Код:
const N=14;//Кол-во званий
var
Form1: TForm1;
x1,x2,x3,x4,x5,x6,x7,x8,y,x11,x22,x33,x44,x55,x66,x77,x88,r,
raiting: integer;// Переменные
golos,akciy,m1,m2,m3,m4,m5,m6,m7,m8,z: real;
Statys:string;
Status: array [1..N] of string = ('Новичок','Бывалый(ая)','Уважаемый(ая)','Мастер','Профессионал(ка)',
'Гуру','Неприкасаемый(ая)','Папа(Мама)','Ангел','Бог(Богиня)','Всемогущий(ая)',
'Mister(Miss)','Легенда','Премьер');//Iacaaiea caaiey
Icon: array [1..N] of string = ('1.png','2.png','3.png','4.png','5.png','6.png',
'7.png','8.png','9.png','10.png','11.png',
'12.png','13.png','14.png');//Ea?oeiea
mmop: array [1..2*N] of integer = (0,5,6,10,11,15,16,20,21,25,26,50,51,100,101,500,501,1000,1001,
5000,5001,10000,10001,50000,50001,100000,100001,500000);
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
op:integer;
begin
Op:=StrToInt(Edit1.Text);
for i:=1 to N do
if (Op>=mmop[i*2-1]) and (op<=mmop[i*2]) then
Label3.caption:=Status[i];
//Img1.picture.loadfromfile(icon[i]);
То не отображается...Почему не подскажите?
__________________
"Мне все по плечу и даже мир без наркотиков"
За советы ставлю спасибо!От души и в благодарность !!!
|