Из столбца в строку

Сообщений 1 страница 5 из 5

Поделиться12024-04-03 09:33:11

Автор: Phenix
Активный участник
Зарегистрирован: 2022-10-05
Приглашений: 0
Сообщений: 30
Уважение: [+0/-0]
Позитив: [+0/-0]
Провел на форуме:
7 часов 50 минут
Последний визит:
2024-05-27 09:02:35

Если честно никогда не сталкивался но вот пришлось и туплю не могу сообразить как из массива столбцов всё это перевести в одну строку? Как бы сделал, но с ограничением но как сделать безгранично, не могу сообразить, вот моя схема (если кто поможет то плиз без кодов)

Код:

Add(MultiElementEx,6531729,2478,273)
{
 @Hint=#16:Перевод в строку|
 @Color=16777130
}
BEGIN_SDK
  Add(EditMultiEx,8391493,21,21)
  {
   WorkCount=#8:doEvent1|7:doClear|
   EventCount=#8:onEvent3|8:onEvent4|
   DataCount=#5:Array|
   Width=783
   Height=529
   link(doEvent1,5373039:doEvent1,[(81,27)(81,244)])
  }
  Add(ArrayEnum,16676960,231,238)
  {
   link(onItem,1421216:doEvent1,[(275,244)(275,237)])
   link(Array,8391493:Array,[(237,130)(27,130)])
  }
  Add(Memory,14631948,420,112)
  {
  }
  Add(Hub,1421216,287,231)
  {
   OutCount=3
   link(onEvent1,14261521:doEvent,[(322,237)(322,118)])
   link(onEvent2,4247429:doString,[(357,244)(357,314)])
  }
  Add(FormatStr,4247429,420,308)
  {
   DataCount=10
   Mask="|%1|%2|%3|%4|%5|%6|%7|%8|%9|%10|"
   link(onFString,16774255:doTrim,[])
   link(Str1,14631948:Value,[])
   link(Str2,16635699:Value,[])
   link(Str3,10983891:Value,[])
   link(Str4,7508577:Value,[])
   link(Str5,1434322:Value,[])
   link(Str6,11819325:Value,[])
   link(Str7,3993177:Value,[])
   link(Str8,13582583:Value,[])
   link(Str9,16661362:Value,[])
   link(Str10,13730510:Value,[])
  }
  Add(IndexToChanel,14261521,315,112)
  {
   Count=10
   Point(Index)
   link(onEvent1,14631948:doValue,[])
   link(onEvent2,16635699:doValue,[])
   link(onEvent3,10983891:doValue,[])
   link(onEvent4,7508577:doValue,[])
   link(onEvent5,1434322:doValue,[])
   link(onEvent6,11819325:doValue,[])
   link(onEvent7,3993177:doValue,[])
   link(onEvent8,13582583:doValue,[])
   link(onEvent9,16661362:doValue,[])
   link(onEvent10,13730510:doValue,[])
   link(Index,16676960:Index,[(321,100)(283,100)(283,282)(244,282)])
  }
  Add(Memory,16635699,427,119)
  {
  }
  Add(Memory,10983891,434,126)
  {
  }
  Add(Hub,5373039,98,238)
  {
   OutCount=3
   link(onEvent1,11589166:doEvent1,[(140,244)(140,111)])
   link(onEvent2,16676960:doEnum,[(172,251)(172,244)])
   link(onEvent3,8391493:onEvent4,[(602,258)(602,34)])
  }
  Add(Memory,7508577,441,133)
  {
  }
  Add(Memory,1434322,448,140)
  {
  }
  Add(Memory,11819325,455,147)
  {
  }
  Add(Memory,3993177,462,154)
  {
  }
  Add(Memory,13582583,469,161)
  {
  }
  Add(Memory,16661362,476,168)
  {
  }
  Add(Memory,13730510,483,175)
  {
  }
  Add(Trim,16774255,574,308)
  {
   Char="||||||||"
   link(onTrim,8391493:onEvent3,[(645,314)(645,27)])
  }
  Add(Hub,11589166,168,105)
  {
   OutCount=12
   link(onEvent3,14631948:doClear,[])
   link(onEvent4,16635699:doClear,[])
   link(onEvent5,10983891:doClear,[])
   link(onEvent6,7508577:doClear,[])
   link(onEvent7,1434322:doClear,[])
   link(onEvent8,11819325:doClear,[])
   link(onEvent9,3993177:doClear,[])
   link(onEvent10,13582583:doClear,[])
   link(onEvent11,16661362:doClear,[])
   link(onEvent12,13730510:doClear,[])
  }
END_SDK

Поделиться22024-04-03 10:27:53

Автор: andrestudio
Администратор
Зарегистрирован: 2021-02-26
Приглашений: 0
Сообщений: 369
Уважение: [+2/-0]
Позитив: [+1/-0]
Провел на форуме:
12 дней 7 часов
Последний визит:
2024-11-18 23:15:19

Phenix
Не понятно осталось.
Все столбцы перевести в строку или содержимое всех столбцов?

Поделиться32024-04-03 10:33:18

Автор: Phenix
Активный участник
Зарегистрирован: 2022-10-05
Приглашений: 0
Сообщений: 30
Уважение: [+0/-0]
Позитив: [+0/-0]
Провел на форуме:
7 часов 50 минут
Последний визит:
2024-05-27 09:02:35

Из
В
Через разделитель допустим |

Поделиться42024-04-03 17:04:53

Автор: andrestudio
Администратор
Зарегистрирован: 2021-02-26
Приглашений: 0
Сообщений: 369
Уважение: [+2/-0]
Позитив: [+1/-0]
Провел на форуме:
12 дней 7 часов
Последний визит:
2024-11-18 23:15:19

Мне лень делать на рассыпухе. На IC примерно так

Код:

Add(MainForm,2953706,161,147)
{
 Width=358
 Height=267
 link(onCreate,2478803:doEnum,[])
}
Add(StringTable,12516620,301,161)
{
 Left=20
 Top=15
 Width=310
 Height=185
 Columns=#5:Блюдо|6:Кол-во|4:Цена|2:И.|
 Point(Matrix)
 Point(PHandle)
}
Add(Button,15928559,231,224)
{
 Left=20
 Top=205
 link(onClick,15444459:doGetFormat,[])
}
Add(InlineCode,15444459,322,224)
{
 WorkPoints=#11:doGetFormat|
 EventPoints=#5:onRes|
 DataPoints=#2:PH|
 Code=#26:{ Author -=andrestudio=- }|15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|18:     PC: PControl;|40:     function Get(index:integer):string;|9:   public|25:     PH,onRes: THI_Event;|53:     procedure doGetFormat(var dt: TData; idx: word);|5: end;|0:|14:implementation|0:|47:function THiAsmClass.Get(index:integer):string;|14:var i:integer;|5:begin|17:    Result := '';|38:    for i := 0 to PC.LVColCount - 1 do|10:     begin|46:       Result := Result + PC.LVItems[Index,i];|60:       if i < PC.LVColCount - 1 then Result := Result + ';';|9:     end;|4:end;|0:|34:procedure THiAsmClass.doGetFormat;|4:var |15:  row: integer;|12:  s: string;|5:begin|27:  PC := ReadControl(PH,'');|32:  if not Assigned(PC) then Exit;|31:  for row := 0 to PC.Count-1 do|7:  begin|24:    PC.LVCurItem := row;|31:    s := s + Get(PC.LVCurItem);|42:    if row < PC.Count-1 then s := s + '|';|9:  end;   |23:  _hi_onEvent(onRes,s);|6:end;  |0:|4:end.|
 link(onRes,231606:doText,[])
 link(PH,12516620:PHandle,[])
}
Add(StrList,8718803,217,91)
{
 Strings=#11:Суп;0,5;5;0|12:Борщ;0,2;3;1|15:Солянка;1,0;7;2|0:|
}
Add(ArrayEnum,2478803,231,161)
{
 link(onItem,12516620:doAdd,[])
 link(Array,8718803:Array,[])
}
Add(Label,231606,385,224)
{
 Left=85
 Top=210
}

Поделиться52024-04-04 07:16:48

Автор: Phenix
Активный участник
Зарегистрирован: 2022-10-05
Приглашений: 0
Сообщений: 30
Уважение: [+0/-0]
Позитив: [+0/-0]
Провел на форуме:
7 часов 50 минут
Последний визит:
2024-05-27 09:02:35

Спасибо конечно, но я не пойму как это работает.

HiAsm - Конструктор программ

Меню навигации

Пользовательские ссылки