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
