Показать сообщение отдельно
  #3  
Старый 25.12.2008, 16:55
san-46 san-46 вне форума
Активный
 
Регистрация: 25.04.2008
Сообщения: 383
Репутация: 33
По умолчанию

Совершенно точно. Вот работающий пример:
Код:
procedure TForm1.Button4Click(Sender: TObject);
const
  M = 4; N = 4;
  Matrix : array[1..M, 1..N] of Integer =
    ((1,2,3,4), (4,5,6,7), (8,9,10,11), (12,13,14,15));
var
  S : String;
  I, J : Integer;
begin
  S := '';
  for I := 1 to M do
    if I mod 2 = 1 then
      for J := 1 to N do
        S := S + IntToStr(Matrix[I, J])+','
    else
      for J := N downto 1 do
        S := S + IntToStr(Matrix[I, J])+',';
  Edit1.Text := S;
end;
__________________
Не забывайте делать резервные копии
Ответить с цитированием