Forum: Programmieren allgemein
by mytbo,
21. Dez 2020
mORMot 1.18 ist von Delphi 7 bis Delphi 10.3.3 und FPC 3.2 freigegeben. Ich habe mein Beispiel jetzt mit Delphi 2007 und Delphi XE getestet. Es funktioniert! Delphi 2010 habe ich nicht installiert. Es sollte mich aber sehr wundern, wenn es nicht gehen würde.
Bis bald...
Thomas
Forum: Programmieren allgemein
by mytbo,
16. Dez 2020
Wenn du auch die Werte für das qualities Array benötigst, dann einfach das obere Schema für den Zugriff auf Arrays verwenden. Es ist immer die Wiederholung des gleichen Schemas.
Bis bald...
Thomas
Forum: Programmieren allgemein
by mytbo,
16. Dez 2020
Ich habe deinen Post mehrmals durchgelesen, aber so ganz genau weis ich immer noch nicht, welche Infos dir fehlen.
"channels" ist ein Array. Mit meinem Beispiel durchlaufe ich alle Objekte dieses Arrays. docChannels zeigt auf das Object, das mit dem Index nRun gerade im Array ausgewählt ist.
Hier noch mal ein Beispiel. Zur Sicherheit gebe den vollständigen Pfad für die JSON-Datei ein.
...
Forum: Programmieren allgemein
by mytbo,
16. Dez 2020
Ich habe das jetzt nur mal schnell überflogen. So sollte es aber funktionieren. Wenn du heute Abend (Nacht) noch ein Problem damit hast, sage einfach bescheid. Ich schaue mir das dann gerne mal an.
var
iRun, nRun: Integer;
doc: TDocVariantData;
docChannelGroup: PDocVariantData;
docChannels: PDocVariantData;
begin
doc.InitJSONFromFile('Channels_data.json',...
Forum: Programmieren allgemein
by mytbo,
15. Dez 2020
Macht im fertigen Programm ca. 280 MB aus. Dafür ist man in 10 Minuten fertig.
Bis bald...
Thomas
Forum: Programmieren allgemein
by mytbo,
15. Dez 2020
Ja! mORMot verwendet JSON sehr intensiv. DocVariants sind nur eine Variante mit JSON komfortabel zu arbeiten. Früher habe ich auch SuperObject verwendet. Seit es mORMot gibt, nie mehr etwas anderes.
Bis bald...
Thomas
Forum: Programmieren allgemein
by mytbo,
15. Dez 2020
Wenn du es mit mORMot machen willst, dann hier ein kleines Beispiel. Hilfe zum Thema DocVariants findest du hier.
Eine ausführliche Hilfe zu mORMot findest du hier: Hilfe. Weitere Informationen findest du hier: Download, Forum
var
iRun, nRun: Integer;
doc: TDocVariantData;
docChannels: PDocVariantData;
docPrograms: PDocVariantData;
begin
doc.InitJSONFromFile('EPG_data.json',...
Forum: Programmieren allgemein
by mytbo,
15. Dez 2020
Wäre es auch möglich, eine JSON-Datei mit Demodaten zur Verfügung zustellen?
Bis bald...
Thomas