Сортировка массива. Нужна помощь.

[vitaly38]

Добрый вечер всем. Прошу помощи. Задача следующая.


2. Дан массив, состоящий из символов. Преобразовать его по следующему
правилу: сначала должны находиться цифры, а затем все остальные символы,
сохраняя при этом взаимное расположение символов в каждой из этих двух
групп.


Задачу решить испоьзуя стринг грид. Вывод организовать в едит.

Принцип сам понимаю.
воот код

Count :=5;
  SetLength(SymArr, Count);

  // заполнение массима
  for inx := 0 to Count - 1 do
  begin
    SymArr[inx] :=SymArr[inx + 1];
  end;

  curr_pos := 0;
  for inx := 0 to Count - 1 do
  begin
    if (SymArr[inx] >= '0') and (SymArr[inx] <= '9') then
    begin
      CurrCh := SymArr[inx];
      for idx := inx downto curr_pos + 1 do
      begin
        SymArr[idx] := SymArr[idx - 1];
      end;
      SymArr[curr_pos] := CurrCh;
      curr_pos := curr_pos + 1;
    end;
  end;


  // вывод информации в интерфейс
  edit1.Text := '';
  for inx := 0 to Count - 1 do
  begin
    edit1.Text := edit1.Text + SymArr[inx];
  end;
end;

Но это при условии что мы работаем через едит. с массивами не знаю как быть. Подскажите пожалуйста.

Сама программа здесь http://www.sharemania.ru/0193096
При нажатии на кнопку ошибка появляется. Подправьте пожалуйста. Заранее благодарю.

[Utkin]

А у тебя уже есть массив, зачем тебе еще один? Ты ведь цифры будешь записывать как символы, а не как цифры? Верно?
edtBegin.Text - есть строка (ну в смысле выглядит как строка ). А строка есть массив символов. И все что требуется это длина строки .
Соответственно заполнять массив смысла нет, его и так заполнит пользователь.
Дальше, тебе нужно две пустые строчки (ну как вариант). Встретил число, запихал в первую строку. Встретил нечисло запихал во вторую.
А затем сложил обе строки и вывел в твой эдит.
Соответственно вывод будет без цикла, а это быстрей (мелочь, а приятно и если препод толковый, то оценит). И придраться не к чему, все строки можно рассматривать как массивы символов.

[vitaly38]

Структура вот какая должна быть
КОМПОНЕНТ StrinGrid (массив одномерный)

Кнопка ВЫПОЛНИТЬ

окно Tedit (сюда вывести отсортированный массив)


Код сам вот.

unit Unit1;

interface

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

type
 TForm1 = class(TForm)
   StringGrid1: TStringGrid;
   Label1: TLabel;
   Button1: TButton;
   Edit1: TEdit;
   procedure Button1Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
      var
  Count, inx, idx, curr_pos:integer;
  SymArr: array of char;
  CurrCh: char;
begin
 count:=Length(SymArr);;
 SymArr[inx]:=SymArr[inx + 1];

curr_pos:=0;
 for inx:=0 to Count-1 do
 begin
   if (SymArr[inx] >='0') and (SymArr[inx] <='9') then
   begin
     CurrCh:=SymArr[inx];
     for idx:=inx downto curr_pos+1 do
     begin
       SymArr[idx]:=SymArr[idx - 1];
     end;
     SymArr[curr_pos]:=CurrCh;
     curr_pos:=curr_pos + 1;
   end;
 end;
    for inx:=0 to Count - 1 do
 begin
   edit1.Text:=edit1.Text + SymArr[inx];
 end;
end;

end.

прошу исправить.

[Utkin]

Это препод от тебя StringGrid для такой задачи требует? Ну извращенец!
Тогда не пойму зачем тебе SymArr? Массив символов?

[vitaly38]

да. это массив символов.

[Utkin]

Я знаю что это массив символов. Тогда переформулируем вопрос, если тебе нужен массив символов, то зачем тебе StringGrid? И если тебе нужен StringGrid, то зачем тебе массив символов? Или в задаче требуется и то и другое? Выложите оригинальный текст задачи (а не Ваш вольный перевод).

[vitaly38]

2. Дан массив, состоящий из символов. Преобразовать его по следующему
правилу: сначала должны находиться цифры, а затем все остальные символы,
сохраняя при этом взаимное расположение символов в каждой из этих двух
групп.
Это оригинальная формулировка с методички.

Структура проги должна быть такой.

СТРИНГ ГРИД(МАССИВ ИСХОДНЫЙ, КУДА ВВОДИМ СИМВОЛЫ И ЦИФРЫ)

КНОПКАК ВЫПОЛНЕНИЯ

ЕДИТ1 СЮДА ВЫВОДИМ ОТСОРТИРОВАННЫЙ МАССИВ,

[Utkin]

В таком случае тебе нужно избаивться от своего SymArr и заменить его StringGrid. Добавлять StringGrid1.Add(строка или символ).
В общем заполняешь СтрингГрид символами из Эдита.
Затем в обратном порядке сканируешь Стрингрид (от последнего к первому). Если цифра то переносишь элемент на нулевую позицю (первый элемент имеет индекс 0). После этого процесса все будет перестроено так как тебе надо.

[(himerochka)]

привет всем, помогите!!! Нужно написать программ: соотировка масива пузырьком