From ea89447fa625fe62d28d0fe33a5bb31a8751187e Mon Sep 17 00:00:00 2001 From: rosenfield Date: Fri, 5 Oct 2007 18:03:11 +0000 Subject: [PATCH] Avoid an access violation within a for loop which got run once even when there were 0 columns in a result. --- components/zeosdbo/src/component/ZAbstractRODataset.pas | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/components/zeosdbo/src/component/ZAbstractRODataset.pas b/components/zeosdbo/src/component/ZAbstractRODataset.pas index 656be968..6252e5ec 100644 --- a/components/zeosdbo/src/component/ZAbstractRODataset.pas +++ b/components/zeosdbo/src/component/ZAbstractRODataset.pas @@ -1428,7 +1428,7 @@ begin with ResultSet.GetMetadata do begin - for I := 1 to GetColumnCount do + if GetColumnCount > 0 then for I := 1 to GetColumnCount do begin FieldType := ConvertDbcToDatasetType(GetColumnType(I));