Einzelnen Beitrag anzeigen

Benutzerbild von Sharky
Sharky

Registriert seit: 29. Mai 2002
Ort: Frankfurt
8.251 Beiträge
 
Delphi 2006 Professional
 
#4

Re: MySQL: Seitenweise blättern

  Alt 19. Apr 2004, 10:47
Hai Seven,

Du musst mit einer Variablen arbeiten und die dann pro Buttonklick um 30 erhöhen:

Delphi-Quellcode:
var
  i_offset : Integer;

procedure TForm1.FormCreate(Sender: TObject);
begin
  i_offset := 0;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ZQuery1.Close;
  ZQuery1.SQL.Text := 'SELECT * FROM tabelle LIMIT :offset,30';
  ZQuery1.ParamByName('offset').AsInteger := i_offset;
  ZQuery1.Open;
  Inc (i_offset,30);
end;
Stephan B.
"Lasst den Gänsen ihre Füßchen"
  Mit Zitat antworten Zitat