» не работает никАя(((((Помогите с Процедурой

function rezultbufer(dlina:integer;k:byte): string;
var
bufer:string;
copyk: byte;
begin
copyk:=k;
for i:=1 to dlina do
begin
bufer:=bufer+IntToStr(copyk);
copyk:=copyk+1;
end;
if strtoint(bufer)>razn then
rezultbufer(dlina,k-1)
else
begin
rezultbufer:=bufer;
bufer:='';
copyk:=0;
end;
end;





вот процедура



если я потом в коде программы напишу вот так

xxx:=rezultbufer(5,2);

то переменная xxx будет почему то пустая(

nkurrich
А отладчик что говорит?

ниче не говорит, все норм...все проходит. Но результат пустой возвращает....и вообще процедуре можно стринговое значение присваивать?

nkurrich
Это делфи или паскаль?


Цитата:

if strtoint(bufer)>razn then
rezultbufer(dlina,k-1)

А здесь чему присваивается?

это паскаль.....но правда может я че то неправильно взял с делфи....





Цитата:

Цитата:
if strtoint(bufer)>razn then
rezultbufer(dlina,k-1)



А здесь чему присваивается?

ничему...это типа рекурсии что то=)то есть если условие выполняется мы запускаем туже процедуру, только со значение переменно k на единицу меньше......вообше процедура должна делать число количество символов dlina первая цифра которого k, и это число не должно быть выше переменной razn

nkurrich

Цитата:

ничему...это типа рекурсии что то=)то есть если условие выполняется мы запускаем туже процедуру

Так я о том, что в этом случае результат инициирующей функции не определен.

спасибо=) разобрался
Цитата:

if strtoint(bufer)>razn then
rezultbufer(dlina,k-1)

в это месте ошибка была=)спс