Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.01.17;
Скачать: CL | DM;

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.012 c
3-52460
ol
2001-12-14 10:33
2002.01.17
SQL: вложенный запрос под MSSQL


7-52673
Vladimir Gorkov
2001-09-28 08:33
2002.01.17
Создание/Добавление виртуального диска в систему


1-52530
навичек
2001-12-27 07:41
2002.01.17
Дурацкая пошаговая отладка :(


3-52516
Nest
2001-12-17 11:15
2002.01.17
Возможно ли из программы открыть временную таблицу для редактирования? Со стандартными компонентами не получается %(


1-52566
greenrul
2001-12-28 17:23
2002.01.17
Первый раз столкнулся с DLL - plz HELP!!!