из string в char, delphi

[McFrey]

Уважаемые программисты, на форме имеется компонент StringGrid, в него вводятся числа и буквы ( по одной в каждую клетку ), затем необходимо считать эти элементы в другой одномерный массив типа char. Как это осуществить? Ведь элементы StringGrid имеют тип string.

  for i:=1 to N do
     mass_2[i]:=StrTo  ?(как преобразовать в Char)?  (Form1.SG.Cells[0,i]);

Это необходимо, т.к. каждый элемент потом надо будет сравнивать с числом и буквой.

[Mad_Cat]

так правильнее)

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

[McFrey]

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

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);
  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;

implementation

{$R *.dfm}
//----------------------------------------------------------------------------
procedure TForm1.FormCreate(Sender: TObject);
begin
   list.clear;
   SG.Cells[0,0]:='i';
   SG.Cells[0,1]:='Элемент';
end;

//---------------------------------------------------------------------------
procedure input_amount(var N:integer);
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;

//----------------------------------------------------------------------------
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
 input_amount(N);
 filling_mas(a, N);
 output_rezult(a, N);
end;


end.

так компилятор ругается, я понимаю почему, т.к. массив не заполнен, а как этого избежать? вторую кнопку сделать?

[Mad_Cat]

т.к. массив не заполнен

Проверку на заполненость добавь

[Stilet]

Как это осуществить?

А общая задача какая?
Зачем сие колдовство с гридом?

[McFrey]

Не, пользователь изначально указывает количество элементов, а потом это количество столбцов появляется в StringGrid и уже тогда он заполняет их...наверное так нужна вторая кнопка?

Stilet, это все делается намного проще через TMemo....уже сделал, а задание предо мной стоит через StringGrid =(
а...общая задача.....пользователь задает массив чисел и букв, а моя задача сначала вывести числа, а затем все буквы из этого массива.

[Mad_Cat]

изменение размеров Stringgrid повесь на OnKeyUp у edit-ов и кнопки левые не над буит

[GetMax]

наверное так нужна вторая кнопка?

Можно и в процессе выполнения события первой кнопки. Что то типа этого

var buf:string;
................
for i:=1 to N do 
begin
  if Form1.SG.Cells[0,i] = '' then
  Begin
    ShowMessage('Ай - яй - яй');
  End
  else
  Begin
     buf:=Form1.SG.Cells[0,i]
     mass_2[i]:=buf[1];
  End;
end;

[McFrey]

Сделал на событие кей ап в эдит......
ругается на вот эту строчку(

mass_2[i]:=buf[1];

запускает программу на выполнение, ввожу данные нажимаю на кнопку и ругается....нехорошо ругается

[Mad_Cat]

я конечно дико извиняюсь
но ЗАчем??? заполнение массива в KeyUP при задании размеров грида а???? оставьте его в кнопке!!!
Мы каким то гаданием занимаемся ! формулировку задания можно точную????
и проект ваш для поглядеть