Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Проблема с переменными. 
V
    Опции темы
IamDreamer
Дата 29.3.2008, 20:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 867
Регистрация: 6.6.2005

Репутация: нет
Всего: 7
Как присвоить переменной из одной формы значение переменной из другой формы? Есть массив, объявленный в Form1 глобально. Как его значения присвоить массиву из формы Form2?
PM MAIL WWW Jabber   Вверх
THandle
Дата 29.3.2008, 20:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Хранитель Клуба
Group Icon
Награды: 1



Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 50
Всего: 372
Так объявлено?

Код

var
  Form1: TForm1;
  a1 : array [1..4] of integer;




Тогда в юните второй формы:

Код

implementation

uses Unit1;


И работаешь так же как с переменной из второго юнита.

Небольшой примерчик в аттаче.

Присоединённый файл ( Кол-во скачиваний: 2 )
Присоединённый файл  ______.rar 185,45 Kb
PM   Вверх
IamDreamer
Дата 29.3.2008, 20:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 867
Регистрация: 6.6.2005

Репутация: нет
Всего: 7
Спасибо. Попробую.

Добавлено через 2 минуты и 12 секунд
А локально объявленные в Unit1 переменные будут работать в Unit2?
PM MAIL WWW Jabber   Вверх
VICTAR
Дата 29.3.2008, 20:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник
Сообщений: 1108
Регистрация: 6.10.2006

Репутация: 10
Всего: 80
Если ты имеешь ввиду переменные объявленные после implementation, то нет
PM MAIL   Вверх
IamDreamer
Дата 29.3.2008, 20:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 867
Регистрация: 6.6.2005

Репутация: нет
Всего: 7
Т.е. надо для видимости переменной объявить её в implementation?
PM MAIL WWW Jabber   Вверх
THandle
Дата 29.3.2008, 21:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Хранитель Клуба
Group Icon
Награды: 1



Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 50
Всего: 372
IamDreamer, нет, в разделе interface, до implementation.

Это сообщение отредактировал(а) THandle - 29.3.2008, 21:01
PM   Вверх
VICTAR
Дата 29.3.2008, 21:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник
Сообщений: 1108
Регистрация: 6.10.2006

Репутация: 10
Всего: 80
Так, как показал THandle. 
PM MAIL   Вверх
IamDreamer
Дата 29.3.2008, 21:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 867
Регистрация: 6.6.2005

Репутация: нет
Всего: 7
Аа. Ну я там и объявил. Ещё раз спасибо.
PM MAIL WWW Jabber   Вверх
IamDreamer
Дата 6.4.2008, 11:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 867
Регистрация: 6.6.2005

Репутация: нет
Всего: 7
В каком разделе и каким образом описать процедуру, которая должна быть видима для других модулей?
Код

type
  TForm2 = class(TForm)
    Label1: TLabel;
    StringGrid1: TStringGrid;
    Button1: TButton;
    StringGrid2: TStringGrid;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
const N=10;
type
  TArray = array [1..N] of integer;
var
  Form2: TForm2;
  c: TArray;

Процедура, которую нужно описать, содержит параметр типа TArray. Если процедуру описать в разделе public или ещё выше, то компилятор выдаёт ошибку про неизвестный тип TArray. 
PM MAIL WWW Jabber   Вверх
Rrader
  Дата 6.4.2008, 11:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Inspired =)
***


Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 18
Всего: 191
Опиши тип до формы:
Код

const N = 10;

type
  TArray = array [1..N] of Integer;

  TForm2 = class(TForm)
    Label1: TLabel;
    StringGrid1: TStringGrid;
    Button1: TButton;
    StringGrid2: TStringGrid;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { А здесь процедуру }
  end;

var
  Form2: TForm2;
  c: TArray;


Это сообщение отредактировал(а) Rrader - 6.4.2008, 11:56


--------------------
Let's do this quickly!
Rest in peace, Vit!
PM MAIL Skype   Вверх
IamDreamer
Дата 6.4.2008, 12:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 867
Регистрация: 6.6.2005

Репутация: нет
Всего: 7
Написал так:
Код

const N=10;
type
  TArray = array [1..N] of integer;
type
  TForm2 = class(TForm)
    Label1: TLabel;
    StringGrid1: TStringGrid;
    Button1: TButton;
    StringGrid2: TStringGrid;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure Swap(var Arr : TArray; pos1, pos2 : integer);
end;

Цитата
[Error] Unit2.pas(24): Unsatisfied forward or external declaration: 'TForm2.Swap'
PM MAIL WWW Jabber   Вверх
Rrader
  Дата 6.4.2008, 12:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Inspired =)
***


Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 18
Всего: 191
Поставь курсор на процедуру Swap и нажми Shift+Ctrl+C. Ты её объвил, но не реализовал.


--------------------
Let's do this quickly!
Rest in peace, Vit!
PM MAIL Skype   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0609 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.