Не просто тетрис

[Сергей37912]

Мля... На курсовую надо написать тетрис... Да не просто классический, а из букв... Вот мозг ломаю, что да как сделать...

[Rin]

пусть у тебя падают edit`ы ( по таймеру меняй их свойство Top и если нажата стрелка вправо\влево , то и свойство Left) и присваивай им рандомно буквы, то есть edit1.Text:=chr(65+random(30))
и запоминай в определённый массив запоминай координаты этих эдитов.так же отдельную процедуру создай для проверки одинаковых букв по вертикали и горизонтали.
создай такую переменную
tetris: record
edits:array of Tedit;
bykva:char;
koordinatX,koordinatY: integer;
end;

и переменную n: integer=0; счётчик edit`ов

для каждого едита нужно будет писать
n:=n+1;
setLength(tetris.edits,n);
tetris.edits[i-1]:= Tedit.Create;
потом их Top, Left и Visible заполнить нужно и передвигать пока она не дошла либо до конца формы, либо до кокаого то едита.
во ти всё.

даже лучше label