Поля в БД

← →
FrozenHeart (2003-01-23 00:43) [0]

Помогите пожалста!
Как в stringGrid"e вывести значения полей из *.dbf, с учетом того что количество полей меняется а имена отличаются на 1 символ
(например: поля - Field_1, Field_2, Field_3...) очень нада!!!

← →
BorisUK (2003-01-23 06:28) [1]

На фига тебе ваще имена полей?
делай
procedure TForm1.BitBtn1Click(Sender: TObject);
var
i,j : Integer;
begin
SG.ColCount:=Table1.Fields.Count+1;
SG.RowCount:=Table1.RecordCount+1;
Table1.First;
for i:=1 to Table1.RecordCount+1 do
begin
for j:=1 to Table1.Fields.Count-1 do
SG.Cells[j,i]:=Table1.Fields[j-1].AsString;
Table1.Next;
end;
end;

← →
Vovchik_A (2003-01-23 09:23) [2]

2FrozenHear Почитай хелп на TTable.FieldDefs

← →
Anatoly Podgoretsky (2003-01-23 09:39) [3]

← →
MsGuns (2003-01-23 10:52) [4]

>Anatoly Podgoretsky © (23.01.03 09:39)
>Да и не вздумай слушать BorisUK © (23.01.03 06:28), там бред

Это почему же бред ? В смысле RecordCount - бред ? Для компонент BDE и dBase вовсе нет. А то, что грид будет кривоватым (в смысле не влазить в отведенный ему ректангел и появятсяполосы прокрутки, да и ширина колонок буде непонятно какой - так ведь и задача стоит косая, не так ли ?

Ну и, конечно, надо все это барахло (после Table1.First)запихнуть в цикл While not Table1.Eof do 8))

Поля в БД Найти похожие ветки