Satır ve sutün değişimi

[ifthen]

Alanları program içerisinde eklenen bir tablom var. Bu tablodaki herhangi bir kaydı bir DBGrid içerisinde sütunlara yerleştrebilirmiyim. Quntum grid veya raize de bu özellikler var mı?
Yardımlarınız için şimdiden teşekkürler. İyi günler...

[tuanna]

soru açık değil ama tabloında varsa gösteriri.....

[ulu coder]

Kardeş şöyle bi şey yaptım oldu.

Kod: Tümünü seç

var
  i:integer;
begin
  DBGrid1.Columns.Clear;
  For i:=0 to Table1.FieldCount-1 Do 
  begin
    DBGrid1.Columns.Add;
    DBGrid1.Columns[i].Field:=Table1.FieldList.Fields[i];
  end;
end;

[ulu coder]

Daha mantıklısı da var:
Filed'ı ekledikten sonra hemen altına şunu yazmak;

Kod: Tümünü seç

DBGrid1.Columns.Add;
DBGrid1.Columns[Table1.Fields.Count-1].Field:=Table1.FieldList.Fields[Table1.Fields.Count-1];

Hepsini silip yeniden oluşturmaya ne gerek var di mi?

Kolay gelsin.

[ifthen]

Program içerisinde tablomda 10 alan oluşmuşsa bu alan adları DBgrid in birinci kolonununa eklenecek. Dolayısıyla dbgridde 10 kayıt olmuş olacak.

Table1 alanları

Alan1 Alan2 Alan3 Alan4 Alan5
20 5 4 30 3

ise

DBgridde

Column[0] Column[1]
Alan1 20
Alan2 5
Alan3 4
Alan4 30
Alan5 3

şeklinde olacak

Yardımlarınız ve cevaplarınız için teşekkürler...

[ulu coder]

Yanlış anlamışım özür dilerim.
DBGrid'de nasıl yapılır bilmiyorum. Fakat StringGrid için:

Kod: Tümünü seç

var
  i:integer;
begin
  StringGrid1.RowCount:=Table1.FieldCount+1;
  StringGrid1.Cells[0,0]:='Alan';
  StringGrid1.Cells[1,0]:='Değer';

  For i:=1 To Table1.FieldCount Do
  begin
     StringGrid1.Cells[0,i]:=Table1.Fields.Fields[i-1].FieldName;
     StringGrid1.Cells[1,i]:=Table1.Fields[i-1].AsString;
  end;
end;