MySQL und Zeilennummer im Select

[Sharky]

Hai ihr,

da es bei den Zeos wohl nicht so einfach geht um einen SQL-Batch zu verarbeiten (der ZSQLProzessor ist wohl nicht für SELECTs geeignet) habe ich mir eine "etwas andere" Lösung überlegt

Delphi-Quellcode:

procedure TDemoForm.Button1Click(Sender: TObject);
begin
  with Query1 do
  begin
    SQL.Text := 'SELECT *, null as position  FROM test WHERE id > 1';
    Open;
  end;
end;

procedure TDemoForm.Query1AfterOpen(DataSet: TDataSet);
begin
  with DataSet.FieldByName('position') do
  begin
    OnGetText := Query1recnoGetText;
  end;
end;

procedure TDemoForm.Query1recnoGetText(Sender: TField; var Text: string;
  DisplayText: Boolean);
begin
  if (sender.FieldName = 'position') then
    Text := IntToStr(sender.DataSet.RecNo);
end;

Ich habe in meiner SELECT-Anweisung ein "Dummyfeld" dem ich einfach ein OnGetText zuweise und dieses dann mit der Recordposition befülle. Nicht schön aber selten