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

Вниз

Как передать данные?   Найти похожие ветки 

 
Demon_MHM   (2003-03-24 23:14) [0]

Помогите начинающему ламеру, плиз...
У меня из главной формы вызывается другая форма, в которой надо заполнить несколько полей, ну там имя, фамилия и прочее... Так вот, как мне значения этих полей передать в основную прогу? Через глобальные переменные что-ли? Если можно поподробнее...


 
Palladin   (2003-03-25 00:58) [1]

form2.edit1.text:="переданая строка";


 
les   (2003-03-25 01:33) [2]

В help"е написано.
1. Через перекритий конструктор "другой форми"
2. Через добавленние свойства "другой форми"

> Через глобальные переменные

может не так ето уж и плохо...


 
Demon_MHM   (2003-03-26 20:36) [3]

Господа, можно поконкретнее, плиз, а то не въезжаю, простите уж... :)


 
Palladin   (2003-03-26 20:43) [4]

во что ты не вьезжаешь?
приведи хоть код вызова другой формы чтоли, что бы тебе конкретней ответить...


 
Demon_MHM   (2003-03-26 20:49) [5]

А что, код вызова-то? Просто ShowModal и все...


 
Palladin   (2003-03-26 20:53) [6]

а что ShowModal?
Это твоя форма?
Ты ее создаешь динамически или AutoCreate?
То что на ней (куда ты собираешься передать данные) в private или Public?

видишь сколько нюансов..


 
Demon_mhm   (2003-03-26 20:56) [7]

У тя ася есть? А то так не удобно... моя 172779344


 
Demon_mhm   (2003-03-26 21:02) [8]

Я, короче, форму подключил к проекту и вызываю из основной. Описал динамический массив в Interface основной программы, пытаюсь записать в него, а при запуске мне выдает что-то типа: не по тому адресу обратился...


 
les   (2003-03-26 22:20) [9]

Здесь очень не любят когда не присилают кодов. Ти свой код видишь ми нет поетому тебе легко - нам трудно. Короче:

T<основная форма> =
...
{добавляешь}
property MyDynArray: <тип> read ... write ...;
...

T<другая форма> =
...
{перекриваешь}
constructor Create(AOwner: TComponent; const MDA: <тип> )
...

сознаешь другую форму:

f := T<другая форма>.Create(Self, MyDynArray)
...
f.ShowModal;

где то в коде <другая форма> присваиваешь MyDynArray.

Вишь как долго?


 
Palladin   (2003-03-26 23:05) [10]


> Demon_mhm © (26.03.03 21:02)

ну вот ты трудный...
ну открой исходник
выдели те строчки где вызов формы нажми Ctrl-Insert
перейди в эксплорер нажми Shift-Insert
ну ведь совсем немного у тебя просят...

только толпу кода сюда не надо :) по существу...


 
jack128   (2003-03-26 23:14) [11]

Для диалогов, которые должны вернуть некоторую информацию я использую такую схему

type
TMan = record
FirstName : string;
LastName : string;
end;

function GetManDialog(Rec : Tman) : boolean;
begin
with TMyDialog.Create(nil) do
try
Result := ShowModal = mrOK;
Rec.FirstName := edFirstName.Text;// edFirstName - Tedit
Rec.LastName := edLastName.Text;// edLastName - Tedit
finally
Free;
end;
end;



 
Demon_mhm   (2003-03-26 23:15) [12]

Да я за другой машиной сижу, в клубе, может завтра, если буду, то закину код.
Дело в том, что форма создается автоматически при запуске и вручную я ничего не писал по этому поводу. Извини, что напрягаю, но видимо, надо много кода еще дописать... А про перекрытие я мало знаю, можт книжку какую посоветуешь потолковее, чем Фаронов?


 
Demon_mhm   (2003-03-26 23:17) [13]

Jack128, спасиб, попробую, завтра скажу что вышло :)


 
jack128   (2003-03-26 23:17) [14]

Извеняюсь

function GetManDialog( var Rec : Tman) : boolean;
begin
with TMyDialog.Create(nil) do
try
Result := ShowModal = mrOK;
if Result then begin
Rec.FirstName := edFirstName.Text;// edFirstName - Tedit
Rec.LastName := edLastName.Text;// edLastName - Tedit
end;
finally
Free;
end;
end;



 
Palladin   (2003-03-26 23:19) [15]

Гради Буч
ОО анализ и проектирование


 
Demon_mhm   (2003-03-26 23:25) [16]

Palladin, это по дельфям или абстрактное программирование?


 
Palladin   (2003-03-26 23:31) [17]


> Demon_mhm © (26.03.03 23:25)

это про объектно ориентированный (или ориентировочный, точно не помню) анализ и проектирование, тебе будет очень полезно, правда примеры на C++, но теория там очень хорошо рассматривается... в частности найдешь ты ответ на вопрос "что такое перекрытие" и очень много других интересных вещей... когда "подрастешь" прочтешь и остальное, что есть помимо теории...


 
jack128   (2003-03-26 23:50) [18]

Palladin © (26.03.03 23:19)
Это мне?
В любом случае, спасибо за ссылку, судя по анатации это именно то что мне нужно -)


 
les   (2003-03-26 23:50) [19]

> Palladin © (26.03.03 23:31)
> правда примеры на C++,
Ага ну ти еще первую редакцию посоветуй - где для каждой глави свой язик програмирования.


 
Palladin   (2003-03-26 23:58) [20]


> les © (26.03.03 23:50)

не знаю, с первым изданием не знаком, а чем тебе не нравится мой совет?
парень будет явно не разочарован... и книга действительно хорошая... я вообще всем советую почитать кто пытается с ООП разбиратся...


 
Palladin   (2003-03-26 23:59) [21]


> jack128 © (26.03.03 23:50)

ну если хочешь и тебе :)


 
les   (2003-03-27 03:05) [22]

> чем тебе не нравится мой совет
Боюсь при тех вопросах которие Demon_mhm задает ему будет трудновато. Вот и все.
> и книга действительно хорошая Да.



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

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

Наверх





Память: 0.49 MB
Время: 0.008 c
14-19859
alxx
2003-03-21 17:23
2003.04.07
:)


14-19804
кондратий
2003-03-19 21:33
2003.04.07
Файл или Папка


14-19802
SaperXL
2003-03-20 00:44
2003.04.07
UUCP - программирование


6-19744
Velocity
2003-02-13 15:08
2003.04.07
ARP-пакеты


1-19680
Юрий Федоров
2003-03-26 10:50
2003.04.07
*.TLB -> *_TLB.PAS





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский