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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Переменные в Дельфи, как сделать чтобы... 
V
    Опции темы
DeMoNN
  Дата 23.3.2008, 16:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: 1
Всего: 2
Как сделать чтобы переменная главной формы была видна другим формам без объявления?
PM MAIL ICQ   Вверх
kemiisto
Дата 23.3.2008, 16:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Дикий Кот. =^.^=
****
Награды: 1



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

Репутация: 2
Всего: 160
Цитата(DeMoNN @  23.3.2008,  16:43 Найти цитируемый пост)
без объявления?

Не очень понял, а вообще нужно добавить в модули, соотв. этим другим формам, в раздел uses модуль, соотв. главной форме.
Код

unit Unit2;

uses
  ..., Unit1;





Это сообщение отредактировал(а) kemiisto - 23.3.2008, 16:49


--------------------
XMPP-канал.

Unit testing isn't enough. You need static typing.

Пей, кури, пиши на си! smile
PM MAIL WWW GTalk Jabber   Вверх
DeMoNN
Дата 23.3.2008, 16:51 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: 1
Всего: 2
спс

Добавлено через 1 минуту и 26 секунд
а обЪекты?
PM MAIL ICQ   Вверх
Alexeis
Дата 23.3.2008, 17:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 34
Всего: 459
  Объект это тоже переменная, потому все аналогично.


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
Christoph
Дата 23.3.2008, 17:16 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 667
Регистрация: 23.1.2008
Где: Харьков

Репутация: 5
Всего: 11
всё что есть в Unit1, как показали выше, ты можешь использовать в дальнейшем!


--------------------
user posted image
PM MAIL ICQ   Вверх
DeMoNN
  Дата 23.3.2008, 18:28 (ссылка) | (голосов:3) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: 1
Всего: 2
В чём здесь ошибка?
Код

unit lin2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, nastroyka_grafika, graf;

type
  TForm5 = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    Label3: TLabel;
    Label2: TLabel;
    Edit2: TEdit;
    Edit1: TEdit;
    Label4: TLabel;
    Edit3: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

type
  TForm3 = class(TForm)
    Chart1: TChart;
    ComboBox2: TComboBox;
    Label2: TLabel;
    Button1: TButton;
    Series1: TLineSeries;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form5: TForm5;
  Form3: TForm3;
  a,b,c:extended;
implementation

{$R *.dfm}

procedure TForm5.Button1Click(Sender: TObject);
begin
  a:=StrToFloat(Edit1.Text);
  b:=StrToFloat(Edit2.Text);
  c:=StrToFloat(Edit3.Text);
  repeat
    Chart1.Series[0].AddXY(levo,(-c-a*levo)/b);
    levo:=levo+shag;
  until levo>pravo;
end;

end.

Компилятор ругается:
[DCC Error] lin2.pas(28): E2003 Undeclared identifier: 'TChart'
[DCC Error] lin2.pas(32): E2003 Undeclared identifier: 'TLineSeries'
[DCC Error] lin2.pas(32): E2217 Published field 'Series1' not a class or interface type
[DCC Error] lin2.pas(53): E2003 Undeclared identifier: 'Chart1'
[DCC Error] lin2.pas(53): E2066 Missing operator or semicolon

переменная "levo","pravo" и "shag" находятся в юните "nastroyka_grafika", a TChart1 - в юните "graf" smile 

Это сообщение отредактировал(а) DeMoNN - 23.3.2008, 18:31
PM MAIL ICQ   Вверх
Christoph
Дата 23.3.2008, 18:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 667
Регистрация: 23.1.2008
Где: Харьков

Репутация: 5
Всего: 11
надо написать вроде uses Chart, Series
дальше не известные переменные....
последняя ошибка - пропущен оператор или точка с запятой

Это сообщение отредактировал(а) Christoph - 23.3.2008, 19:00


--------------------
user posted image
PM MAIL ICQ   Вверх
DeMoNN
  Дата 23.3.2008, 20:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: 1
Всего: 2
УРА ПОЛУЧИЛОСЬ!!! smile  smile 
УРА ПОЛУЧИЛОСЬ!!! smile  smile 
УРА ПОЛУЧИЛОСЬ!!! smile  smile 
УРА ПОЛУЧИЛОСЬ!!! smile  smile 


Это сообщение отредактировал(а) DeMoNN - 23.3.2008, 20:28
PM MAIL ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

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

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

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

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

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

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


 




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


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

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