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

Вниз

динамический массив и процедура для работы с ним   Найти похожие ветки 

 
bagos   (2007-11-04 18:53) [0]

Мастера подскажите как сделат ьследующее:
у меня создаються динамические массивы,их много, поэтому было решено сделать одну процедуру в которую передавался бы сам массив.
а в процедуре выполнялись операции,процедура то и нужна потому что операции одни и те же.

procedure xz(mass:array of string);
begin
...
mass...
...
end;

a,b,c,d,e:array of string;
begin
xz(a);
xz(b);
не дает никакого результата


 
Джо ©   (2007-11-04 18:58) [1]

type
TStringArray = array of string;

procedure xz(Mass: TStringArray);
..
var
 a,
 b,
 c: TStringArray;


 
Джо ©   (2007-11-04 18:58) [2]

P.S.
procedure xz(mass:array of string);
Сдесь mass — открытый (open) массив, а не динамический.


 
engine ©   (2007-11-04 18:59) [3]

> [0] bagos   (04.11.07 18:53)

у тебя ошибка в программе.


 
bagos   (2007-11-04 19:10) [4]

спасибо, сам чет не догадался...
type
TStringArray = array of string;



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

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

Наверх




Память: 0.44 MB
Время: 0.041 c
15-1193378641
Влад Васнецов
2007-10-26 10:04
2007.11.25
Защита программы, конкретно под железо.


2-1193827989
F@T@L_Err0r
2007-10-31 13:53
2007.11.25
Скопировать папку


1-1189155493
dima_q
2007-09-07 12:58
2007.11.25
Локализация в Delphi


5-1163604047
--= Eagle =--
2006-11-15 18:20
2007.11.25
EClassNotFound


15-1193027762
Моисеенко
2007-10-22 08:36
2007.11.25
RT11





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