Форум: "Основная";
Текущий архив: 2002.06.03;
Скачать: [xml.tar.bz2];
ВнизВ чем я не прав Найти похожие ветки
← →
Kopachev (2002-05-22 21:51) [0]Почему появляется ошибка: "Left side cannot be aasigned to"
Описал две записи
type
RAZDEL = record
Visible: boolean;
otstup: integer;
razdel_otstup: integer;
pos: TPoint;
podrazdel: TList;
end;
type
PODRAZD = record
num: integer;
otstup: integer;
strok: integer;
pos: TPoint;
end;
Описал массив:
Razdels: array[0..7] of RAZDEL;
type PODRAZD1 = ^PODRAZD;
podrazds: podrazd1;
Потом добавляю в список
New(podrazds);
podrazds^.otstup := 1;
podrazds^.strok := 1;
Razdels[0].podrazdel.Add(podrazds);
А вот здесь происходит ошибка.
(PODRAZD(Razdels[0].podrazdel.Items[0]^)).pos.y := 5;
Почему появляется ошибка: "Left side cannot be aasigned to"
Читать данные из (PODRAZD(Razdels[0].podrazdel.Items[0]^)).pos.y могу, а изменить элемент, находящийся в списке почему-то не могу.
← →
allrussia (2002-05-23 02:19) [1]Левая сторона не может быть сопоставлена с...
program Produce;
const
c = 1;
procedure p(const s: string);
begin
s := "changed"; { <-- Ошибка здесь}
end;
function f: PChar;
begin
f := "Hello";
end;
begin
c := 2; { <-- Ошибка здесь }
f := "h"; { <-- Ошибка здесь }
end.
program Решение;
var
c : Integer = 1; { Use an initialized variable }
procedure p(var s: string);
begin
s := "changed"; { Use variable parameter }
end;
function f: PChar;
begin
f := "Hello"; { This is fine - we are setting the return value }
end;
begin
c := 2;
f^ := "h"; { This compiles, but will crash at runtime }
end.
← →
Внук (2002-05-23 09:17) [2]"Left side cannot be aasigned to" - Левой части выражения не может быть присвоено значение. Попробуйте так:
PODRAZD1(Razdels[0].podrazdel.Items[0])^.pos.y := 5;
И неплохо было бы увидеть
Razdels[0].podrazdel:=TList.Create;
перед
Razdels[0].podrazdel.Add(podrazds);
← →
Lord Warlock (2002-05-23 09:26) [3]Попробуй написать
TPoint(PODRAZD1(Razdels[0].podrazdel.Items[0])^.pos).y := 5;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.06.03;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.006 c