Hi,
I'm desperately trying to get the entire record Nr. from a data set:
function TForm1.DataRowToString(const aDataset: TDataSet; aRecNo: Integer): String;
var
i: Integer;
begin
aDataset.RecNo := aRecNo;
Result := '';
for i := 0 to aDataset.FieldCount - 1 do
Result := Result + aDataset.Fields.AsString + ' ';
Result := Trim(Result);
end;
procedure TForm1.Button9Click(Sender: TObject);
var i :Integer;
row : String;
begin
for i:=0 to DataSource1.DataSet.RecordCount -1 do
row:= DataRowToString(DataSource1.DataSet, i);
Memo1.Lines.Add(row);
end;
Unfortunately I'm receiving the following error message:
CSVDataset1 : Could not find the requested record.
Could someone help explaining with an example how to get a specific record by index ?
Thanks.
Xaver.