Создаю игру "Рыбалка"

[_PROGRAMM_]

Игру за вас написать, получается.

[ViniPux1112]

Нет,я просто спросил,объясните без примера

Возник еще вопрос,я сделал переменную в форме1.Как сделать так,что-бы в форме2 можно было вычитать эти деньги?

[phomm]

У листбокса есть событие OnClick в нем Вам понадобится отследить свойство Items[] а индексом этому свойству-массиву указать свойство Itemindex этого же листбокса
примерно так

procedure TForm1.Listbox1Click(Sender: TObject);
begin
showmessage (listbox1.items[listbox1.itemindex]); // покажем сообщение о кликнутом элементе
end;

Только учтите, будет обработан только клик, а если измените выделенный элемент стрелками (кнопки), то ничего не произойдёт, потому что для кнопок надо писать свой обработчик

Если делать в лоб, то в модуле второй формы после implementation написать uses Unit1 (так должен называться модуль с первой формой, если вы ничего не меняли)

[ViniPux1112]

Спасибо,попробую...

[Beermonza]

ViniPux1112, Вы сразу не смогли придумать адекватное название для своей темы? ...что значит "Рыбалка(рыба)"? ...у вас рыба? ...или вы любите рыбалку?

Вашу тему я переименую, а соседнюю, такую же неадекватную "Деньги", удаляю. Впредь сначала чуток подумайте, прежде чем задавать вопросы/создавать темы. Не мешало бы и правила форума почитать на главной странице.

В ЯП рыба не водится, и деньги не появляются. Сначала читайте тему "Уроки по созданию игр для новичков", от и до, потом вопросы.

[_PROGRAMM_]

записывать в текстовый файл все значение для игрока, в шифрованном виде, шифрование проходили??

Зачем такие сложности. Вот когда пойдет речь о масштабном проекте, тогда можно, а пока ТС учится, пусть лучше структурами займется. Создаете структуру, записываете данные, а потом их в .dat файл. Об этом можете почитать в книги Фленова "Библия delphi" пункт "Структуры".
Вот пример, пусть структура называется infoUser

type
infoUser = record;
//Объявляете обычные переменные
i:integer;
str:string;
end;
// потом в разделе var процедуры, например.
var Struct:infUser;
begin
Struck.i:=1;
Struct.str:='Строка';
end;

В коде специально сделал ошибку. Там где нужно обратить внимание.

[Пепел Феникса]

В коде специально сделал ошибку. Там где нужно обратить внимание.

и еще одну сделали.
не лимитированный string не является обычным типом.
ваш пример структуры нельзя записывать простым(за один заход) кодом.

[ViniPux1112]

Сообщение от phomm

Если делать в лоб, то в модуле второй формы после implementation написать uses Unit1 (так должен называться модуль с первой формой, если вы ничего не меняли)

Нет...Так не читает...

П.С Как найти координату,там где находиться курсор мыши?И например там сделать image1

Сообщение от Odinok

ну сделай их типом string (текст, можешь числом сделать, про индексировать их 1-червяк, 2-мотыль в комментарии)
какие рыбы клюют в локации, можно сделать с помощью массива, массив в котором хранятся номера рыб (1-карась, 2 окунь 3 -щука) и будет тип (1 2) или (2 3), а кто клюнет проверять по индексу ( ктоКлюнет=массив(рандом(количество значений в массиве)) получим число кто клюнул (скажем массив для локации (4 3) выпало 2 получим число 3 а это у нас щука, ну и так далее)

Сижу второй час врубаюсь,не могу понять...Не объяснишь поподробнее?

{Кнопка "Правка" работает, не забываем}

[ViniPux1112]

Доброе утро!Подскажите,как програмно воспроизвести звук?
П.С Если я делаю папку с звуками и картинками,ее можно как-то найти програмно,и от туда считывать файлы?Например я поставил игру на D:/игры/fish,а кто-то может поставить C:/games/ и тогда не будут считываться файлы...

Ув. Программисты!Помогите пожалуйста!Осталось 3 вопроса!
1)Подскажите,как програмно воспроизвести звук?
2)Подскажите,как из ListBox1,который на форме1,прочитать в label1 который на форме2?
Под implementation добавить uses не катит!
3)Как сделать текстуру без фона?(на поплавок мне нужно и на удочку)

[Beermonza]

ViniPux1112, Вам сюда: http://www.programmersforum.ru/forumdisplay.php?f=2
сюда: http://www.programmersforum.ru/forumdisplay.php?f=47
и сюда: http://www.programmersforum.ru/forumdisplay.php?f=39