Как исправить функцию сравнивающую две одинаковые гуидные строки, где одна

Question

Как исправить функцию сравнивающую две одинаковые гуидные строки, где одна

уникодная, а другая нет? (несколько размерностей убрала для краткости)
function VariantEqual(AValue1,AValue2: Variant): boolean;
var
type_ : Integer;
begin
result := False;
type_ := VarType(AValue1);
if type_<>VarType(AValue2) then exit;
case type_ of
varEmpty, varNull :
begin
result := True;
exit;
end;
else
result := AValue1=AValue2;
end;
end;

#lazarus #programming #russian

0

24.05.2024

3 ответов

9 просмотров

Катерина Свиридова Автор вопроса

Alexey Gavrilov
Катерина, а почему ты не хочешь построить из строк...

Алексей, не добивайте) Я хочу исправить функцию сравнения двух вариантов. Меня хоть кто-нибудь правильно читает? )))

0

23 дня назад

Michael Longneck

Катерина Свиридова
Алексей, не добивайте) Я хочу исправить функцию ср...

Я не знаю что там написано в пропущенной части, но для начала - varsamevalue, а потом поделить типы на типы - даты, числа, строки, конвертировать аргументы и сравнивать соответственно

0

23 дня назад

Alexey Gavrilov · Accepted Answer

Alexey Gavrilov

Катерина, а почему ты не хочешь построить из строк tguid и сравнить IsEqualGUID?

0

23 дня назад

169 похожих чатов

Как исправить функцию сравнивающую две одинаковые гуидные строки, где одна

3 ответов

Похожие вопросы