типы данных

[sp@ker]

Привет всем помогите пожалуйста!!! Есть такой маленький вопросик. Мне нужно через условный оператор if сравнить 2 переменные: одна типа variant, а вторая типа string. Выдает ошибку несоответствие типов. Как я понял нужно Variant преобразовать в String, не знаю как это сделать.

[Аватар]

Попробуй if String(p1)=p2 где p1 типа Variant
upd
перед этим проверить чтобы VarIsNull(p1) был False

[sp@ker]

что то так не получается это единственный вариант

[mss]

Сообщение от sp@ker

не получается это единственный вариант

Казнить нельзя помиловать.
Знаки препинания за тебя Пушкин должен расставлять ?

одна типа variant, а вторая типа string

Variant ни то и Variant что может хранить данные РАЗНЫХ типов. Не только строковых.
А может и вооще не хранить никаких, имея значение Unassigned.

Ты как собрался сравнивать НИЧТО со 'строкой' ?

[Прик]

Сообщение от sp@ker

Выдает ошибку несоответствие типов.

Это кто ж такое рассказал. Наверняка Гарри Потер.
Переменные типа Variant прекрасно сравниваются со строкой и с другими типами переменных.
Попробуйте компильнуть такой текст:

var
  V : Variant;
  S : string;
begin
  S := 'string';
  if V <> S then
    V := S;
end;

Скомпилируется за милую душу. Проверьте этот код при работе программы - сработает как надо.
Так что, автор темы явно чего-то не договаривает, если у него "несоответствие типов". Variant не может не соответствовать. И сравнивает он, скорее всего не variant со строкой, а что-то другое.

[sp@ker]

Извиняюсь за свой русский))))) В переменной типа вариант у меня служит значение ячейки экселя, а стрингом является эдит вот их мне надо сравнить. Самое смешное он их сравнивает как надо, но выдает ошибку: несоответствие типов.

[Прик]

И как же у вас выглядит "ячейка экселя" в Дельфи?
А нельзя присвоить это значение переменной строкового типа и затем сравнивать?
К тому же, variant, указывающий на "ячейку екселя" может содержать не только значение, но и другие данные.

[Аватар]

Так стрингом является Edit, или все таки Edit.Text? И выдает ошибку или предупреждение?

[Человек_Борща]

Сообщение от Delphi HELP

Converts a variant's value to a string.

Unit

Variants

Category

Variant support routines

Delphi syntax:

function VarToStr(const V: Variant): string;

C++ syntax:

extern PACKAGE AnsiString __fastcall VarToStr(const Variant V);

Description

VarToStr converts the data in the variant V to a string and returns the result. If the variant has a null value, VarToStr returns an empty string.

справку никто не оменял...