Stringlist an Dataset anbinden

[cytrinox]

Hi,

ich suche nach einer Möglichkeit eine Stringlist an ein Dataset zu hängen (jaja, eklig - muss aber sein :p )

In der Stringlist stehen jede Menge Strings die in einem Dataset über eine Spalte abrufbar sein sollen,
also in etwa so wenn ich eine tabelle hätte mit einem Feld vom Typ String.

Dass ich mit Delphi erst seit ein paar Tagen "richtig" arbeite ist mir dabei auch keine große Hilfe

Da ich aber recht lange in C++ programmiert habe bin ich mal so an das Problem gegangen:

Abgeleitete Klasse von TDataset erstellen
Abgeleitete Klasse von TField erstellen

und dann die abstract Methoden jeweils implementieren sowie noch ein paar Methoden anpassen (first(), last(), next() usw.)

Das ganze Dataset wird dann an einen Crystal Reports Viewer angebunden der die Daten ausspucken soll. Es ist nur so dass ich jetzt seit ein paar Tagen an dem Problem hänge und alles was in in den Viewer reinbekomme ist der letzte Datensatz, also das letzte Item in der Stringlist.


Hier mal die Funktion getRecord(), ich vermute mal dass da ein Fehler drin ist, aber auf alle Fälle erklärt der Code recht gut was ich eigentlich versuche zu machen

Delphi-Quellcode:

function StringListDataSet.GetRecord;
begin
     result := grOK;
     case GetMode of
     gmNext:
            if self.stringIndex < self.strlist.count - 1 then
            begin
               Inc(self.stringIndex);
               Buffer := PChar(Self.strlist[self.stringIndex]);
               self.field.SetValue(self.strlist[Self.stringIndex]);
               result := grOK;
            end
            else
                result := grEOF;

     gmPrior:
            if self.stringIndex > 0 then
            begin
               Dec(self.stringIndex);
               Buffer := PChar(Self.strlist[self.stringIndex]);
               self.field.SetValue(self.strlist[Self.stringIndex]);
               result := grOK;
            end
            else
                result := grBOF;
     gmCurrent:
               begin
               Buffer := PChar(Self.strlist[self.stringIndex]);
               self.field.SetValue(self.strlist[Self.stringIndex])
               end
     end;
     ShowMessage('GetRecord called... ' + IntToStr(self.stringIndex));
end;

als Hinweis noch: setValue speichert einfach nur einen string in meiner abgeleiteten TField Klasse welchen man über FieldByName('TEMP').value z.B. wieder auslesen kann.


Gibts da vielleicht einen einfacheren Weg sowas umzusetzen? Wenn nicht schreib ich gern mal das was ich bisher hab in ein kleines Demoprogramm (bringt vermutlich aber nur den wenigsten etwas da Crystal Reports benötigt wird).

Schonmal Danke für die Hilfe

[shmia]

Zitat von cytrinox:

Gibts da vielleicht einen einfacheren Weg sowas umzusetzen?

Ja, es gibt sog. Memory-Datasets. Diese Komponenten sind von TDataset abgeleitet und speichern ihre Daten
(z.Teil komprimiert) im RAM.
http://www.torry.net/pages.php?id=572

[cytrinox]

prima, kostet zwar bissl was, funktioniert aber im gegensatz zu meinem krempel

[shmia]

Zitat von cytrinox:

prima, kostet zwar bissl was, funktioniert aber im gegensatz zu meinem krempel

Nicht unbedingt. TkbmMem Table ist frei für nichtkommerzielle Programme.
In der JVCL findet sich ebenfalls ein Memory-Dataset; ebenso in der (veralteten) RX-Lib 2.75.
Diese können IMHO auch in kommerziellen Programmen verwendet werden.