Ошибка Could not convert variant of type (Null) into type (String)

@apple25 · Регистрация: 10.09.2014

Студворк — интернет-сервис помощи студентам

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure tMain.TLichDataFilterRecord(DataSet: TDataSet;
 
var Accept: Boolean);
 
var
 
s : String;
 
begin
 
 
 
s := Copy(DataSet['Фамилия'], 1, Length(ed)); 
 
 
Accept := s = ed;
 
end;

ВЫДАЕТ ОШИБКУ В ЭТОЙ СТРОКЕ
s := Copy(DataSet['Фамилия'], 1, Length(ed));

ПОМОГИТЕ ПЛИЗ!!!

Скандербег · 10.09.2014, 17:04

Если в поле нет данных (NULL) или датасет не открыт или открыт, но не содержит данных (DataSet.Eof),
то будет генерироваться эта ошибка.

quwy · 10.09.2014, 17:38

Сообщение от Скандербег

открыт, но не содержит данных (DataSet.Eof)

DataSet.IsEmpty
Eof -- это признак конца набора, данных при этом может быть сколько угодно.

apple25,

Delphi
1
2
3
4
if DataSet.FieldByName('Фамилия').IsNull then
  s:= ''
else
  s := Copy(DataSet.FieldByName('Фамилия').AsString, 1, Length(ed));

Скандербег · 10.09.2014, 17:58

quwy, речь то идет об открытии датасета, сразу после чего и проверяется EOF,
а в этом случае, используя Eof, точно можем знать есть ли данные в датасете вообще. Это первое.
Второе, если посмотрите реализацию IsEmpty, то думаю, сильно удивитесь, поскольку
эта функция проверяет номер активной записи на то что он больше или равен количеству записей.
А это и есть Eof только с извращением. К тому же в некоторых датасетах IsEmpty просто не работает,
из-за того что общее количество записей может быть неизвестно.
ТС не открыл нам тайну с какой СУБД имеет дело, поэтому рекомендовать IsEmpty я бы просто не рискнул.

quwy · 10.09.2014, 18:16

Сообщение от Скандербег

речь то идет об открытии датасета, сразу после чего и проверяется EOF

Из кода ТС это никак не следует. Тем более, что обработчик OnFilterRecord вызывается только если в датасете есть хоть одна запись, и поэтому проверка на заполненность просто лишена смысла (я ее и не добавлял в условие).

Сообщение от Скандербег

Второе, если посмотрите реализацию IsEmpty, то думаю, сильно удивитесь, поскольку
эта функция проверяет номер активной записи на то что он больше или равен количеству записей.

И что? Существуют датасеты, которые вообще не знают своего количества записей. В данном случае это просто условие, а как поля FActiveRecord и FRecordCount заполняются данным конкретным наследником TDataSet -- не важно.

@apple25 · 11.09.2014, 00:11 **[ТС]**

quwy, спасибо, ошибка пропала, НО теперь то для чего это предназначалось не работает. Хотел сделать фильтрацию в БД, по полю "Фамилия".

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TtMain.TLichDataFilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
var
  s: String;
begin
 
if DataSet.FieldByName('Фамилия').IsNull then
  s:= ''
else
  s := Copy(DataSet.FieldByName('Фамилия').AsString, 1, Length(ed));
 
  Accept := s = ed;
end;

Delphi
1
2
3
4
5
6
7
8
9
procedure TtMain.Edit1Change(Sender: TObject);
begin
  if Edit1.Text <> '' then begin
    tMain.TLichData.Filtered := False;
    tMain.ed := Edit1.Text;
    tMain.TLichData.Filtered := True;
  end
  else tMain.TLichData.Filtered := False;
end;

@northener · 11.09.2014, 01:59

Сообщение от apple25

ошибка пропала, НО теперь то для чего это предназначалось не работает.

Что значит не работает? И что есть "то для чего это предназначалось"?

@apple25 · 11.09.2014, 08:37 **[ТС]**

northener, фильтрация не работает

quwy · 11.09.2014, 12:17

Сообщение от apple25

фильтрация не работает

Должно работать. Регистр символов в ed и в датасете совпадает?

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

Скандербег 1076 / 989 / 340 Регистрация: 07.08.2012 Сообщений: 2,790
	10.09.2014, 17:04
	Если в поле нет данных (NULL) или датасет не открыт или открыт, но не содержит данных (DataSet.Eof), то будет генерироваться эта ошибка. 0

Скандербег 1076 / 989 / 340 Регистрация: 07.08.2012 Сообщений: 2,790
	10.09.2014, 17:58
	quwy, речь то идет об открытии датасета, сразу после чего и проверяется EOF, а в этом случае, используя Eof, точно можем знать есть ли данные в датасете вообще. Это первое. Второе, если посмотрите реализацию IsEmpty, то думаю, сильно удивитесь, поскольку эта функция проверяет номер активной записи на то что он больше или равен количеству записей. А это и есть Eof только с извращением. К тому же в некоторых датасетах IsEmpty просто не работает, из-за того что общее количество записей может быть неизвестно. ТС не открыл нам тайну с какой СУБД имеет дело, поэтому рекомендовать IsEmpty я бы просто не рискнул. 0

@apple25 0 / 0 / 0 Регистрация: 10.09.2014 Сообщений: 4
	11.09.2014, 08:37 [ТС]
	northener, фильтрация не работает 0