Следующая статья: Исправление загрузки текста RTF через поток.
Как получить информацию о таблице?
Нужно воспользоваться свойством FieldDefs. В следующем примере список полей и их размеры передаются компоненту TMemo (расположенному на форме) с именем Memo1:
procedure TForm1.ShowFields;
var i: Word;
begin
Memo1.Lines.Clear;
Table1.FieldDefs.Update; { должно быть вызвано, если Table1 не активна }
for i:=0 to Table1.FieldDefs.Count - 1 do with Table1.FieldDefs.Items[i] do Memo1.Lines.Add(Name+' -'+IntToStr(Size));
end;
Если просто нужны имена полей (FieldNames), то обратитесь к методам TTable – GetFieldNames, GetIndexNames для получения имен индексов:
var FldNames, IdxNames: TStringList beginFldNames:=TStringList.Create;
IdxNames:=TStringList.Create;
if Table1.State=dsInactive then Table1.Open;
Table1.GetFieldNames(FldNames);
Table1.GetIndexNames(IdxNames);
FldNames.Free; {освобождаем stringlist}
IdxNames.Free;
end;
Для получения информации об определенном поле следует обратиться к FieldDef.