Матрица на основе TEdit
|
Для продвижения своих многоплатформных решений, одна из компьютерных компаний решила создать свой формат HELP-файлов на базе ".RTF" (rich text format). Новый формат было решено назвать ".RTFM"
|
...массив ячеек TEdit будет просто замечательным, но я не могу
понять как мне их создавать и делать видимыми.
Допустим, если они имеют имена с Edit1 по Edit 9, то можно попробовать
сделать так:
var
eds: array[1..3,1..3] of TEdit;
ix: integer;
ed: TEdit;
begin
for ix := 0 to 8 do
begin
ed := FindComponent('Edit'+IntToStr(ix+1)) as TEdit;
if ed <> nil then
eds[ix div 3 + 1,ix mod 3 + 1] := ed;
end;
end;
|
Затем, допустим, вам захотелось скопировать текст из строки 1 в строку 2:
for ix := 1 to 3 do
eds[2,ix].Text := eds[1,ix].Text;
|
|
