Форум: "Потрепаться";
Текущий архив: 2003.12.12;
Скачать: [xml.tar.bz2];
ВнизПочему то не работает Найти похожие ветки
← →
IgAn (2003-11-19 06:53) [0]Уважаемые знатоки! Подскажите тупому...
Написал процедуру, все компилируется, но выдает AV:
while TMoney.Count > 0 do begin
TMoney.LoadFromBank("Сбербанк России");
TMoney.Print;
end;
Пишет: "AV: No Money"
Никак не пойму где ошибка! Спасибо.
← →
Мазут Береговой (2003-11-19 07:03) [1]Это всегда так: как задумаешь чего сделать так NO MONEY! :-)))
или Вечная Проблема - NO MONEY... Их всегда NO...
← →
Мазут Береговой (2003-11-19 07:04) [2]P/S/
Там есть деньги, но для других целей...
← →
Мазут Береговой (2003-11-19 07:17) [3]А так попробуй. Должно работать.
while TMoney.Count > 0 do begin
TMoney.GetLoanFromBank("Сбербанк России");
TMoney.PutSomeExpenses;
TMoney.DoProduct;
TMoney.DoCommercial;
TMoney.SellProduct;
TMoney.PayLoanBack;
TMoney.GetYOURMONEY[!];
TMoney.NoPrint;
end;
← →
IgAn (2003-11-19 07:24) [4]
> Мазут Береговой © (19.11.03 07:17) [3]
СПАСИБО!!! ЗАРАБОТАЛО!!!
Некоторое время меня не будет :(
← →
sniknik (2003-11-19 08:37) [5]странно что заработало учитывая TMoney.GetLoanFromBank(" Сбербанк России"); где это компилится. но тут наверное главное TMoney. NoPrint;, иначе узнает админ и порежет в правах.
или уже узнал??
> Некоторое время меня не будет :(
:о))
← →
ИдиотЪ (2003-11-19 08:52) [6]не понял, это у тебя переменая TMoney или тип, с другой стороны, если бы тип, то компилятор бы выругался, или я с утра не такой, как вчера ?
← →
IgAn (2003-11-19 09:10) [7]
> sniknik © (19.11.03 08:37) [5]
А что ето админ?
← →
админ (2003-11-19 09:15) [8][7] IgAn © (19.11.03 09:10)
скоро, узнаешь, я уже иду к тебе, заодно и покажу, что значить права отрезать.
и хде ето мой топор?..
← →
stone (2003-11-19 09:26) [9]
> странно что заработало учитывая TMoney.GetLoanFromBank("Сбербанк
> России");
А что у этого банка есть проблемы с выдачей денег?
← →
IgAn (2003-11-19 09:42) [10]Проблем вроде нет, только пришлось добавить функцию:
WoodToGreen(Money);
У меня в принтере только зеленая краска... :(
2админ
Заходи, у меня пиво есть, рыбкой закусим.
← →
SergP (2003-11-19 09:52) [11]Ага... Вы тут кряк сбербанка пишете...
← →
IgAn (2003-11-19 09:58) [12]Это не кряк, это патч...
← →
Мазут Береговой (2003-11-19 10:25) [13]Ошибочку не заметил, да и вы тоже :-)))
Цикл-то бесконечный получается если прибыль есть. Надо так делать:
while TMoney.Count > $10000000 do begin
TMoney.GetLoanFromBank("Сбербанк России");
TMoney.PutSomeExpenses;
TMoney.DoProduct;
TMoney.DoCommercial;
TMoney.SellProduct;
TMoney.PayLoanBack;
TMoney.GetYOURMONEY[!];
TMoney.NoPrint;
end;
TMoney.DecIncome("квартира","дом","яхта","brabus","остров","крыша","похороны");
:-)))
← →
sniknik (2003-11-19 10:32) [14]кстати у тебя ошибка в логике, хотя для России (а не сбербанка, это частность) это может быть и правильно.
while TMoney. Count > 0 do begin
...
end;
???
обычно делают так
while TMoney.Count <= NeedCountForLife do begin
....
end;
кто может заменяет значение на NeedCountForGoodLife.
а у тебя получается значит Count какойто есть и ты посредством GetLoanFromBank сводиш его к нулю.
← →
sniknik (2003-11-19 10:33) [15]Мазут Береговой © (19.11.03 10:25) [13]
ну вот опоздал. :-(((
← →
IgAn (2003-11-19 10:38) [16]УФФ!!! Заново переписал часть кода:
Money := TMoney.Create(Nemo);
Money.Bank:="Сбербанк России";
while Money.GetStatus = _Nikogo do
begin
try
Money.Transfer("1000");
Money.Print(clGreen);
except
if Money.KtoTam = "Contora" then
Money.Send("Nikogo net doma");
if Money.KtoTam = "AKtoGovorit" then
Money.Send("GovoritMoskva");
exit;
Quit;
PowerOff();
end;
end.
← →
IgAn (2003-11-19 10:43) [17]
> sniknik © (19.11.03 10:32) [14]
Полностью согласен, жаль только что большинство людей живут по принципу
while money.count <= NeedForLife do
begin
Inc(NeedForLife,NeedForLife div 10);
end;
← →
Anatoly Podgoretsky (2003-11-19 17:46) [18]Мазут Береговой © (19.11.03 10:25) [13]
Много лишнего кода, вот после оптимизации
while TMoney.Count > 0 do begin
TMoney.GetYOURMONEY[!];
end;
Страницы: 1 вся ветка
Форум: "Потрепаться";
Текущий архив: 2003.12.12;
Скачать: [xml.tar.bz2];
Память: 0.48 MB
Время: 0.008 c