powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Delphi [игнор отключен] [закрыт для гостей] / библиотека для сохранения/восстановления свойств компонент
19 сообщений из 119, страница 5 из 5
библиотека для сохранения/восстановления свойств компонент
    #40022835
alekcvp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
...
...
Рейтинг: 0 / 0
библиотека для сохранения/восстановления свойств компонент
    #40022838
alekcvp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
X11
Спасибо!!!!!

А как сделать итерации?
Примеры посмотрел, но все они привязываются к имени объекта:
Код: pascal
1.
2.
for AMember in X.A['adresses'] do
  begin



Я ведь не знаю, какие там имена. Наоборот - мне имена нужно получить.

А если сделать просто:
Код: pascal
1.
2.
3.
for AMember in X do
begin
  ...


?
...
Рейтинг: 0 / 0
библиотека для сохранения/восстановления свойств компонент
    #40022841
Фотография X11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
procedure TForm1.Button1Click(Sender: TObject);
const sJSon = '{"ID":[0,55,true,false], "ID2":[1,60,false,false], "ID3":[2,177,false,false]}';
var
  Arr: ISuperArray;
  myJSON: ISuperObject;
  Enum:  TSuperEnumerator<IJSONPair>;
  JSONPair: IJSONPair;

  OMember: IMember;
  i, n: integer;
begin
  myJSON := SO(sJSon);

  if myJSON.Count > 0 then
  begin
    for I := 0 to pred(myJSON.Count) do
    begin

      for OMember in myJSON do
        if OMember.DataType = dtArray then
          Memo1.Lines.Add(OMember.AsString); // а здесь как

    end;
  end;
end;



ошибок нет, но и в Memo1 строку пустые добавляются, т.е. OMember.AsString возвращает пустоту
...
Рейтинг: 0 / 0
библиотека для сохранения/восстановления свойств компонент
    #40022842
Фотография X11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
вроде начинает доходить

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
procedure TForm1.Button1Click(Sender: TObject);
const sJSon = '{"ID":[0,55,true,false], "ID2":[1,60,false,false], "ID3":[2,177,false,false]}';
var
  Arr: ISuperArray;
  myJSON: ISuperObject;
  OMember: IMember;
  i: integer;
begin
  myJSON := SO(sJSon);

  if myJSON.Count > 0 then
  begin

      for OMember in myJSON do
        if OMember.DataType = dtArray then
        begin
          arr := OMember.AsArray;
          Memo1.Lines.Add(IntToStr(arr.i[0]));
          Memo1.Lines.Add(IntToStr(arr.i[1]));
          Memo1.Lines.Add(BoolToStr(arr.B[2]));
          Memo1.Lines.Add(BoolToStr(arr.B[3]));
          Memo1.Lines.Add('---');
        end;


  end;

end;
...
Рейтинг: 0 / 0
библиотека для сохранения/восстановления свойств компонент
    #40022867
alekcvp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
X11,

Код: pascal
1.
2.
3.
if myJSON.Count > 0 then
  begin
      for OMember in myJSON do


По-моему if тут лишний.
...
Рейтинг: 0 / 0
библиотека для сохранения/восстановления свойств компонент
    #40023022
Фотография X11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
alekcvp, да
...
Рейтинг: 0 / 0
библиотека для сохранения/восстановления свойств компонент
    #40023023
Фотография X11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
кстати, x-superobject не развивается :(
...
Рейтинг: 0 / 0
библиотека для сохранения/восстановления свойств компонент
    #40023025
alekcvp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
X11
кстати, x-superobject не развивается :(

Ну в дельфи вон JSON развивается. Сильно тебе это помогло?
...
Рейтинг: 0 / 0
библиотека для сохранения/восстановления свойств компонент
    #40023026
Фотография X11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Такое впечатление, что в Idera для разработки понанимали каких криворуких типа меня
...
Рейтинг: 0 / 0
библиотека для сохранения/восстановления свойств компонент
    #40023059
Фотография X11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А как у XSO проверить наличие того или иного элемента?

Есть какой-то непонятный метод check(), на вход нужно подавать какую-то строку Expr?
это оно?
как им пользоваться?
...
Рейтинг: 0 / 0
библиотека для сохранения/восстановления свойств компонент
    #40023077
ъъъъъ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
X11,

ну ты совсем уже забронзовел, в исходники не заглянуть? Там всего-то две строчки.
...
Рейтинг: 0 / 0
библиотека для сохранения/восстановления свойств компонент
    #40023121
Фотография X11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
конечно заглянул, но не понял
...
Рейтинг: 0 / 0
библиотека для сохранения/восстановления свойств компонент
    #40023132
ъъъъъ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
X11,

валидация json - строки.
...
Рейтинг: 0 / 0
библиотека для сохранения/восстановления свойств компонент
    #40023136
Фотография X11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
значит это не то
...
Рейтинг: 0 / 0
библиотека для сохранения/восстановления свойств компонент
    #40029308
alekcvp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Кстати, не помню советовали тут или нет: ковырял сейчас Turbopack Orpheus - в нём есть такая хрень.
...
Рейтинг: 0 / 0
библиотека для сохранения/восстановления свойств компонент
    #40029309
Фотография X11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Но там устанавливается около 120 компонент....
...
Рейтинг: 0 / 0
библиотека для сохранения/восстановления свойств компонент
    #40029314
Фотография defecator
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
X11
Но там устанавливается около 120 компонент....

нет проблемы выкусить только то, что нужно
...
Рейтинг: 0 / 0
библиотека для сохранения/восстановления свойств компонент
    #40029336
rgreat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
X11
А как у XSO проверить наличие того или иного элемента?
Тупо проверяй значение на <>null.
...
Рейтинг: 0 / 0
библиотека для сохранения/восстановления свойств компонент
    #40029530
Dm_Ufa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
а если всю форму хранить? там все намного проще
...
Рейтинг: 0 / 0
19 сообщений из 119, страница 5 из 5
Форумы / Delphi [игнор отключен] [закрыт для гостей] / библиотека для сохранения/восстановления свойств компонент
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]