Destroyer74
09.01.2011, 20:52
procedure SearchPenek(location, posX, posY : string;) : string;
procedure SestNaPenek(get SearchPenek.location) : boolean;
procedure ZaprosToKosar(meloch, dengi : extended; pid**bl*a_message : string;) : string;
procedure SearchPenek(nasha_tochka, tuta, tama);
if result = 'Penek naiden!' then
get := SearchPenek.location;
if get>0 and get = 1 then
go_to_Procedure : ZaprosToKosar;
procedure ZaprosToKosar(malo, KOSAR);
if malo + kosar then
begin
pid**bl**_message := 'KAK Y*** S***!!!';
pid**bl**_message.SHOW := TRUE;
end;
Предлагаем свои варианты ;)
procedure SestNaPenek(get SearchPenek.location) : boolean;
procedure ZaprosToKosar(meloch, dengi : extended; pid**bl*a_message : string;) : string;
procedure SearchPenek(nasha_tochka, tuta, tama);
if result = 'Penek naiden!' then
get := SearchPenek.location;
if get>0 and get = 1 then
go_to_Procedure : ZaprosToKosar;
procedure ZaprosToKosar(malo, KOSAR);
if malo + kosar then
begin
pid**bl**_message := 'KAK Y*** S***!!!';
pid**bl**_message.SHOW := TRUE;
end;
Предлагаем свои варианты ;)