Dessan)k61Oi, нахер те 15 кнопок, пошагово сделай лучше. Ну типа при нажатии кнопки прибавляешь к служебной переменной, а надписи выводишь согласно значанию переменной через case

CXakep75, блин, спасибо, щас попробую, а то уже 3 часа с этими кнопками корячусь.

Дык, а почему ошибка, с переменной кажись все в норме upwap.ru/269346 ?

Dessan)k61Oi, хз, по куску кода непонятно. чё-то там с константой намудил

CXakep75, а так почему - то работает работает: upwap.ru/269360 , а константа это постоянная переменная?

Dessan)k61Oi, ага, неизменяемая

а так не хотит upwap.ru/269370

у меня вроде констант нету upwap.ru/269379

уррра, получилось, оказывается точки с запятой не хватало

хочу научиться немного на делфи писать языков не знаю нашел исходники пара получилась на этом застрял это сд плеер где то в этих строчках ошибка var MSFormatStr = "%dm %ds"; PlayButtons: TButtonSet = [btPause, btStop, btNext, btPrev]; StopButtons: TButtonSet = [btPlay, btNext, btPrev]; function TMainForm.TrackNumToString(InNum: Byte): String; begin if (InNum > High(NumStrings)) or (InNum < Low(NumStrings)) then Result := IntToStr(InNum) else Result := NumStrings[InNum]; end;

тут одна коза знакомая постоянно незаметно для меня вылезает в онлайн, делает дела и сваливает, пока я не пришёл. Я хочу сделать следилку к ней, которая прочтёт из её анкеты надпись "online" и скажет мне. Контакт не даёт зыбрить анкеты незареганным юзерам, так что вот вопрос: как установить коннект и авторизоваться?

А че за фигня: if s>1 then [команды1] begin end else begin [команды2] end Почему если s=0, то выполняются [команды2], а если s=2 , то и [команды1] а следом и [команды2] ? Че за идиотизм, все почти закончил, но 2 фишки из-за этого касяка, ненужные