AW: TAnsiStringList - Wie (einfach) ?
Das mit
type TAnsiStringList = Generics.Collections.TList<RawByteString> ? hab ich immer noch nicht verstanden ... Die Daten ziehe ich direkt aus dem Transportstrom, zerlege sie dann in (DVB-) System-, Netzwerk-, Service- und EPG(EIT)-Daten. Hier geht es im besondern um die EIT mit jeweils (reichlich) Text zu "Events" für 'jetzt, später, demnächst' (max. 14 Tage). Eine komplette 'Sammlung' von ca. 500 Programmen wird da schon recht umfangreich ... Wenn man vorhandenen Teletext dazu auch noch sammelt, wirds noch dicker. Ein (Short-)Event besteht aus aus 2 Strings mit je max. 256 Zeichen 8-Bit. Ein (Extended-)Event hate eine Item-Liste aus 2 Strings wie Short. Die Eintäge können sowohl als auch sein - ebenso kann die Liste 0 sein oder auch ellenlang. Deswegen hier (der Einfachheit halber) eine TStringList. Dazu gibt es noch einen String aus AnsiChar, dessen Länge theoretisch nicht begrenzt ist, prinzipiell aber aus einer Anzahl x-Strings mit max. 256 Zeichen besteht. Die 3 AnsiStrings mit der TStringList und ner Latte weiterer Daten stecken in einem Record. Im Moment handle ich das mittels casting so:
Delphi-Quellcode:
Und wieder zurück:
...
// write EE_item-List as ansistring ! n := EVRec.EE_item.Count; EVfsw.Write(n, 2); // write count of EE_item for ii := 1 to EVRec.EE_item.Count do // loop items (if any) begin sansi := ansistring(EVRec.EE_item[i-1]); EVfsw.Write(i, 2); // write number of item n := Length(sansi); EVfsw.Write(n, 2); // write length of EE_item if (n > 0) then EVfsw.Write(sansi[1], n); // write EE_item end; ...
Delphi-Quellcode:
EVfsr und EVfsw sind TFileStreams.
...
// read EE_item-List as ansistring ! inc(sizeread, EVfsr.Read(n, 2)); // read count of EE_item for ii := 1 to n do // loop items (if any) begin inc(sizeread, EVfsr.Read(nn, 2)); // read number of item // ... check if nn = ii ! inc(sizeread, EVfsr.Read(nn, 2)); // read length of EE_item SetLength(sansi, nn); if (nn > 0) then // read EE_item begin inc(sizeread, EVfsr.Read(sansi[1], nn)); EVrec.EE_item.Add(sansi); end; end; ... EVRec.EE_item ist die TStringListe. |
AW: TAnsiStringList - Wie (einfach) ?
Was gibts da nicht zu verstehen?
Deklarier halt EVRec.EE_item als TList<RawByteString> (oder AnsiString?) und fertig. |
AW: TAnsiStringList - Wie (einfach) ?
Wenn ich das so mache
Delphi-Quellcode:
bekomme ich diese Meldung:
TAnsiStringList = TList<RawByteString>;
Zitat:
|
AW: TAnsiStringList - Wie (einfach) ?
Deswegen hatte Redeemer z.B. Generics.Collections.TList<RawByteString> geschrieben was implizieren soll, dass man die Unit "Generics.Collections" einbinden muss.
|
AW: TAnsiStringList - Wie (einfach) ?
Zitat:
Delphi-Quellcode:
Es muss natürlich noch die Unit Generics.Collections eingebunden werden.
TAnsiStringList = Generics.Collections.TList<RawByteString>;
|
AW: TAnsiStringList - Wie (einfach) ?
Arrrrgh .... peinlich. :oops:
Abgeändert und kompiliert. Test wird etwas länger dauern. |
AW: TAnsiStringList - Wie (einfach) ?
Zitat:
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 23:37 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz