| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Поля в БД [D5, dBase, FoxPro]
FrozenHeart © (2003-01-23 00:43:00)Помогите пожалста!
Как в stringGrid"e вывести значения полей из *.dbf, с учетом того что количество полей меняется а имена отличаются на 1 символ
(например: поля - Field_1, Field_2, Field_3...) очень нада!!!
MsGuns (2003-01-23 10:52:00) [1]>Anatoly Podgoretsky © (23.01.03 09:39)
>Да и не вздумай слушать BorisUK © (23.01.03 06:28), там бред
Это почему же бред ? В смысле RecordCount - бред ? Для компонент BDE и dBase вовсе нет. А то, что грид будет кривоватым (в смысле не влазить в отведенный ему ректангел и появятсяполосы прокрутки, да и ширина колонок буде непонятно какой - так ведь и задача стоит косая, не так ли ?
Ну и, конечно, надо все это барахло (после Table1.First)запихнуть в цикл While not Table1.Eof do 8))
Anatoly Podgoretsky (2003-01-23 09:39:00) [2]FrozenHeart (23.01.03 00:43)
Да и не вздумай слушать BorisUK © (23.01.03 06:28), там бред
Vovchik_A (2003-01-23 09:23:00) [3]2FrozenHear Почитай хелп на TTable.FieldDefs
BorisUK (2003-01-23 06:28:00) [4]На фига тебе ваще имена полей?
делай
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;
| |
