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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Определение массива как глобальной переменной, Нужно чтоб массив был доступен любой про 
:(
    Опции темы
dikiy
Дата 28.6.2005, 09:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Есть массив и любая процедура должна иметь к нему доступ, т.е. изменять процедур несколько пробую определить его после секции public вродебы определяется, следом пишу процедуру присваивания массиву значение - ругается [Error] Unit1.pas(45): Array type required
код примерно такой:
Код

var
  Form1: TForm1;
   s100:array[1..2] of double;
implementation

{$R *.dfm}

 procedure tform1.s100;
 begin
 s100[1]:=10.00;
 end;
В чем дело?

Это сообщение отредактировал(а) Girder - 28.6.2005, 11:44
PM MAIL   Вверх
Snowy
Дата 28.6.2005, 09:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484
Цитата(dikiy @ 28.6.2005, 09:33)
procedure tform1.s100;

Это как?
s100 это не процедура и не функция.
Это массив!
PM MAIL   Вверх
dikiy
Дата 28.6.2005, 09:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Что -то не проходит так и при чем сдесь цвет?
Добавлено @ 09:48
Нет массив и процедура имеют название s100
PM MAIL   Вверх
Satana
Дата 28.6.2005, 09:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 1
Всего: 5
dikiy на цвет не обращай внимания я хотел выделить не TForm1 а Form1 обращайся так к своей переменной и вообще я чото прокосячил делай так:
Код

Form1.s100[1]:=1 // или чо там тебе нада

Добавлено @ 09:51
Цитата(dikiy @ 28.6.2005, 09:43)
Что -то не проходит так и при чем сдесь цвет?
Добавлено @ 09:48
Нет массив и процедура имеют название s100

у тебя тогда компилятор должен выдать ошибку что типа уже есть такая переменная или чтото в етом роде


--------------------
 Работай на себя 
www.abalentsev.com - Сайт портфолио.
www.pokushau.ru - Рецепты со всего мира.
PM MAIL WWW ICQ   Вверх
Snowy
Дата 28.6.2005, 09:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484
Цитата(dikiy @ 28.6.2005, 09:43)
Нет массив и процедура имеют название s100

По вышеприведенному коду этого не видно.
В TForm1 такая процедура заявлена?
Цитата(Satana @ 28.6.2005, 09:50)
Form1.s100[1]:=1 // или чо там тебе нада

s100 не является элементом TForm1.
PM MAIL   Вверх
dikiy
Дата 28.6.2005, 09:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Блин а при чем сдесь form1.s100; s100- название массива и процедуры одновременно используб процедуру только в одной форме по-Этому procedure tform1.s100;
PM MAIL   Вверх
Quadr0
Дата 28.6.2005, 09:59 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
...

Это сообщение отредактировал(а) Quadr0 - 14.7.2011, 22:25
  Вверх
Satana
Дата 28.6.2005, 09:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 1
Всего: 5
а вообще нафига тебе и процедура и массив чтобы одинакого назывались? ну сделай ты переменную как s_100 а процедуру как s100 и делов то?


--------------------
 Работай на себя 
www.abalentsev.com - Сайт портфолио.
www.pokushau.ru - Рецепты со всего мира.
PM MAIL WWW ICQ   Вверх
Quadr0
Дата 28.6.2005, 10:01 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
...

Это сообщение отредактировал(а) Quadr0 - 14.7.2011, 22:25
  Вверх
Alex
Дата 28.6.2005, 10:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 80
Всего: 162
Код

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
  private
    { Private declarations }
    procedure s100;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  s100:array[1..2] of double;


implementation

{$R *.dfm}

procedure tform1.s100;
begin
  Unit1.s100[1]:=10.00;
end;



--------------------
Написать можно все - главное четко представлять, что ты хочешь получить в конце. 
PM Skype   Вверх
dikiy
Дата 28.6.2005, 10:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Звсунь процедуру в секцию protected
Может private?
PM MAIL   Вверх
Quadr0
Дата 28.6.2005, 10:10 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
...

Это сообщение отредактировал(а) Quadr0 - 14.7.2011, 22:25
  Вверх
dikiy
Дата 28.6.2005, 10:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Компилятор ошибки не выдает, но и переменная не меняется вот весь код:
Код

 procedure Button1Click(Sender: TObject);
    private
    procedure s100;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  s100:array[1..2] of double;

implementation

{$R *.dfm}

procedure tform1.s100;
begin
  Unit1.s100[1]:=10.00;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
s100;
//showmessage(floattostr(s100[1])); -[b]причем сдесь ошибка но это и понятно[/b]
end;


Это сообщение отредактировал(а) Girder - 28.6.2005, 11:47
PM MAIL   Вверх
Alex
Дата 28.6.2005, 10:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 80
Всего: 162
Проверяй:
Код

unit Unit1;

interface

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

type
 TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
 private
   { Private declarations }
   procedure s100;
 public
   { Public declarations }
 end;

var
  Form1: TForm1;
  s100:array[1..2] of double;

implementation

{$R *.dfm}

procedure tform1.s100;
begin
  Unit1.s100[1]:=10.00;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  s100;
  ShowMessage(FloatToStr(Unit1.s100[1]));
end;

end.



--------------------
Написать можно все - главное четко представлять, что ты хочешь получить в конце. 
PM Skype   Вверх
dikiy
Дата 28.6.2005, 10:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Блин, надо было переменную и процедуру называть по разному вот в чем дело
всем респект smile
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

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

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

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

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

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

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


 




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


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

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