Показать сообщение отдельно
  #16  
Старый 25.01.2010, 17:03
Аватар для Konrad
Konrad Konrad вне форума
Эксперт
 
Регистрация: 19.03.2009
Сообщения: 1,261
Репутация: 45834
По умолчанию

Скажу одно: жесть прога.

Код:
state:array[1..100, 1..100] of string;
- зачем? когда массив 4х4? Зачем текстовые строки?

Код:
s:=copy(str1, 1, 1);
А это к чему?

Код:
block:='';
      for a:=1 to 4 do
        for b:=1 to 4 do
          block:=block+state[a,b];
      memo1.Lines.Add(block);
А если символы будут непечатные?
Ответить с цитированием