Создание и использование динамических структур

[Oksana11]

Всем здравствуйте! Мне нужна помощь в решении задачи! Задача:
Найти в списке сов то слово, которое идет следом за заданным. Создать список слов и решить задачу.
Я сделала только это:

unit s_found_;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.DFM}

{ поиск в массиве перебором }
procedure TForm1.Button1Click(Sender: TObject);
const
   SIZE=5;
var
   a: array[1..SIZE] of integer; // массив
   obr: integer;                 // образец для поиска}
   found: boolean;               // TRUE - совпадение образца с элементом массива }
   i: integer;                   // индекс элемента массива }

begin
   // ввод массива
   for i:=1 to SIZE do
       a[i] := StrToInt(StringGrid1.Cells[i-1,0]);

   // ввод образца для поиска
   obr := StrToInt(edit2.text);

   // поиск
   found := FALSE; // пусть нужного эл-та в массиве нет
   i := 1;
   repeat
         if a[i] = obr
            then found := TRUE
            else i := i+1;
   until (i > SIZE) or (found = TRUE);

   if found
      then ShowMessage('Совпадение с элементом номер '
                       +IntToStr(i+1)+#13+'Поиск успешен.')
      else ShowMessage('Совпадений с образцом нет.');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin

end;

procedure TForm1.StringGrid1Click(Sender: TObject);
begin

end;

end.

Но эта прога работает с числами... Как сделать, чтобы она работала с текстом?

[puporev]

Вы видимо не до конца поняли задачу. Вам сначала нужно создать динамически список, потом для наглядности вывести его в ListBox или Memo и т.д. Затем найти слово, стоящее за заданным и вывести его в Label или в Edit. StringGrid вам вообще без надобности.

[Oksana11]

Ну, а все-таки, как сделать, чтобы эта прога работала с текстом? или такое невозможно? По-другому у меня не получается!

[puporev]

Ну тогда переделайте массив с типа integer на тип String и вводите в таблицу слова.

[Oksana11]

Пробовала! не работает!

[puporev]

Плохо пробовали. Если изменили тип, то нужно поменять и все операторы ввода-вывода. Вот пять минут переделывал ваш код. По ходу ошибка - нужно выводить следующее слово за образцом, а не сам образец. Слова в таблице вводите в первую(то бишь нулевую) строку и все заработает.
У вас один Edit, зачем ему номер 2? Короче перепишите внимательно как у меня.

procedure TForm1.Button1Click(Sender: TObject);
const
   SIZE=5;
var
   a: array[1..SIZE] of string; // массив
   obr: string;                 // образец для поиска}
   found: boolean;               // TRUE - совпадение образца с элементом массива }
   i: integer;                   // индекс элемента массива }

begin
 // ввод массива
   for i:=1 to SIZE do
       a[i]:=StringGrid1.Cells[i-1,0];
   // ввод образца для поиска
   obr := edit1.text;
   // поиск
   found := FALSE; // пусть нужного эл-та в массиве нет
   i := 1;
   repeat
         if a[i] = obr
            then found := TRUE
            else i := i+1;
   until (i > SIZE) or (found = TRUE);
   if found
      then ShowMessage('Следующее за образцом слово '+a[i+1]+#13+'Поиск успешен.')
      else ShowMessage('Совпадений с образцом нет.');
end;

end.