Ru-Board.club
← Вернуться в раздел «Прикладное программирование»

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

Автор: nkurrich
Дата сообщения: 11.11.2009 10:47
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 будет почему то пустая(
Автор: volser
Дата сообщения: 11.11.2009 11:06
nkurrich
А отладчик что говорит?
Автор: nkurrich
Дата сообщения: 11.11.2009 11:07
ниче не говорит, все норм...все проходит. Но результат пустой возвращает....и вообще процедуре можно стринговое значение присваивать?
Автор: volser
Дата сообщения: 11.11.2009 12:45
nkurrich
Это делфи или паскаль?


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


А здесь чему присваивается?
Автор: nkurrich
Дата сообщения: 11.11.2009 15:40
это паскаль.....но правда может я че то неправильно взял с делфи....





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



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



ничему...это типа рекурсии что то=)то есть если условие выполняется мы запускаем туже процедуру, только со значение переменно k на единицу меньше......вообше процедура должна делать число количество символов dlina первая цифра которого k, и это число не должно быть выше переменной razn
Автор: volser
Дата сообщения: 11.11.2009 16:48
nkurrich

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

Так я о том, что в этом случае результат инициирующей функции не определен.
Автор: nkurrich
Дата сообщения: 12.11.2009 06:15
спасибо=) разобрался
Цитата:
if strtoint(bufer)>razn then
rezultbufer(dlina,k-1)


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

Страницы: 1

Предыдущая тема: SOAP и таймер


Форум Ru-Board.club — поднят 15-09-2016 числа. Цель - сохранить наследие старого Ru-Board, истории становления российского интернета. Сделано для людей.