НЕ ПОЙМУ КАК ВЫВИСТИ ЧИСЛО

[Editor]

var RandSeed: LongInt;
begin
RandSeed:=random(999);
ShowMessage(IntToStr(RandSeed));
end;


МНЕ НАДА ЗДЕЛАТЬ КАКТО ТАК

var RandSeed: LongInt;
begin
RandSeed:=random(999);
ShowMessage('ТЕКСТ'+ ЧСЛО +' ТЕКСТ')
end;

КАК ТАК КЗДЕЛАТЬ?Я НОВИЧОК НЕ УДЕВЛЯЙТЕСЬ

[_Dmitry]

В вашем коде уже есть ответ:
ShowMessage('ТЕКСТ'+ IntToStr(RandSeed) +' ТЕКСТ')

[Editor]

Это не надо))теперь другой вопрос по этой теме как зделать чтоб он не тупо выводил случайно число в приделах 999 а случайное число от 100 до 999....зарание спасибо

[Editor]

_Dmitry с ShowMessage('ТЕКСТ'+ IntToStr(RandSeed) +' ТЕКСТ') я уже сам всё понял....но всеровно спасибо.....

[_Dmitry]

http://www.programmersforum.ru/showt...3616#post53616
Смотрите пост #7

[Greblin]

RandSeed := 100 + random(899);

[_Dmitry]

Сообщение от Greblin

RandSeed := 100 + random(899);

чуть чуть промахнулся
RandSeed := 100 + random(900);