Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.10.02;
Скачать: [xml.tar.bz2];

Вниз

Переменные   Найти похожие ветки 

 
DimChan   (2003-09-19 07:27) [0]

Помоги-и-и-те!!! Как исползовать значение одной переменной в разных UNIT (формах) в рамках одного проекта.


 
Думкин   (2003-09-19 07:34) [1]

Создать общий юнит и там ее объявить в implementation


 
Думкин   (2003-09-19 07:35) [2]

Тьфу - в interface


 
DimChan   (2003-09-19 07:40) [3]

А как создать общий UNIT?


 
Denizzz   (2003-09-19 07:40) [4]

Потом, в юнитах, которые используют глобальную переменную, добавь в uses имя юнита глоб. переменных. Например

var
FMain: TFMain;

implementation

uses Form2, Varius;

{$R *.DFM}


 
Думкин   (2003-09-19 07:42) [5]

> DimChan © (19.09.03 07:40)

Общим его ты сделаешь, способом описанным
> Denizzz (19.09.03 07:40)

а так - обычный юнит.
File-New-Unit.


 
DimChan   (2003-09-19 07:45) [6]

Varius ???


 
Verg   (2003-09-19 07:50) [7]


> Varius ???


What !?


 
DimChan   (2003-09-19 08:13) [8]

Господа я запутался в коде. Мне необходимо взять значение из Unit2 и вставить в Unit1. H-e-e-e-LP


unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Db, DBTables, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls, Buttons, Menus;

type
TForm1 = class(TForm)
Edit1: TEdit;

private
{ Private declarations }
public

{ Public declarations }
end;

var
FilePath : string;

implementation
uses Unit2;




unit Unit2;

interface

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

type
TForm2 = class(TForm)
Edit6: TEdit;

private
{ Private declarations }
public
{ Public declarations }
end;

var
FileSaveName , FileName: string;
Form2: TForm2;


implementation
uses Unit1, dir;

{$R *.DFM}


 
Digitman   (2003-09-19 08:24) [9]

unit Unit1;

interface

uses ..., Unit2;

unit Unit2;

implementation
uses ..., Unit1;


 
DimChan   (2003-09-19 08:52) [10]

T-H-A-N-K-S !!!!!



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.10.02;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.009 c
3-3771
Владимир
2003-09-11 13:53
2003.10.02
Pack в TClientDataSet


1-3828
3APA3A
2003-09-19 00:13
2003.10.02
Есть ли в ListBox е полоса прокрутки


1-3918
AVD
2003-09-21 20:16
2003.10.02
ActiveX С чего начать.


1-3935
Delphi5.01
2003-09-20 21:26
2003.10.02
Ukazanie vremeni scitivania TFileStream


14-4058
DeMoN-777
2003-09-14 18:25
2003.10.02
Проблемка с 1С





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский