Вниз
Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.027 c
3-1183095455
@dim
2007-06-29 09:37
2007.11.18
Обработка ошибок внутри транзакции


15-1192174488
Azize
2007-10-12 11:34
2007.11.18
Web технологии и поддержка


15-1192546038
oldman
2007-10-16 18:47
2007.11.18
Есть такая страна Мьянма. У них война, а они Интернет чинят... :)


2-1193392869
Delphi_Beginer
2007-10-26 14:01
2007.11.18
Массив как возвращаемый параметр


6-1174461193
Pavel Kuznecov
2007-03-21 10:13
2007.11.18
"Байтовую" строку в последовательность $FF




   Наверх