-
Content Count
3303 -
Joined
-
Last visited
-
Days Won
110
Posts posted by Lars Fosdal
-
-
56 minutes ago, Uwe Raabe said:1 hour ago, PeterPanettone said:Please VOTE & SHARE.
The new QP doesn't support voting and I cannot see a benefit in sharing this.
Well, sharing allows discovery, and those that are affected can add a comment?
- 1
-
Replace the brackets with parenthesis?
-
21 hours ago, PeterPanettone said:switch to a different programming environment. What is your advice?
Try something else, then decide.
Only you know what you need.
-
21 hours ago, Anders Melander said:Get a dog.
Stay on topic, please.
-
- Which language
- Which version
- Which class is SslHttpRest, and from which unit?
If you use System.Net.HttpClient (which I use, because getting the REST classes to work with various flavours of OAuth2 turned out to be a challenge), you can do it something like this (code is not complete 😞
var HTTPRequest: IHttpRequest; // from System.Net.HttpClient HttpResponse: IHttpResponse; // System.Net.HttpClient ReqHeaders: TNetHeaders; // System.Net.URLClient URL: String; begin try try try HTTPRequest := HTTP.GetRequest('GET', URL); ReqHeaders := [ TNetHeader.Create('Content-Type', 'application/json'), TNetHeader.Create('Content-Length, ''), TNetHeader.Create('Store-Token', '22345673301244567896663456789012'), TNetHeader.Create('User-Agent', 'PostmanRuntime/7.37.3'), TNetHeader.Create('Accept', '*/*'), TNetHeader.Create('Postman-Token', '40f28212-2f71-487a-a22f-d6ecdfa61b8b'), TNetHeader.Create('Host', 'localhost:8080'), TNetHeader.Create('Accept-Encoding', 'gzip, deflate, br'), TNetHeader.Create('Connection', 'keep-alive') ]; HttpResponse := HTTP.Execute(HTTPRequest,nil, ReqHeaders); // HTTP is THTTPClient from System.Net.HttpClient ...
-
If the date doesn't follow spec, do you really want to attempt to import it?
-
RSS-425 doesn't open for me either.
It could be that the reporter chose to NOT share the report with the Embarcadero Customer group. -
If you are a corporate developer, the money for tools are peanuts compare to other costs.
-
Can we stay on the topic, please?
Are there any practical languages that are applicable to writing the same variety of solutions as Delphi, that are actually memory safe?
Even if you manage your memory in Delphi, it is not hard to get corrupted data due to a dangling or misdirected pointer, even in Delphi.
- 2
-
Sometimes, when entering new areas of knowledge, you might not even know what to expect.
Hence, a guiding hand can go a long way. Most people appreciate those that offer help without conditions.
- 2
-
On 4/13/2024 at 11:24 PM, Anders Melander said:Maybe you should think a bit more about that. Ideally until it is no longer a mystery.
IMO, that was not very helpful.
If you are a new user, you may need to be guided on how to do it right, not just be told that you are doing it wrong.- 1
-
Irrelevant content removed.
-
There also is https://docwiki.embarcadero.com/Libraries/Sydney/en/System.TypInfo.GetEnumProp
which returns a PPropInfo, which again contains a PropType: PPTypeInfo, which you then can use with GetEnumValue?
-
What if you treat every value as a generic type?
That way you are free to use TypeInfo?procedure TParam<T>.SetAsString(const aValue: string); var TV: TValue; begin TV := TValue.From<T>(Default(T)); try case TV.Kind of tkEnumeration: TV := TValue.FromOrdinal(TypeInfo(T), GetEnumValue(TypeInfo(T), aValue)); tkInteger: TV := TValue.From<Integer>(StrToInt(aValue)); tkInt64: TV := TValue.From<Int64>(StrToInt(aValue)); tkFloat: TV := TValue.From<Extended>(StrToFloat(aValue)); else TV := TValue.From<String>(aValue); end; FValue := TV.AsType<T>; except on E:Exception do begin CmdDebugOut(Parent.Debug + ': "' + aValue + '" -> ' + E.Message); FValue := Default(T); end; end; end; function TParam<T>.GetAsString: string; var TV: TValue; begin TV := TValue.From<T>(FValue); Result := TV.AsString; end;
-
-
I should simply stop posting without actually checking shit...
object Label1: TLabel
Left = 303
Top = 233
Width = 99
Height = 15
Caption = 'Text'#32'Text'
enddoes however, work correctly.
Edit
But if you actually edited the dfm text and put in that #32, then view as form, and back to view as text - it has been converted to 'Text Text'.As @Lajos Juhászpoints out - Unicode text that is entered in the form attribute editor, will translate to #1234 values.
- 1
-
16 minutes ago, Attila Kovacs said:if dfm's are affected too
You can't really declare strings in .dfms as 'Text'#32'Text', can you?
If you set a caption or label in a dfm from such a string in code, yes you'd be affected. -
-
1 hour ago, Keesver said:check it out
What kind of license is it published under?
-
Ref := ItemProvider.Grab(ItemId); // or Ref := ItemProvider.GrabForChange(ItemId); try // do stuff finally ItemProvider.Drop(Ref); end;
ItemProvider can do the allocation and loading, as well as the disposal.
If there is parallell use, it can secure against readers/other writers, have a keep-alive in cache period, etc.In theory, with the "smart pointer" trick, you could even do away with the try/finally.
- 1
-
12 minutes ago, Anders Melander said:code to be generated based on fuzzy statistics
That is not what I intended to say. I was wondering if someone had tried to apply LLM for finding even better patterns for optimization than those that are currently implemented.
Naturally, such improved patterns would be made into new deterministic rules in the compiler after being properly vetted.
I agree that todays AI output has to be treated as indicative at best, and as bullshit at worst.
- 2
-
Request/Release
29 minutes ago, mitch.terpak said:I once tested GPT4.0 for some assembly code. Its actually quite good at explaining and improving Assembly code, but absolutely horrendous at writing it from scratch.
Which is to be expected, I guess, since the training was not done with optimization in mind.
-
2 minutes ago, David Heffernan said:None of the techniques described in that paper appear to be related to the LLM generation of AIs.
-
32 minutes ago, David Schwartz said:The try...finally, Free, and clearing memory are all managed implicitly by the 'local' variable designator (as an example).
Hasn't this already been demonstrated with "smart pointers"?
- 1
Delphi and "Use only memory safe languages"
in General Help
Posted
They kept start index 1 to stay compatible with the short strings. At some point it might be desirable to change it, but ... well... Bye bye backwards compatibility.