Re: RTTI SetValue i TValue.FromVariant

Article View: pl.comp.lang.delphi

Article #346914

Back to pl.comp.lang.delphi Previous Next

#346914

From: immo
Date: Fri, 25 Jan 2019 09:50

22 lines
2089 bytes

W dniu piątek, 25 stycznia 2019 10:32:31 UTC+1 użytkownik immo napisał:

I żeby nie było, że nie ma rozwiązania, to zrobiłem sobie coś takiego (brzydkie ale działa)

Że przed podstawieniem TValue do propertiesa sprawdzam jakiego jest typu i robię jawnie konwersję.

czyli:

case rttiProp.PropertyType.TypeKind of
 tkInteger : Value := StrToInt
 tkFloat: Value := StrToFloat
 tkString : Value := po prostu string :)
end;
rttiValue := TValue.FromVariant(Value);
rttiProp.SetValue(jakiś komponent, rttiValue)

gdzie Value: Variant
 rttiProp: TRttiProperty;
 rttiValue: TValue;

pozdrawiam,
Przemek O.

Technical Details

Message-ID: <a615790d-da81-4811-96b2-ee5d867ff8c8@googlegroups.com>

Path:

mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!news.nask.pl!news.nask.org.pl!news.unit0.net!feeder.erje.net!1.eu.feeder.erje.net!proxad.net!feeder1-2.proxad.net!209.85.166.215.MISMATCH!k10no253145itk.0!news-out.google.com!v71ni328ita.0!nntp.google.com!q69no253783itb.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail

References:

<26a7a704-1917-44d0-9661-5e95ad255534@googlegroups.com> <xhs5aachxoxt.dlg@tyczka.com> <b0793d30-5159-4dd7-b059-d0add1131590@googlegroups.com> <01a7122f-fd72-442f-9e50-a376c0fbb979@googlegroups.com>

Show Full Headers

Complete Article Headers

X-Received: by 2002:a24:5348:: with SMTP id n69mr4772732itb.7.1548409814945;        Fri, 25 Jan 2019 01:50:14 -0800 (PST)
X-Received: by 2002:a9d:da3:: with SMTP id 32mr158837ots.3.1548409814733; Fri, 25 Jan 2019 01:50:14 -0800 (PST)
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!news.nask.pl!news.nask.org.pl!news.unit0.net!feeder.erje.net!1.eu.feeder.erje.net!proxad.net!feeder1-2.proxad.net!209.85.166.215.MISMATCH!k10no253145itk.0!news-out.google.com!v71ni328ita.0!nntp.google.com!q69no253783itb.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
Newsgroups: pl.comp.lang.delphi
Date: Fri, 25 Jan 2019 01:50:14 -0800 (PST)
In-Reply-To: <01a7122f-fd72-442f-9e50-a376c0fbb979@googlegroups.com>
Complaints-To: groups-abuse@google.com
Injection-Info: glegroupsg2000goo.googlegroups.com; posting-host=77.65.27.242; posting-account=uWBjDgoAAACxkgIP6dtE4dpCnc16V86n
NNTP-Posting-Host: 77.65.27.242
References: <26a7a704-1917-44d0-9661-5e95ad255534@googlegroups.com> <xhs5aachxoxt.dlg@tyczka.com> <b0793d30-5159-4dd7-b059-d0add1131590@googlegroups.com> <01a7122f-fd72-442f-9e50-a376c0fbb979@googlegroups.com>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <a615790d-da81-4811-96b2-ee5d867ff8c8@googlegroups.com>
Subject: Re: RTTI SetValue i TValue.FromVariant
From: immo <przemek-o@soft-system.pl>
Injection-Date: Fri, 25 Jan 2019 09:50:14 +0000
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Reply to Parent Message