AK
мне PDP-11 семейство, точнее 1801ВМ больше нравились всегда :( они логичнее. Z80 - это как С, в то время как 1801 был сродни паскалю. Точнее, больше оберону, наверное
Size: a a a
2020 April 28
AK
интел в этом плане вообще с С++ тогда сравнивать, наверное, надо... или того хуже, Перлом
DB
pdp шники были всегда лучше, но вот как-то так и не выстрелили до конца. ну и вживую не щупал ни разу
AK
я в живую с БК и ДВК только тесно общался, у них ШИКАРНЫЙ байткод!
AK
наверное, до сих пор валяется где-то вся ПЗУшка БК0011, выписанная кодами и ассемблером в тетрадку
АВ
А между тем этот самый z80 вместе с 68k образовывали Sega....Надо будет заморочиться, поробовать какую нибудь демку запилить на паскале для Genesis:D
AZ
function GetDataSetAsJSON(DataSet: TDataSet): TJSONObject;
var
f: TField;
o: TJSOnObject;
a: TJSONArray;
begin
a := TJSONArray.Create;
DataSet.Active := True;
DataSet.First;
while not DataSet.EOF do begin
o := TJSOnObject.Create;
for f in DataSet.Fields do
o.AddPair(f.FieldName, VarToStr(f.Value));
a.AddElement(o);
DataSet.Next;
end;
DataSet.Active := False;
Result := TJSONObject.Create;
Result.AddPair(DataSet.Name, a);
end;приятный хелпер к датасету чтобы гонять его в/из json https://github.com/ezequieljuliano/DataSetConverter4Delphi
DB
DB
я помню, что где-то пробегал однострочный код туда-назад. но сходу не нашел
AZ
использую у себя в микросервисах, работает отлично
AS
использую у себя в микросервисах, работает отлично
говорил, что за сервисы? )
DB
и так. я же грозился кинуть код массив массивов в json? :) ловите...
function ToJson: string;
type
TStrArr = array of array of string;
var
Arr: TStrArr;
Ctx: TSuperRttiContext;
i: integer;
j: integer;
X: ISuperObject;
begin
SetLength(Arr, 3, 3);
for i := 0 to 2 do
for j := 0 to 2 do
Arr[i, j] := Format('i = %d j = %d', [i, j]);
Ctx := TSuperRttiContext.Create;
x := Ctx.AsJson<TStrArr>(Arr);
X.SaveTo('test.json');
FreeAndNil(Ctx);
end;
DB
назад примерно так же
AZ
говорил, что за сервисы? )
несколько микросервисов, один сервис аутентификации и авторизации генерирует JWT. второй публичные апи методы, третий закрытые апи методы которые требуют jwt для доступа, все закрыто ssl.
AZ
сваггер на всех трех
AS
сваггер на всех трех
т.е. сваггер - это не просто облачная дока с кодогенератором?
AZ
выглядит примерно так
AZ
это скорее дока и сразу тестилка любого метода, с запросом параметром, генерация линков для запроса, простого и через curl и т.д
AS
т.е. это либа, которая "встраивается" в приложение? и на основе метаданных АПИ в коде генерит страницу доки?