String na Variant

0

Istnieje jakiś łatwy i przyjemny sposób zamiany łańcucha na Variant wskazanego typu ?

0

A możesz sprecyzować problem?

0

Problem jest taki, że pisze kontrolkę dziedziczącą po TEdit. Kontrolka posiada własność "Typ: TVarType" określającą typ prawidłowej wartości. Kontrolka ma podświetlać się na czerwono jeśli wpisany tekst jest wartością nieprawidłową. Chciałem uniknąć rozpatrywania każdego typu z osobna.

0

A nie można tego rozwiązać tak?

try
case typ of
  typ1: Sprawdz Konwersje Edit.Text Na Typ1;
  typ2: Sprawdz Konwersje Edit.Text Na Typ2;
...


except
  // podkolorowanie kontrolki na czerwono
en

d;

0

Pewnie, że można, ale to nie jest sposób "łatwy i przyjemny". Trochę tych case'ów będzie (ok. 25)

//edit
TheBigStaticObject rozwiązał problem - VarAsType
Zamieniam łańcuch na Variant typu varString, a ten z kolei na Variant żądanego typu funkcją VarAsType.

1 użytkowników online, w tym zalogowanych: 0, gości: 1