Re: RTTI SetValue i TValue.FromVariant

Article View: pl.comp.lang.delphi

Article #346918

Back to pl.comp.lang.delphi Previous Next

#346918

From: Roman Tyczka
Date: Fri, 25 Jan 2019 10:49

29 lines
1951 bytes

On Fri, 25 Jan 2019 11:42:37 +0100, Roman Tyczka wrote:

>> Jesteś pewien że działa? Właśnie sprawdziłem w RIO i jego źródłach i nie ma prawa działać :P
> 
> procedure test;
> var
>   ctx : TRttiContext;
>   rttiType : TRttiType;
>   rttiProp : TRttiProperty;
>   value: variant;
>   rttiValue: TValue;
> Begin
>   Value := 1;
>   rttiValue := TValue.FromVariant(Value);
> //  ShowMessage(rttiValue.ToString); //tutaj pokazuje poprawne wartości
>   ctx := TRttiContext.Create;
>   rttitype := ctx.GetType(frmMain.cbbServerAddress.ClassInfo);
>   rttiprop := rttitype.GetProperty('ItemIndex');
>   rttiProp.SetValue(frmMain.cbbServerAddress, rttiValue);
> end;
> 
> Taki kod przestawia mi itemindex z 0 na 1. Bez błędów i problemów.

U Ciebie pewnie problemem jest metoda GetDBValueAsVariant, która robi
Varianta integerowego jako stringowego. I stąd ambaras.

-- 
pozdrawiam
Roman Tyczka

Technical Details

Message-ID: <7bfkywf7eusg$.dlg@tyczka.com>

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!newsfeed2.atman.pl!newsfeed.atman.pl!.POSTED!not-for-mail

References:

<26a7a704-1917-44d0-9661-5e95ad255534@googlegroups.com> <xhs5aachxoxt.dlg@tyczka.com> <b0793d30-5159-4dd7-b059-d0add1131590@googlegroups.com> <lqwexlswweys.dlg@tyczka.com> <24f75068-0e40-489a-be02-9042b10692dc@googlegroups.com> <67ocpvsjh6td$.dlg@tyczka.com>

Show Full Headers

Complete Article Headers

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!newsfeed2.atman.pl!newsfeed.atman.pl!.POSTED!not-for-mail
From: Roman Tyczka <noemail@because.no>
Newsgroups: pl.comp.lang.delphi
Subject: Re: RTTI SetValue i TValue.FromVariant
Date: Fri, 25 Jan 2019 11:49:31 +0100
Organization: ATMAN - ATM S.A.
Lines: 29
Sender: romek@tyczka.no.found
Message-ID: <7bfkywf7eusg$.dlg@tyczka.com>
References: <26a7a704-1917-44d0-9661-5e95ad255534@googlegroups.com> <xhs5aachxoxt.dlg@tyczka.com> <b0793d30-5159-4dd7-b059-d0add1131590@googlegroups.com> <lqwexlswweys.dlg@tyczka.com> <24f75068-0e40-489a-be02-9042b10692dc@googlegroups.com> <67ocpvsjh6td$.dlg@tyczka.com>
NNTP-Posting-Host: ip-94-75-90-137.wave.com.pl
Mime-Version: 1.0
X-Trace: node1.news.atman.pl 1548413372 26754 94.75.90.137 (25 Jan 2019 10:49:32 GMT)
X-Complaints-To: usenet@atman.pl
NNTP-Posting-Date: Fri, 25 Jan 2019 10:49:32 +0000 (UTC)
User-Agent: 40tude_Dialog/2.0.15.84
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Reply to Parent Message