Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 16.10.2011, 01:12   #11
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

ОМГ.

1) Зачем Вам дополнительный динамический массив Z ?!
2) Кто Вас учил так работать с динамическим массивом в Delphi??!!!! (см. SetLength()) - повторю - здесь он вообще не нужен!


правильное решение смотри пост #6 (c) phomm
Serge_Bliznykov вне форума Ответить с цитированием
Старый 16.10.2011, 11:53   #12
Язь
 
Регистрация: 11.10.2011
Сообщений: 7
По умолчанию

Не я ставил условия задачи. SetLength, кстати, тоже не приняли у меня.
И да, я прекрасно понимаю, что задача решается без массива, но я не могу повлиять на препода-старпёра.

В общем рабочий код для чисел:
Код:
procedure TForm1.BitBtn3Click(Sender: TObject);
var c1 : Integer;
begin
c1 := 0;
while (StringGrid1.ColCount > c1) do begin
  StringGrid1.Cells[c1,0] := IntToStr(Random(10));
  c1 := c1+1;
end;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
var c, b : Integer;
Z : array of Integer;
begin
  c := 0;
  b := StringGrid1.ColCount;
  GetMem(Z, b*4);
    while (b > c) do begin
      Z[c] := StrToInt(StringGrid1.Cells[c,0]);
      StringGrid2.Cells[(b-c-1),0] := IntToStr(Z[c]);
      c := c+1;
    end;
  FreeMem(Z, b*4);
end;

end.
... может ли кто-нибудь помочь с использованием не только цифр, но и других символов?

Последний раз редактировалось Язь; 16.10.2011 в 12:09.
Язь вне форума Ответить с цитированием
Старый 16.10.2011, 15:52   #13
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

Вы издеваетесь?!!!
Ещё раз.
Вчитайтесь... чтобы решить эту задачу ДОПОЛНИТЕЛЬНЫЙ МАССИВ НЕ НУЖЕН! СОВСЕМ! Ни стационарный, ни через GetMem, ни через SetLength()
Более того.
Это простое решение будет работать НЕЗАВИСИМО от того, что в Вашем StringGrid - буквы, цифры или вообще пустые ячейки!

И это правильное решение уже было Вам дано выше.
Зачем Вы пытаетесь к велосипеду причепить ласты - совершенно непонятно...
Serge_Bliznykov вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Перевернуть число. MAKEDON Общие вопросы C/C++ 3 23.04.2017 15:16
перевернуть двумерный массив.(динамический) Arcueid1691 Общие вопросы C/C++ 0 29.11.2010 21:04
Перевернуть список delphi 7 GaLiof Помощь студентам 1 18.06.2010 08:23
Перевернуть матрицу 10Rabbit Помощь студентам 11 09.10.2009 17:34
Перевернуть строку Манжосов Денис :) Общие вопросы Delphi 13 03.12.2008 04:37