(Rad studio 11) массив

Question

(Rad studio 11) массив

егор Морозов Профи (561), на голосовании 4 недели назад

Нужно обработать массив из StringGrid1 (запись массива в ручную) при нажатии на Button1 так, чтоб в StringGrid2 вставлялся массив в котором были числа из StringGrid1 сначала положительные числа и нули, а потом отрицательные (как я понимаю, это pascal)

Answer 1

25VAO Знаток (389) 2 месяца назад

альт и ф4 нажми

егор МорозовПрофи (561) 2 месяца назад

Крут

Answer 2

в RAD Studio 11 два языка - delphi и c++, если похоже на паскаль, то это delphi

 // delphi 11 
 
procedure TForm1.Button1Click(Sender: TObject); 
const part: array[boolean] of integer = (0, 1); 
begin 
  var a: array of array of string; 
  SetLength(a, 2); 
  for var i in StringGrid1.Cols[0].ToStringArray do 
  if not i.IsEmpty then 
    begin 
      var j := part[i.StartsWith('-')]; 
      SetLength(a[j], Length(a[j]) + 1); 
      a[j][High(a[j])] := i; 
    end; 
  StringGrid2.Cols[0].Clear; 
  StringGrid2.RowCount := Length(a[0]) + Length(a[1]); 
  for var i in a do StringGrid2.Cols[0].AddStrings(i); 
end;