Почему то не работает

← →
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]

Это не кряк, это патч...

Ошибочку не заметил, да и вы тоже :-)))
Цикл-то бесконечный получается если прибыль есть. Надо так делать:

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","остров","крыша","похороны");

:-)))

кстати у тебя ошибка в логике, хотя для России (а не сбербанка, это частность) это может быть и правильно.

while TMoney. Count > 0 do begin ... end;
???
обычно делают так
while TMoney.Count <= NeedCountForLife do begin
....
end;
кто может заменяет значение на NeedCountForGoodLife.

а у тебя получается значит Count какойто есть и ты посредством GetLoanFromBank сводиш его к нулю.

УФФ!!! Заново переписал часть кода:
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.

> sniknik © (19.11.03 10:32) [14]

Полностью согласен, жаль только что большинство людей живут по принципу
while money.count <= NeedForLife do begin Inc(NeedForLife,NeedForLife div 10); end;

Мазут Береговой © (19.11.03 10:25) [13]
Много лишнего кода, вот после оптимизации
while TMoney.Count > 0 do begin TMoney.GetYOURMONEY[!]; end;

Почему то не работает Найти похожие ветки