function FillStrings(mStrings:Array of TStrings):Boolean;
var
i:integer;
begin
Result:=False;
with TQUERY.Create(nil) do
try
if Active then Close;
SQL.Text:='select NVL(field1,'NULL'),NVL(field2,'NULL'),... from table1';
Open;
First;
while not eof do
begin
for i:=0 to high(mStrings) do
mStrings[i].add(Fields[i].AsString);
//若原类型不是字符型会自动转化为字符型,但“空”的数字型转化时会出异常
//因此应在SQL语句中对空值作处理(转化为字符串“NULL”)。
Next;
end;
Close;
Finally
Free;
end;
end;