aus tdatasource Data lesen

[sniper_w]

Wie kann man aus TDataSource per Code alle Daten auslesen und z.B. in ein Memo ausgeben OHNE dass man die methoden First/Next benutzt ? Also die ganze Ergebnissmenge auslesen.

[sx2008]

Das geht nicht !!!
Sowieso ist TDataSource nur ein verbindendes Hilfsobjekt um datensensitive Steuerelemente anzubinden.
Über [TDataSource].DataSet kommt man an das TDataSet-Objekt; hier spielt die Musik.

Delphi-Quellcode:

procedure TForm1.Datasource2Memo(ADatasource:TDataset; Amemo:TMemo);
var
  ds : TDataset;
begin
  ds := ADatasource.Dataset;
  ds.First;
  while not ds.Eof do
  begin
    Amemo.lines.Add(ds['Feld1'] + #9 {<= Tab} + ds['Feld2']);
    ds.next;
  end

;

[Der.Kaktus]

Zitat von sniper_w:

Wie kann man aus TDataSource per Code alle Daten auslesen und z.B. in ein Memo ausgeben OHNE dass man die methoden First/Next benutzt ? Also die ganze Ergebnissmenge auslesen.

@sx2008 Er schrieb OHNE First/Next

[sx2008]

Zitat von Der.Kaktus:

Zitat von sniper_w:

Wie kann man aus TDataSource per Code alle Daten auslesen und z.B. in ein Memo ausgeben OHNE dass man die methoden First/Next benutzt ? Also die ganze Ergebnissmenge auslesen.

@sx2008 Er schrieb OHNE First/Next

Und ich schrieb "das geht nicht" DREI AUSRUFEZEICHEN.

[Der.Kaktus]

@sx2008 ups ...OK... Schuldigung *g*

[sniper_w]

Zitat von sx2008:

Das geht nicht !!!

Wenn du 100% sicher bist, dann bitte noch einmal bestätigen. Irgendwie muss sich die DBGrid auch die Daten holen, nur ich habe jetzt hier nicht die Sources.
Danke auf jedem Fall.

[Hansa]

Die verwenden "DataLinks". Nachzulesen bei Marco Cantu oder in DBGrids.pas.

[sx2008]

Zitat von sniper_w:

irgendwie muss sich die DBGrid auch die Daten holen, nur ich habe jetzt hier nicht die Sources.

Das DBGrid versetzt das DataSet in einen speziellen Status, in dem keine OnScroll-Events ausgelöst werden. TDataset.State hat dann den Wert dsBlockRead.

Ausserdem merkt sich das DBGrid die aktuelle Position im Dataset (TBookmark).
Das Grid bewegt sich im Dataset über die Move() - Methode. Das ist aber nur ein kleine Erweiterung zu Prev() und Next() und im Grunde das Gleiche.
Hat das Grid seine Daten, wird auf den Bookmark gesprungen und TDataset.State wieder nach dsBrowse zurückgesetzt.

Wenn man mehrere/alle Records aus dem Dataset holen möchte, sollte man vorher [TDataset].DisableControls aufrufen und am Ende EnableControls.
Man könnte auch statt DisableControls das Property BlockReadSize auf einen positiven Wert setzen, aber das ist eher für Leute, die gerne experimentieren.

[sniper_w]

Das wollte ich wissen. Einfach danke.
Immernoch das beste Delphi-Forum !