VPF::Вывод числового массива - Форум программистов

astral79

Дата 9.3.2010, 17:40 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 4.3.2010

Репутация: нет
Всего: нет

В программе требуется вывод большого массива чисел, размер его варьируется в зависимости от входных данных. При каждом цикле счета вычисляется значение, которое требует вывода, как сделать вывод значений в столб в одной метке, если кол-во данных не фиксировано? Через перенос строки (FloatToStrF(..)+#13+..) очень неудобно.

Snowy

Дата 9.3.2010, 17:50 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 31
Всего: 484

А зачем засовывать большой массив чисел в метку?
Почему не мемо, стринггрид, листвью и т.п.?
Использовать для вывода данных метку - как-то нелогично...

astral79

Дата 9.3.2010, 18:31 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 4.3.2010

Репутация: нет
Всего: нет

А как выглядят эти операторы?

Данкинг

Дата 9.3.2010, 18:48 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130

Цитата(astral79 @ 9.3.2010, 18:31

)

А как выглядят эти операторы?

Какие операторы - эти?

Цитата(Snowy @ 9.3.2010, 17:50

)

мемо, стринггрид, листвью

Они выглядят как стандартные компоненты Дельфи. smile

Вообще я бы выводил в ListBox обычный. Зачем метка-то, действительно?

--------------------

There's nothing left but silent epitaphs.

astral79

Дата 9.3.2010, 19:01 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 4.3.2010

Репутация: нет
Всего: нет

Удобно просто через метку, когда чисел немного было.

Данкинг

Дата 9.3.2010, 19:18 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130

Цитата(astral79 @ 9.3.2010, 19:01

)

когда чисел немного было.

Если два числа - может, и удобно. Если три и больше - ничего удобного.

--------------------

There's nothing left but silent epitaphs.

pseud

Дата 11.3.2010, 11:12 (ссылка)

(нет голосов)

Загрузка ...

Экспёрт Тыдыщ

Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

Репутация: 10
Всего: 40

Цитата(astral79 @ 9.3.2010, 17:40

)

Через перенос строки (FloatToStrF(..)+#13+..) очень неудобно.

тогда пихай это дело в цикле TStringList, а потом

Код


Label1.Caption := StringList1.Text;

--------------------

Испытание чужого терпения можно считать успешным, если оно лопнуло...

astral79

Дата 11.3.2010, 18:04 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 4.3.2010

Репутация: нет
Всего: нет

Так у меня числа, а не строковые переменные.

Данкинг

Дата 11.3.2010, 18:21 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130

Цитата(astral79 @ 11.3.2010, 18:04)

Так у меня числа, а не строковые переменные.

И что мешает перевести их в строковые переменные? FloatToStr, IntToStr ?

--------------------

There's nothing left but silent epitaphs.

pseud

Дата 12.3.2010, 10:28 (ссылка)

(нет голосов)

Загрузка ...

Экспёрт Тыдыщ

Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

Репутация: 10
Всего: 40

Код


type
  TFloatArray = array of Extended;

function FloatArrayToStringList(AFloatArray: TFloatArray): string;
var
  i: Integer;
begin
  Result := '';
  with TStringList.Create do
  try
    for i := Low(AFloatArray) to High(AFloatArray) do
      Add(FloatToStr(AFloatArray[i]));
    Result := Text;
  finally
    Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  a: TFloatArray;
begin
  SetLength(a, 5);
  a[0] := 0.005;
  a[1] := 1.5;
  a[2] := 100.255;
  a[3] := 300.003;
  a[4] := 10;
  ShowMessage(FloatArrayToStringList(a));
end;

--------------------

Испытание чужого терпения можно считать успешным, если оно лопнуло...

DarkProg

Дата 12.3.2010, 11:39 (ссылка)

(нет голосов)

Загрузка ...

Законченный романтик

Профиль
Группа: Завсегдатай
Сообщений: 1784
Регистрация: 11.3.2009
Где: Земля

Репутация: 4
Всего: 19

astral79, позвольте я дам вам полезный совет, даже два:

купите книгу по Делфи, которую вы открываете в магазине смотрите, читаете пару страниц и вам кажется что вроде бы всё понятно и читайте её начиная со второй главы очень внимательно
2) скачайте DRKB

Это сообщение отредактировал(а) DarkProg - 12.3.2010, 11:41

--------------------

"И твоя голова всегда в ответе за то куда сядет твой зад..."

"Я студент - скажите с какого я ВУЗа..."

smile

Данкинг

Дата 12.3.2010, 12:28 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130

Цитата(DarkProg @ 12.3.2010, 11:39

)

скачайте DRKB

Предваряя вопрос, отвечаю на него: ДРКБ - это вот это вот. smile

--------------------

There's nothing left but silent epitaphs.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »