Question

How to create a string from one row of a two-dimensional character array in Pascal

Answer 1

program CreateStringFromOneRow;

type
  TStringArray = array of char;
  TStringArray2D = array of TStringArray;

var
  charArray2D: TStringArray2D;
  selected_row: TStringArray;
  row_index: Integer;
  s: string;
  i: Integer;

begin
  // Initialize the 2D array
  SetLength(charArray2D, 3);
  charArray2D[0] := ['P', 'a', 's', 'c', 'a', 'l'];
  charArray2D[1] := ['p', 'r', 'o', 'g', 'r', 'a', 'm', 'm', 'i', 'n', 'g'];
  charArray2D[2] := ['l', 'a', 'n', 'g', 'u', 'a', 'g', 'e'];

  // row 1 (second row)
  row_index := 1;
  selected_row := charArray2D[row_index];
  
  // Convert the row to a string
  s := '';
  for i := Low(selected_row) to High(selected_row) do
  begin
    s := s + selected_row[i];
  end;
  
  WriteLn(s);
end.



(*
run:

programming

*)

 

70+ SQL courses for beginners and professionals