delphi-xe7

How can change alphablend of a form without affect on control in form? Delphi XE7 One solution to this problem is to use Multi-Device Application (if using VCL is not possible). If you need to leave a transparent TForm just changing a property Transparency = True . If you need to leave a semi-transparent component, all components have the Opacity property that can be assigned a more transparent value between 0 and 1, where 0 is closer to that component. For example you could put the controls within a TLayout and change the Opacity of it as you see fit, and have no effect on the other

When using TJson.JsonToObject in a multi-thread environment random access violations occur. I was searching a long time for the problem and I could isolate it with the following code JSON class type TParameter = class public FName : string; FDataType : string; FValue : string; end; Testfunction: procedure Test(); var myTasks: array of ITask; i : integer; max : integer; begin max := 50; SetLength(myTasks, max); for i := 0 to max -1 do begin myTasks[i] := TTask.Create(procedure () var json : string; p : TParameter; begin json := '{"name":"NameOfParam","dataType":"TypeOfParam","value":

I read files from customers and I need to process the read data and remove some unneeded characters. My function works, but I'm trying to improve the FixData function to improve speed/performance and maintainability. Is it possible to replace multiple StringReplace calls with something that will only loop through data once and replace with whatever it needs to? I can't find MultipleStringReplace or similar function. MCVE: function FixData(const vStr:string):string; var i:integer; begin Result:=vStr; // empty string if Result = #0 then Result := ''; // fix just New line indicator if Result =