из string в char, delphi

[McFrey]

не, не заполнение,
в поле едит пользователь вводит количество элементов, вот и кей ап нужно чтоб поменять число столбцов в стринггрид на форме, потом пользователь заполняет все это и жмет на кнопочку Вычислить и ругается программа.
Вот как теперь выглядит

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, Math;

type
  TForm1 = class(TForm)
    capture_1: TLabel;
    field_1: TEdit;
    SG: TStringGrid;
    key_1: TButton;
    list: TMemo;
    procedure key_1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure input_amount(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

const MaxSizeArr=25;
      mass: array [1..36] of char =  ('0','1','2','3','4','5','6','7','8','9',
     'A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S',
     'T','U','V','W','X','Y','Z');
type

   main_massiv = array[1..MaxSizeArr] of char;

var
  Form1: TForm1;
  mass_2:main_massiv;
  N:integer;

implementation

{$R *.dfm}
//----------------------------------------------------------------------------
procedure TForm1.FormCreate(Sender: TObject);
begin
   list.clear;
   SG.Cells[0,0]:='¹';
   SG.Cells[0,1]:='Ýëåìåíò';
end;




//----------------------------------------------------------------------------
procedure filling_mas(var mass_2:main_massiv; N:integer);
var i:integer;
    buf:string;
begin

 for i:=1 to N do
  begin
   buf:=Form1.SG.Cells[0,i];
   mass_2[i]:=buf[1];
  end;
end;

//----------------------------------------------------------------------------
procedure output_rezult(a:main_massiv; N:integer);
var i:integer;
begin
    for I := 1 to N do
      begin
        if a[i] in ['0'..'9'] then Form1.list.Lines.Add(a[i]);
      end;

    for I := 1 to N do
      begin
        if not (a[i] in ['0'..'9']) then Form1.list.Lines.Add(a[i]);
      end;
end;

//----------------------------------------------------------------------------
procedure TForm1.key_1Click(Sender: TObject);
var N:integer;
    a:main_massiv;
begin
 filling_mas(a, N);
 output_rezult(a, N);
end;


procedure TForm1.input_amount(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var i:integer;
begin
  N:=StrToInt(Form1.field_1.Text);
  Form1.SG.ColCount:=N+1;
  for i:=1 to N do
     begin
       Form1.SG.Cells[i,0]:=' i= '+IntToStr(i);
     end;
end;

end.

[Mad_Cat]

и ругается программа.

чего пишет то?

[McFrey]

http://f-bit.ru/17278 - тут проект лежит
Дан массив из k символов. Вывести на экран сначала все цифры, входящие в него, а затем все остальные символы, сохраняя при этом взаимное расположение символов в каждой из этих двух групп.

[Mad_Cat]

Сообщение от McFrey

http://f-bit.ru/17278 - тут проект лежит
Дан массив из k символов. Вывести на экран сначала все цифры, входящие в него, а затем все остальные символы, сохраняя при этом взаимное расположение символов в каждой из этих двух групп.

у тя попутана нумерация строк и столбцов у грида
должно быть

buf:=Form1.SG.Cells[i,1];

вот так у меня теперь выглядит код

const
     Digits = ['0'..'9'];
var
  Form1: TForm1;
  N:integer;

implementation

{$R *.dfm}
//----------------------------------------------------------------------------
procedure TForm1.FormCreate(Sender: TObject);
begin
   list.clear;
   SG.Cells[0,0]:='№';
   SG.Cells[0,1]:='Элемент';
end;
procedure filling_mas(N:integer);
var i:integer;
    buf:string;
begin
 for i:=1 to N do
  begin
   buf:=Form1.SG.Cells[i,1];
   if buf<>'' then
      if buf[1] in Digits  then Form1.list.Lines.Add(buf[1]);
  end;
  for i:=1 to N do
  begin
   buf:=Form1.SG.Cells[i,1];
   if buf<>'' then
      if not (buf[1] in Digits ) then Form1.list.Lines.Add(buf[1]);
  end;
end;
//----------------------------------------------------------------------------
//----------------------------------------------------------------------------
procedure TForm1.key_1Click(Sender: TObject);
var N:integer;
    a:main_massiv;
begin
 filling_mas(N);
end;
//--------------------------------------------------------------------------
procedure TForm1.input_amount(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var i:integer;
begin
  tryStrToInt(Form1.field_1.Text,N);
  Form1.SG.ColCount:=N+1;
  for i:=1 to N do
     begin
       Form1.SG.Cells[i,0]:=IntToStr(i);
     end;
end;

end.

[McFrey]

поменял, все равно такая же ошибка
ссылка на изображение с ошибкой:
http://saveimg.ru/show-image.php?id=...4c5c54003a2a98

[McFrey]

Спасибо всем что откликнулись, отдельная благодарность Mad_Cat, выручили)