Советы по Delphi

         

Матрица на основе TEdit


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

Допустим, если они имеют имена с Edit1 по Edit 9, то можно попробовать сделать так:

vareds: array[1..3,1..3] of TEdit;ix: integer;ed: TEdit;
for ix := 0 to 8 do begined := FindComponent('Edit'+IntToStr(ix+1)) as TEdit;if ed <> nil then eds[ix div 3 + 1,ix mod 3 + 1] := ed;end;

Затем, допустим, вам захотелось скопировать текст из строки 1 в строку 2:

for ix := 1 to 3 doeds[2,ix].Text := eds[1,ix].Text;

- Mike Orriss [000994]



Содержание раздела