DB
ладно звучит пока за гранью на моем левеле :)
да что тут такого? :) кинуть в папку пачку файлов, прописать к ней путь в свойствах проектов и в uses написать superobject
Size: a a a
2020 January 28
Дt
не пачку а тока 2
DB
по идее, в каждой библиотеке компонент должна быть инструкция по установке
так там установки то нету, то и ставить нечего
DB
можно вообще тупо в папку проекта кинуть и вообще ничего нигде не делать
KB
ну инструкция по использованию, если прописывать каки-то там пути, то какие именно и куда именно
RS
Короче, вот в Лазарусе так можно прочитать JSON настройки из файла в твой объект
procedure LoadFromJSON(AObject: TObject; const AFileName: String);
var
ADeStreamer: TJSONDeStreamer;
AJSON: TStringList;
begin
if not FileExists(AFileName) then
Exit;
ADeStreamer:=TJSONDeStreamer.Create(nil);
try
AJSON:=TStringList.Create;
try
AJSON.LoadFromFile(AFileName);
ADeStreamer.JSONToObject(AJSON.Text, AObject);
finally
AJSON.Free;
end;
finally
ADeStreamer.Free;
end;
end;DB
ну инструкция по использованию, если прописывать каки-то там пути, то какие именно и куда именно
не ну базовые вещи в работе ide нужно знать. не в каждой же либе буквари повторять :)
DB
вот примеров больше - то это да. собственно - я как раз там и дописал слегка
KB
да, просто это кагбэ общепринято, потому что способов установки или использования может быть несколько, так сказать, это правила хорошего тона :)
СИ
Короче, вот в Лазарусе так можно прочитать JSON настройки из файла в твой объект
procedure LoadFromJSON(AObject: TObject; const AFileName: String);
var
ADeStreamer: TJSONDeStreamer;
AJSON: TStringList;
begin
if not FileExists(AFileName) then
Exit;
ADeStreamer:=TJSONDeStreamer.Create(nil);
try
AJSON:=TStringList.Create;
try
AJSON.LoadFromFile(AFileName);
ADeStreamer.JSONToObject(AJSON.Text, AObject);
finally
AJSON.Free;
end;
finally
ADeStreamer.Free;
end;
end;мне их сперва надо записать в файл :)
RS
мне их сперва надо записать в файл :)
Намек понял... )
procedure SaveToJSON(AObject: TObject; const AFileName: String);
var
AStreamer: TJSONStreamer;
AJSON: TStringList;
AJSONObject: TJSONObject;
begin
AStreamer:=TJSONStreamer.Create(nil);
AJSON:=TStringList.Create;
try
AJSONObject:=AStreamer.ObjectToJSON(AObject);
try
AJSON.Text:=AJSONObject.FormatJSON();
AJSON.SaveToFile(AFileName);
finally
AJSONObject.Free;
end;
finally
AJSON.Free;
AStreamer.Free;
end;
end;RS
Намек понял... )
procedure SaveToJSON(AObject: TObject; const AFileName: String);
var
AStreamer: TJSONStreamer;
AJSON: TStringList;
AJSONObject: TJSONObject;
begin
AStreamer:=TJSONStreamer.Create(nil);
AJSON:=TStringList.Create;
try
AJSONObject:=AStreamer.ObjectToJSON(AObject);
try
AJSON.Text:=AJSONObject.FormatJSON();
AJSON.SaveToFile(AFileName);
finally
AJSONObject.Free;
end;
finally
AJSON.Free;
AStreamer.Free;
end;
end;Я тут похоже с try переборщил - можно уменьшить и будет лаконичней выглядеть
СИ
да выглядит как абракатабра кроме begin-ов и глазу зацепиться незачто :)
RS
да выглядит как абракатабра кроме begin-ов и глазу зацепиться незачто :)
Процедура простая на самом деле. Без всяких сторонних компонентов. Только
fpjsonrtti в uses добавить не забытьDB
да, просто это кагбэ общепринято, потому что способов установки или использования может быть несколько, так сказать, это правила хорошего тона :)
а какие варианты? :) только путь прописать если нужно. больше ничего не сделать никак
Дt
с супер обжект можно создать любой класс, напихать в него значений, затем .asjson и сохранить
Дt
2 строчки.
Дt
procedure TOptions.SaveToFile;
var ss:TStringStream; test:TStringStream;
tm:string;
begin
tm:=Self.asJson;
ss:=TStringStream.Create(XorEncode(tm,xork));
try
ss.SaveToFile('init.dll');
finally
ss.free;
end;
end;RS
с супер обжект можно создать любой класс, напихать в него значений, затем .asjson и сохранить
А в приведенной процедуре по сути просто тупо сохраняется в файл. Остальное обвески
СИ
Процедура простая на самом деле. Без всяких сторонних компонентов. Только
fpjsonrtti в uses добавить не забыть
что-то не так прописал?