Форум: "Основная";
Текущий архив: 2002.02.07;
Скачать: [xml.tar.bz2];
ВнизПогибаю в пучине потоков (уже давно) Найти похожие ветки
← →
Eraser (2002-01-21 15:38) [0]type
TMicro1Thread= class (TThread)
...
private
put: array [0..256] of string;
..
public
...
function Getputpub(num: integer): string;
procedure Setputpub(num: integer; const Value: string);
property putpub[num:integer]:string read Getputpub write Setputpub;
..
end;
procedure TMicro1Thread.Execute;
begin
put[1]:=d;
end;
function TMicro1Thread.Getputpub(num: integer): string;
begin
result:=put[num];
end;
procedure TMicro1Thread.Setputpub(num: integer; const Value: string);
begin
put[num]:=value;
end;
объясниите ламеру почему не могу в основной программе обратиться к массиву.Пишу:
TMicro1Thread.Suspend;
f:=TMicro1Thread.getputpub[1];
TMicro1Thread.setputpub[2]:=g;
Tmicro1Thread.Resume;
и пишется ошибка "getputpub not declared" и вторая такая же
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.02.07;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.005 c