Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Программирование [игнор отключен] [закрыт для гостей] / Lazarus: пустой динамический массив + for / 2 сообщений из 2, страница 1 из 1
15.06.2012, 18:00
    #37840156
Алексей Статюха
Алексей Статюха
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Lazarus: пустой динамический массив + for
Добрый день.

Наткнулся на странную ситуацию в Lazarus:

procedure TForm1.Button1Click(Sender: TObject);
var
Points: array of record
X,Y: Cardinal;
end;
I: Cardinal;
begin
SetLength(Points, 0);
Memo1.Lines.Add(Format('Length(Points) = %d', [Length(Points)]));
for I := 0 to Length(Points) - 1 do
begin
Memo1.Lines.Add('We here, but Length(Points)=0 ??!!');
Break;
end;
end;

Выдает в Memo1 такую фигню:
Length(Points) = 0
We here, but Length(Points)=0 ??!!

Подскажите, я что-то пропустил или это такой прикол?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.06.2012, 18:09
    #37840175
Алексей Статюха
Алексей Статюха
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Lazarus: пустой динамический массив + for
Я затупил, вместо I: Cardinal должно быть I: Integer (((
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Программирование [игнор отключен] [закрыт для гостей] / Lazarus: пустой динамический массив + for / 2 сообщений из 2, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 478ms
Закрыть
start [/forum/topic.php?fid=16&mobile=1&tid=1342222]:
 0ms
get settings:
 6ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 221ms
get topic data:
 6ms
get forum data:
 2ms
get page messages:
 18ms
get tp. blocked users:
 1ms
others: 211ms
total:  478ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]