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

Вниз

динамический массив из компонентов   Найти похожие ветки 

 
Suvit   (2005-01-20 11:20) [0]

есть такой код для Билдера

 Memo* memos[]={Memo1,Memo2};
 memos[((TComponent*)Sender)->Tag]->Lines->LoadFromFile

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


 
Poirot ©   (2005-01-20 11:24) [1]

memo : array of TMemo
SetLength(memo, 2);
memo[0] = Memo1;
memo[1] = Memo2;
Что-то вроде этого..
memos[((Sender as TComponent ).Tag].Lines.LoadFromFile()


 
Suvit   (2005-01-20 11:27) [2]

т.е. в если мемов будет к примеру 100 мне надо каждый элемент завоить руками?

а как нибудь так
memos = [ Memo1, Memo2, ... Memo100];
нельзя?


 
Style ©   (2005-01-20 11:30) [3]


> а как нибудь так
> memos = [ Memo1, Memo2, ... Memo100];
> нельзя?

А это что ни руками???

А тебе какая разница как руками вводить - Так или Сяк ??? :)))


 
Poirot ©   (2005-01-20 11:32) [4]

боюсь что нет... хотя в последних делфях аля 2005 всё мб и возможно...


 
Suvit   (2005-01-20 11:32) [5]


> А это что ни руками???
>
> А тебе какая разница как руками вводить - Так или Сяк ???
> :)))

понял, буду использовать TComponent.Conponents


 
Poirot ©   (2005-01-20 11:37) [6]

ЗЫ:
>>Memo* memos[]={Memo1,Memo2};
По IMHO Это не динамический массив, а как раз статический:) елси я ничего не путаю)


 
Suvit   (2005-01-20 11:44) [7]


> ЗЫ:
> >>Memo* memos[]={Memo1,Memo2};
> По IMHO Это не динамический массив, а как раз статический:)
> елси я ничего не путаю)

+1
динамический как так
 (Memo*)* memos


 
Style ©   (2005-01-20 11:47) [8]

На наслаждайся :)))

type
 TMemoArray = array of TMemo;

...

function TForm1.AddArr(const Args: array of TMemo): TMemoArray;
begin
 SetLength(result, Length(Args));
 CopyMemory(result,@Args, sizeof(Args));
end;

procedure TForm1.Button1Click(Sender: TObject);
var
ar: TMemoArray;
begin
 ar := AddArr([Memo1, Memo2,Memo3]);

 ar[0].Lines.Text := "Ops";
end;


 
Poirot ©   (2005-01-20 11:47) [9]

неа... не динамический... при таком объявлении это статика.. ибо память видуляется в стеке под этот массив, а вот если делать через new тогда просто так присвоить не получится...
конечно я ненаю, что там борланд с С придумал в биледре, но в С всю жизть было так именно:)
(Memo*)* memos - это совершенно другое объявление


 
Suvit   (2005-01-20 11:53) [10]


> неа... не динамический... при таком объявлении это статика..
> ибо память видуляется в стеке под этот массив, а вот если
> делать через new тогда просто так присвоить не получится...
> конечно я ненаю, что там борланд с С придумал в биледре,
> но в С всю жизть было так именно:)
> (Memo*)* memos - это совершенно другое объявление

понял, можно вызывать TMemo.Create
только им потом leftы и topы надо будет выставлять, что лень сделать :))


 
Poirot ©   (2005-01-20 11:58) [11]

Сделай проще. Сделай не массив а что-то типа списка связангого и работай сн им, а для удобства инкапсулируй это всё в какой нить класс и сделай у него дефолтным свойство напрмиер

property Items[Index:Integer]:TMemo read GerProc write GetProc; default;

и всё буит так как ты хочешь:) ООП блин:)


 
Suvit   (2005-01-20 12:32) [12]

да я уже TObjectList взял, только получать из него плохо, все время кастовать приходиться



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

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

Наверх




Память: 0.47 MB
Время: 0.034 c
8-1097942663
TeNY
2004-10-16 20:04
2005.01.30
Формат изображения в TPicture


14-1105635943
Tankist
2005-01-13 20:05
2005.01.30
Все религии неверные?


1-1105696520
thvfrjd
2005-01-14 12:55
2005.01.30
Работа с Excel с помощью ExcelApplication


6-1100547605
Луарвик
2004-11-15 22:40
2005.01.30
Передача файлов через http прокси?


3-1104146590
Otari
2004-12-27 14:23
2005.01.30
Query SQL command





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