|
Тема |
Опит за още малко помощ [re: bavnia] |
|
Автор |
VladoVasilev (минаващ) |
|
Публикувано | 18.08.05 14:47 |
|
|
Това с TEDIT-ите може да стане така: декларираш си в класа на формата един array of TEDIT:
TForm1 = Class(TForm)
... //deklaracii na razni obekti - TEDIT, DATASOURCE....
arrEdits : array of edit; //tova ot tebe
end;
var Form1 : TForm1;
implementation
procedure FormCreate(Sender : TObject);
var i : integer;
begin
SetLength(arrEdits, MyDataSet.recordCount-1);
for i := 1 to MyDataSet.recordCount do
begin
MyDataSet.RecNo := i;
arrEdits[i-1] := TEdit.Create(Self);
arrEdits[i-1].Name := 'EDIT'+inttostr(i);
arrEdits[i-1].Left := 5;
arrEdits[i-1].Top := 30*i+5; //za da se pozicionirat edin pod drug...
arrEdits[i-1].Text := MyDataSet.FieldByName('NESHTO_SI').asString;
end;
end;
Имай впредвид, че в даден момент edit-ите ще станат много и няма да се съберат в/у формата - ако има такава възможност, може да ги разположиш в/у един ScrollBox. Освен това, ако случайно ползваш IBEXPRESS-компоненти (от таб-а с компоненти INTERBASE) MyDataSet.recordCount може да не върне броя записи - там има малък бъг, по-добре в този случай използвай "while not MyDataSet.Eof do....", както беше написано по-горе по темата..
Дано съм помогнал!!!
|
| |
|
|
|