چطور می توانیم لیست فیلدها در TfrxDBDataset بصورت Runtime بروز رسانی کنیم؟

[mahdy.asia]

با فست ریپورت و دلفی 2010 کار می کنم. کد زیر را نوشتم و انتظار دارم که FieldAliases بروز شود اما این کار اتفاق نمی افتد، از راهنمایی شما دوستان متشکرم


frxdbdataset1.Close;
frxdbdataset1.FieldAliases.Clear;
frxdbdataset1.Open ;
frxdbdataset1.FieldAliases.SaveToFile('d:\test.txt ');

[mahdy.asia]

مشکلم بر طرف شد


procedure TForm1.FillDSaliases(RDS : TfrxDBDataset);var
i: Integer;
l1, l2: TStrings;
begin
l1 := TStringList.Create;
l2 := TStringList.Create;
l1.Assign(RDS.FieldAliases);
try
{ clear aliases to get real field names }
RDS.FieldAliases.Clear;
RDS.GetFieldList(l2);
finally
{ set aliases back }
RDS.FieldAliases.Assign(l1);
end;


for i := 0 to l2.Count - 1 do
if l1.IndexOfName(l2[i]) = -1 then
l2[i] := l2[i] + '=' + l2[i]
else
l2[i] := l2[i] + '=' + l1.Values[l2[i]];
ShowMessage(l2.Text);
l1.Free;
l2.Free;
end;