From c265dd2f945e5ad779e356afa256d4c12e3a8418 Mon Sep 17 00:00:00 2001
From: "rosenfield.albert"
 <rosenfield.albert@40cadd2d-89a2-4482-8f20-0232d845d7e3>
Date: Fri, 13 Jun 2008 15:22:02 +0000
Subject: [PATCH] Workaround: make Zeos work with less imaginative column
 names.  Fixes issue #545.

Extremely imaginative names can still fail (think ZEOS_RESERVED etc).
---
 components/zeosdbo/src/component/ZAbstractRODataset.pas | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/components/zeosdbo/src/component/ZAbstractRODataset.pas b/components/zeosdbo/src/component/ZAbstractRODataset.pas
index 9f52ad15..7a5e2769 100644
--- a/components/zeosdbo/src/component/ZAbstractRODataset.pas
+++ b/components/zeosdbo/src/component/ZAbstractRODataset.pas
@@ -1459,6 +1459,11 @@ begin
           FName := Format('%s_%d', [FieldName, J]);
         end;
 
+        // Workaround for bug in DB.pas:
+        // Don't crash when a field name like 'FIELD2' is used.
+        // Test case: http://code.google.com/p/heidisql/issues/detail?id=545#c3
+        FieldDefs.DataSet.Name := 'ZEOS_RESERVED';
+
         with TFieldDef.Create(FieldDefs, FName, FieldType,
           Size, False, I) do
         begin