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

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

уникодная, а другая нет? (несколько размерностей убрала для краткости)
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;

3 ответов

11 просмотров

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

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

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

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

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

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

Обсуждают сегодня

Всем привет, написал код ниже, но он выдает сегфолт, в чем причина? #include <stdio.h> #include <stdlib.h> #include <string.h> struct product { char *name; float price; };...
buzz базз
32
Хотел бы спросить у знающих, правильную ли я выбрал книгу для начала изучения ассемблера Юрова В.И ? Или есть более лучшие книги для начала обучения?
Botsman
25
Книга Юрова В.И пойдёт для обучения?
Botsman
24
$params = [ 'formid' => 'feedbackForm', 'formTpl' => '@CODE: <form class="form-validate" data-id="ajax_form"> <fieldset class="margin-bottom-md"> ...
Pathologic
1
> Примечательно, что новый владелец удаляет из GitHub любые жалобы, указывающие на подозрительную активность или смену владельца, и, видимо, рассчитывает на то, что пользовате...
Alex Sherbakov
1
а мы ещё не созрели до того, чтобы создать отдельный чатик про настройку редакторов?
Cheese Syrowiecki
16
И ещё вопрос: можно ли типа как на дос как-то запариться и с помощью прерываний выводить текст, вместо функции printf ?
НѣкъиⰘижєжєиꙁъвьсєсвѣтьноѣсѣтиѥсть•
34
Всем привет! У меня почему-то по-разному отображается TListView в Debug и Release режимах (FireMonkey)! При запуске под Win приложения TListView заливается программо. в Debug ...
Александр COM
8
Ладно, ещё тупого спрошу. Код должен банально вывести значение регистра на консоль, на деле же не выводя ничего, просто оставляя нерабочую консоль (открыта, ничего не написан...
НѣкъиⰘижєжєиꙁъвьсєсвѣтьноѣсѣтиѥсть•
25
Hey there Which is the best Linux destro for developers (coding)? To my research on reddit, they said Linux mint is good for mid level spec and Ubuntu for high Lev hardwar...
Wiz 🪄
11
Карта сайта