он перепутал с делфи
блин, я так и знал!
А промпт какой? Интересно сравнить разные чатики)
https://duckduckgo.com/?q=DuckDuckGo+AI+Chat&ia=chat&duckai=1 gpt-4o mini
Текст запроса какой? У меня доступы к разным чатикам есть, хочу попробовать claude-3.5-sonnet
'опиши подробно сохранение файла JSON при помощи класса TJSONObject для free pascal'
pascal program SaveJSONFile; {$mode objfpc}{$H+} uses Classes, SysUtils, fpjson, jsonparser; var JSONObject: TJSONObject; JSONString: TJSONStringType; FileStream: TFileStream; begin JSONObject := TJSONObject.Create; try JSONObject.Add('name', 'John Doe'); JSONObject.Add('age', TJSONIntegerNumber.Create(30)); JSONObject.Add('isStudent', TJSONBoolean.Create(false)); JSONString := JSONObject.AsJSON; FileStream := TFileStream.Create('output.json', fmCreate); try FileStream.WriteBuffer(Pointer(JSONString)^, Length(JSONString) * SizeOf(Char)); finally FileStream.Free; end; WriteLn('JSON file saved successfully!'); finally JSONObject.Free; end; end.
"сложнее", но тоже интересно Использовал раньше стороннюю приблуду jsontools, но в синглтоне почему-то не завелась с порчей памяти. Решил поизучать штатные средства (pfjson, jsonparser, jsonconf...)
ChatGPT-4-turbo фигню какую-то пишет
заметил. Не весь код корректный, но для изучения пойдет :) Скинь в личку, если нетрудно, "правильные" чатгпт, лучше бесплатные
XSuperObject не пробовал?
Я редко пользуюсь сторонними компонентами, пока осваиваю штатные. Беда в том, что по ним инфы с гулькин нос
Обсуждают сегодня