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

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

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 20.11.2009, 22:00   #11
pancho
Пользователь
 
Аватар для pancho
 
Регистрация: 25.01.2009
Сообщений: 18
Радость

огромная благодарность всем)) спасибо большое))
переделал,всё заработало)
Код:
j := 1;
   k := 1;
   for i := 1 to 9{(length(X)+length(Y))} do
    begin
    if (i<4) or (i>=(length(Y)+4)) then
    begin
     Z[i] := X[j];
     Inc(j);
     end
     else
     begin
      Z[i] := Y[k];
      Inc(k);
     end;
    //showmessage(inttostr(i)+' '+floattostr(Z[i]));
    Form1.ListBox3.Items.Add(FloatToStr(Z[i]));
   end;
учусь по ходу написания программы..кхх)
pancho вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как объединить объкты TShape max404 Общие вопросы Delphi 5 18.10.2009 21:47
Паскаль.Двумерные массивы,объединить два массива в один с сортировкой столбцов по возрастанию. valord Помощь студентам 6 02.06.2009 11:13
Как объединить idHTTP1.Get и WebBrowser1? DemonXT Работа с сетью в Delphi 5 09.04.2009 12:04
Скажите как объединить ячейки alex_base БД в Delphi 2 08.11.2007 20:07
Как объединить файлы? CMP Помощь студентам 6 07.05.2007 21:52