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

Вниз

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

 
Eraser   (2001-12-29 14:15) [0]

если хочу задать массив через свойство и заполнить его, то StackOverflow .Поскажите:

type
TForm1 = class(TForm)
Button1: TButton;

procedure Button1Click(Sender: TObject);
private
function Getput(num: integer): string;
procedure Setput(num: integer; const Value: string);
private
property put[num:integer]:string read Getput write Setput;
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

{ TForm1 }

function TForm1.Getput(num: integer): string;
begin
Result:=put[num];
end;

procedure TForm1.Setput(num: integer; const Value: string);
begin
put[num]:=value;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
setput(1,"0");
end;

end.


 
Алексей Петров   (2001-12-29 14:40) [1]

У тебя бесконечная рекурсия получилась

SetPut вызывает SetPut
и GetPut - себя.


 
panov   (2001-12-29 14:46) [2]

У тебя половины кода не хватает.
Где массив, который ты хочешь заполнить?
Посмотри на
procedure TForm1.Button1Click(Sender: TObject);
setput(1,"0");
Должно быть:
MyArray[num] := Value;

----------------------





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

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

Наверх





Память: 0.54 MB
Время: 0.013 c
1-52597
Сенченко Андрей
2001-12-29 14:20
2002.01.17
Хочу чтобы меня видели !!! ( DLL )


1-52613
Трынкин Сергей
2001-12-27 14:07
2002.01.17
Как использовать свой курсор во время выполнения SQL запроса?


3-52499
Alexandr Suvorov
2001-12-05 11:26
2002.01.17
Запись данных в dBase????


1-52545
Smok_er
2001-12-28 05:37
2002.01.17
Exception EJPEG


1-52607
Макс
2001-12-29 11:01
2002.01.17
Шлифую баги с модальными формами





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