Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 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;

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





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




Наверх





Память: 0.72 MB
Время: 0.018 c
1-52599           greenrul              2001-12-29 14:42  2002.01.17  
Почему random(4) всегда возвращает 0???


3-52522           Oleg_K                2001-12-14 10:05  2002.01.17  
DataSet not in edit or insert mode


4-52683           KIR                   2001-11-13 09:30  2002.01.17  
Выравнивание содержимого в ячейке таблицы по высоте


3-52511           JEff                  2001-12-08 13:16  2002.01.17  
Что из себя представляет BDE?


1-52534           Andrey196             2001-12-26 18:28  2002.01.17  
Как у combobox скрыть строку ввода, и чтобы первый item был виден на этой строке