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

Вниз

Как определить длину элемента структуры?   Найти похожие ветки 

 
cvg   (2007-10-25 14:34) [0]

Есть некая структура, допустим

type MyRec = record
a:int;
b:string;
end;
MyArr := array of MyRec;
var A:MyArr;

Может оказаться, что в ней заполнены элементы нулевой и второй. Есть некая функция, которая должна изменить все элементы b. Я пишу:

procedure func;
var i:integer;
begin
 for i := low(A) to high(A) do
  if length(A[i]) > 0
  then A[i].b := "b";
end;

Но на length(A[i]) транслятор ругается матом. Как еще можно попытаться определить, присутствует ли в структуре непустая i-тая запись?


 
Palladin ©   (2007-10-25 14:36) [1]

SizeOf


 
clickmaker ©   (2007-10-25 14:37) [2]

if Trim(A[i].b) = ""


 
homm ©   (2007-10-25 14:39) [3]

> [0] cvg   (25.10.07 14:34)
> присутствует ли в структуре непустая i-тая запись

Что такое пустая запись?


 
Ega23 ©   (2007-10-25 14:43) [4]

if length(A[i].b) > 0


 
Ega23 ©   (2007-10-25 14:44) [5]

Пардон, фигня будет.
как сказал clickmaker ©
if Trim(A[i].b) = ""


 
cvg   (2007-10-25 14:55) [6]

Спасибо всем, но необходимость уже отпала, т.к. выяснилось, что "пустых" записей программа не делает :)


 
homm ©   (2007-10-25 14:57) [7]

> [6] cvg   (25.10.07 14:55)
> выяснилось, что "пустых" записей программа не делает

Я тебе больше, скажу, их в природе существовать не может…


 
Anatoly Podgoretsky ©   (2007-10-25 15:05) [8]

> cvg  (25.10.2007 14:34:00)  [0]

Ой новый орел, там же непонятный член int



Страницы: 1 вся ветка

Текущий архив: 2007.11.18;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.021 c
2-1193161764
(MiTch)
2007-10-23 21:49
2007.11.18
Упорядоченный динамический список Help Please


2-1193428551
sdaf
2007-10-26 23:55
2007.11.18
неполучаеться убрать атрибут скрытый


15-1192177213
KSergey
2007-10-12 12:20
2007.11.18
Планирование системой тработы одного потока в многопроц. системе


2-1193379623
Layner
2007-10-26 10:20
2007.11.18
Узнать, над каким элементом вызвали PopupMenu


8-1169483520
diman_1978
2007-01-22 19:32
2007.11.18
DSPack подключение De-Interlace фильтра