Über Timer Stringlist 'weiterschalten'

[Real_Thunder]

So ich habe mal die Record und Timer Variante gemacht...

Einfach auf Daten Holen klicken
zum testen habe Ich per Schleife 200 Datensätze erstellt.

Edit:
Um die Daten aktuell zu halten, kannst du anstatt die die aktuelle seite auf 0 zu sätzen einfach die Procedure getdata wieder aufrufen.


MfG Real Thunder

[Svenkan]

Danke!
Ich werdes mir mal direkt anschauen!

/edit: Wie kann ich denn in einem StringGrid die obere Zeile beschriften?

[Real_Thunder]

oberste zeile
stringgrid1.cells[1,0]:=Text; die linke spalte ist string wert da ein Stringgrid ja an sich strings nimmt

also um in einem stringgrid eien strin in ein feld einzutragen machst du es es
stringgrid1.cells[Spalte,Zeile]:= DeinString;
die oberste zeile zeile kannste du im oncreate event der form befüllen, da sich diese ja nicht ändert.

[Svenkan]

Ah!
Dankeschön für das tolle Beispiel!
Hat mir wirklich sehr weitergeholfen!

[Svenkan]

Obwohl, ich hätte doch noch eine Frage:
es wird immer nur der allererste Eintrag aus der Tabelle in alle Zeilen des Grids geschrieben.

Delphi-Quellcode:

 for count := 0 to Pred(Query1.RecordCount) do begin
  for y:=1 to Pred(Query1.RecordCount) do begin
    daten[y-1].klasse:=Query1.FieldByName('KLASSEN').AsString;
    daten[y-1].stunde:=Query1.FieldByName('S').AsInteger;
    daten[y-1].fuer:=Query1.FieldByName('FUER').AsString;
    daten[y-1].wer:=Query1.FieldByName('WER').AsString;
    daten[y-1].fach:=Query1.FieldByName('FACH').AsString;
    daten[y-1].raum:=Query1.FieldByName('RAUM').AsString;
    daten[y-1].bemerkung:=Query1.FieldByName('BEMER_SCH').AsString;
  end;
 end;

Was müsste ich daran ändern, damit es wieder stimmt?

[Sidorion]

'Query1.next', wobei ich mich frage, wozu Du die äußere Schleife brauchst. Falls es dazu ist, die Daten mehrfach aus der Query zu lesen, dann solltest Du vor der inneren Schleife 'Query1.first' ausführen.

[Svenkan]

Ah! Wieder das next >.<
Ok..thx
Mhm..stimmt. Die eine Schleife ist völlig unnötig.

[Svenkan]

Mir fällt grade auf..
Es wird immer ein Eintrag zu wenig ausgegeben. Die letzte Tablerow fehlt irgendwie immer (also bei 5 mög. Zeilen werden nur die ersten 4 ausgegeben).

[DeddyH]

for y:=1 to Pred(Query1.RecordCount) do begin Wieso 1 und nicht 0?