In Jcl library you have the StrIndex function StrIndex(Index, Array Of String) which works like this: Case StrIndex(‘SomeName’, [‘bobby’, ‘tommy’, ‘somename’]) of 0: ..code.. ;//bobby 1: ..code..;//tommy 2: ..code..;//somename else ShowMessage(‘error’); end.
Well, it’s hard to be sure without a lot of testing, but it certainly looks like this is a bug, either in TThreadedQueue or in TMonitor. Either way it’s in the RTL and not your code. You ought to file this as a QC report and use your example above as the “how to reproduce” … Read more
How do I write a TDBCtrlGrid VCL Style custom class?
Is it possible to resolve the problem by tuning compiler options? No, you cannot fix the error by tuning, it’s a (very specific) bug in the compiler. [Can someone tell me] Whether this problem repeats at someone else? I can reproduce the code, but only in XE2 update 4. I was not able to check … Read more
I use FL studios with my Midi and odds are is you need to turn down your buffer quality so that there is little to no delay. It’s probably by default set to about mid-high range which means you will almost for sure have 1 – 1.5 second delay Don’t turn it down too low … Read more
Workaround rowCnt := UsedRange.Rows.Count; colCnt := UsedRange.Columns.Count; for Row := 1 to rowCnt do begin for Col := 1 to colCnt do begin v := UsedRange.Item[Row, Col].Value; end; end; This also works (and may help you find a workaround in more complicated use cases): function ColCount(const range: ExcelRange): integer; begin Result := range.Columns.Count; end; for … Read more
I’m not entirely sure why you have the {} around the string values, – my hunch is that it is to demonstrate that the values are coming from a remote execution – but I know for a fact that S is being truncated due to optimization… {$O-} // Disable Optimization var S: AnsiString; S2: UnicodeString; … Read more
The code in the question produces the expected output in XE2 update 4. Note that update 3 produces the bad output and so clearly the fix arrived with update 4. Also, XE3 produces the expected output.
Getting the NSWindow of a FMX form convert a TForm reference to a NSWindow set Host Window. MyWebView.setHostWindow(MyNSWindow) procedure TForm2.Button1Click(Sender: TObject); var […] ObjTOC: TOCLocal; MyNSWindow : NSWindow; […] ObjTOC := (FmxHandleToObjC(Form2.Handle) as TOCLocal); MyNSWindow := NSWindow(TOCLocalAccess(ObjTOC).Super); PWebView := TWebView.Alloc.initWithFrame(MakeNSRect(10, 10, 300, 300), nil, nil); MyWebView := TWebView.Wrap(PWebView); MyWebView.setHostWindow(MyNSWindow); […] MyWebView.mainFrame.loadRequest(urlreq); end;
Not sure to understand but maybe what you are looking for is : use=”optional” <xs:element name=”MyReport” type=”MyReportType” /> <xs:complexType name=”MyReportType”> <xs:all> <xs:element name=”Header” type=”HeaderType” use=”optional” /> <xs:element name=”Values” type=”ValuesType” use=”optional” /> <xs:element name=”Events” type=”EventsType” use=”optional” /> </xs:all> </xs:complexType> Tell me if it’s okay.