Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 15.01.2010, 20:28   #1
grom333
Форумчанин
 
Аватар для grom333
 
Регистрация: 21.10.2008
Сообщений: 337
По умолчанию Разные формы, Дельфи

1. В одной форме пользуюсь переменными объявленные глобально, на третьей форме нужно сохранить эти данные вписав некое имя в мемо1.
получается так:
Код:
procedure TForm3.Button1Click(Sender: TObject);
var
n:string;
begin
n:=memo1.text;
memo1.Lines.LoadFromFile('records.db');
Memo1.Lines.Add(n+' выйграл со счетом '+inttostr(i)+' : '+inttostr(c)) ;
memo1.Lines.SaveToFile('records.db');
end;
А ведь эти переменные известны только в 1 форме. Как можно реализовать чтобы третья форма о результатах переменных знала?

2. И вот такой вопрос, если имеется несколько форм, и нужно музыку проигрывать 1 файл через mediaplayer1. и каждая форма скрывается при открытии другой, музыка не сможет полноценно играть от начала до конца без перерывов?
Лучше быть последним из львов, чем первым среди шакалов.
Мой чат
community on struggle with zoomics
grom333 вне форума Ответить с цитированием
Старый 15.01.2010, 20:30   #2
Пепел Феникса
Старожил
 
Аватар для Пепел Феникса
 
Регистрация: 28.01.2009
Сообщений: 21,000
По умолчанию

1)uses Unit1
2)будет играть.
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.
Пепел Феникса вне форума Ответить с цитированием
Старый 15.01.2010, 20:33   #3
grom333
Форумчанин
 
Аватар для grom333
 
Регистрация: 21.10.2008
Сообщений: 337
По умолчанию

а на счет первого вопроса? i и c у меня получается значения лабелов.
МОжно тода как-нибудь так в другую форму:
i:=form1.label.caption; ???

Выделяет вот это :
Код:
var
  Form3: TForm3;

implementation

uses Unit1;
Лучше быть последним из львов, чем первым среди шакалов.
Мой чат
community on struggle with zoomics
grom333 вне форума Ответить с цитированием
Старый 15.01.2010, 20:37   #4
Пепел Феникса
Старожил
 
Аватар для Пепел Феникса
 
Регистрация: 28.01.2009
Сообщений: 21,000
По умолчанию

Цитата:
МОжно тода как-нибудь так в другую форму:
i:=form1.label.caption; ???
а попробывать?

как ругается то?
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.
Пепел Феникса вне форума Ответить с цитированием
Старый 15.01.2010, 20:44   #5
grom333
Форумчанин
 
Аватар для grom333
 
Регистрация: 21.10.2008
Сообщений: 337
По умолчанию

identifier redeclared:"unit1" , ну это скорее всего что-то не туда или не так положил.
А на счет того варианта который я написал i:=form1.label.caption;, получается, что и присвается не значение лабела а сам лабел как стринг, т.е. просто название и то даже неправильно. Значит как-то можно, только правильно написав.
Лучше быть последним из львов, чем первым среди шакалов.
Мой чат
community on struggle with zoomics
grom333 вне форума Ответить с цитированием
Старый 15.01.2010, 21:00   #6
eoln
Старожил
 
Аватар для eoln
 
Регистрация: 26.04.2008
Сообщений: 2,645
По умолчанию

Unit1 объявлен в двух местах. В разделах interface и implementation. Уберите его из interface. Если i и c глобально объявлены в первой форме, то в третьей их следует писать так Form1.i и Form1.c. (Form3.caption := 'счет '+inttostr(Form1.i)+' : '+inttostr(Form1.c))
eoln вне форума Ответить с цитированием
Старый 15.01.2010, 21:14   #7
grom333
Форумчанин
 
Аватар для grom333
 
Регистрация: 21.10.2008
Сообщений: 337
По умолчанию

Цитата:
Сообщение от eoln Посмотреть сообщение
Unit1 объявлен в двух местах. В разделах interface и implementation. Уберите его из interface. Если i и c глобально объявлены в первой форме, то в третьей их следует писать так Form1.i и Form1.c. (Form3.caption := 'счет '+inttostr(Form1.i)+' : '+inttostr(Form1.c))
Не хочет признавать как form1.i и form1.c
undeclared identifier
Лучше быть последним из львов, чем первым среди шакалов.
Мой чат
community on struggle with zoomics
grom333 вне форума Ответить с цитированием
Старый 15.01.2010, 21:45   #8
grom333
Форумчанин
 
Аватар для grom333
 
Регистрация: 21.10.2008
Сообщений: 337
По умолчанию

вроде нормально все.
Уважаемые подскажите, пожалуйста, код обновления формы, что-то вроде form1.refresh но чтобы все значения обнулялись. короче как бы перезагрузка программы.
form1.create() просит кнопку вставить... а мне это не надо.
Лучше быть последним из львов, чем первым среди шакалов.
Мой чат
community on struggle with zoomics
grom333 вне форума Ответить с цитированием
Старый 15.01.2010, 21:56   #9
Пепел Феникса
Старожил
 
Аватар для Пепел Феникса
 
Регистрация: 28.01.2009
Сообщений: 21,000
По умолчанию

самостоятельно писать.
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.
Пепел Феникса вне форума Ответить с цитированием
Старый 15.01.2010, 22:07   #10
grom333
Форумчанин
 
Аватар для grom333
 
Регистрация: 21.10.2008
Сообщений: 337
По умолчанию

Цитата:
Сообщение от Пепел Феникса Посмотреть сообщение
самостоятельно писать.
кстати, неплохо получается, но самое нехорошее-это когда много элементов(переменных, компонентов).
Лучше быть последним из львов, чем первым среди шакалов.
Мой чат
community on struggle with zoomics
grom333 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Задачи на разные темы... assams Паскаль, Turbo Pascal, PascalABC.NET 2 18.09.2009 11:21
сравнить разные строки Katovski Общие вопросы Delphi 8 02.05.2008 21:10
Поисковики ! всякие разные Virtson Софт 0 07.12.2007 19:18
Разные вопросы о Delphi Enko Помощь студентам 21 10.09.2007 05:54
Разные справочники по Delphi Egych Свободное общение 3 12.02.2007 12:14