Скачать: CL | DM;

DBGRID!   Найти похожие ветки 

← →
R@id   (2002-06-17 22:10) [0]

Помогите плиззз!! Я создала отдельно таблицу в FoxPro, с помощью мастера занесла ее в Form3. Вопрос заключается в том как вывести значения (типа Float) в таблицу BDGrid или может я чего-то не допонимаю, может просто в Table1 выводить.
Поля таблицы:
Table1Y: TFloatField;
Table1X1: TFloatField;
Table1X2: TFloatField;
Table1X3: TFloatField;
Table1X4: TFloatField;

procedure TForm1.N2Click(Sender: TObject);
var q,i,j:integer;
x1: array [1..5,1..21] of real;
begin
// вычисляется х1
.......
//Вывод в Form3.Table1
q:=Form3.Table1.FieldCount;
Form3.table1.first;
for i:=1 to q-1 do
for j:=1 to 21 do begin
Form3.table1.edit;
//Что здесь делать без понятия!
Form3.Table1Y.Text:=foattostr(x1[i,j]);
Form3.Table1.next;
Form3.table1.post;
end;
form3.show;
end;

---

← →
Anatoly Podgoretsky ©   (2002-06-17 22:17) [1]

Размести на форме 5 компонент TDbEdit и свяжи их с таблицей

---

← →
John Kayfolom ©   (2002-07-01 17:28) [2]

Form3.table1.edit;
//Что здесь делать без понятия!
// Form3.Table1Y.Text:=foattostr(x1[i,j]);
//----------------------------
//--- Видимо вот это тебе нужно
Form3.Table1.FieldByName("Y").asFloat:=foattostr(x1[i,j]);
//----------------------------
Form3.table1.post;
// Сначала Post, затем Next
Form3.Table1.next;

А лучше задачу целиком намыль - этот код если что и делает, то это науке неизвестно ;)

---

← →
ASM ©   (2002-07-01 23:31) [3]

>John Kayfolom
Form3.Table1.FieldByName("Y").asFloat:=foattostr(x1[i,j]); ????
тогда уж без asFloat:=FloatToStr(X1[i,j])
Form3.Table1.FieldByName("Y").asFloat:=(x1[i,j]);
Честно говоря я тоже ничего не понял.

---

← →
kaif ©   (2002-07-02 01:26) [4]

А в таблицу нужно добавлять строки или все время заменять те же самые?

---

← →
Леша   (2002-07-02 06:32) [5]

А что трудно сделать таблицу редактируемой. Связать для простоты с навигатором, и делай, что хочешь.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.009 c