Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2007.11.18;
Скачать: [xml.tar.bz2];

Вниз

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

 
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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.46 MB
Время: 0.038 c
2-1193244294
Чайник
2007-10-24 20:44
2007.11.18
Drag & Drop из сторонних приложений - RegisterDragDrop


15-1192103772
Квэнди
2007-10-11 15:56
2007.11.18
Поиск литературы по потокам


15-1192327841
Dmitry S
2007-10-14 06:10
2007.11.18
КПД апокалипсиса


15-1192348434
KKKL
2007-10-14 11:53
2007.11.18
Zip/UnZip


15-1192360733
Вопрошающий
2007-10-14 15:18
2007.11.18
Что вы знаете об узбекской культуре?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский