работа с массивами в Delphi

[вася радугов]

Есть такое задание: заполнить одномерный массив а случайными числами. количество элементов в массиве 11. затем в edit должно вводиться число и нужно проверить входит ли это число в массив а.
мой код:

unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);


var
a:array [1..11]of integer;
i,b:integer;

begin
for i:=1 to 11 do begin  a[i]:=random(23);

label1.Caption:=inttostr(a[i]);

 end;
 end;
end.

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

[VIK_aka_TOR]

в лабел оно выводит тебе последнее случайное число...
для вывода масива возможно тебе понравится memo использовать.... будет выгдядеть так твой кусок:

for i:=1 to 11 do begin  a[i]:=random(23);

memo1.lines.add:=inttostr(a[i]);

 end;

а входит или нет методом перебора по всему масиву

//здесь пишем что не входит, и если на самом деле входит, то значение изменится
for i:=1 to 11 do
if a[i] = strtoint(Edit1.Text) then
// выводим сообщение что входит предположим в лабел...

[Кольша]

for i:=1 to 11 do 
if a[i]=strtoint(edit1.text) then begin
showmessage(edit1.text+' Входит в массив а');
exit;
end;
showmessage(edit1.text+' не входит в массив а');

[вася радугов]

пытался вывести массив в memo но Delphi выдает ошибку

[Error] Unit1.pas(40): Incompatible types: 'Integer' and 'String'

[VIK_aka_TOR]

Сообщение от вася радугов

пытался вывести массив в memo но Delphi выдает ошибку

[Error] Unit1.pas(40): Incompatible types: 'Integer' and 'String'

а IntToStr использовали?

memo1.lines.add:=inttostr(a[i]);

конвертануть число в строку нужно...

[вася радугов]

все в точности так и прописал

  memo1.lines.add:=inttostr(a[i]);

но все равно ошибку выдает

[VIK_aka_TOR]

подзабыл малость синтаксис... попробуй так...

 memo1.lines.add(inttostr(a[i]));

давно дельфу не трогал)

[вася радугов]

с memo все получилось. спасибо!!!
исправленный код:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Memo1: TMemo;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);


var
a:array [1..11]of integer;
i:integer;

begin
for i:=1 to 11 do begin a[i]:=random(23);
 if a[i] = strtoint(Edit1.Text) then
  showmessage(edit1.text+' Входит в массив а')
  else
     showmessage(edit1.text+' невходит в массив а');
   memo1.lines.add(inttostr(a[i]));
 end;
 end;

end.

программа все равно не хочет работать. может я что-то не так понял?

[whatever]

Попробуй так:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Edit1: TEdit;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  a:array [1..11]of integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
begin
  memo1.Text:='';
  for i:=1 to 11 do
    begin
      a[i]:=random(23);
      memo1.Lines.add(inttostr(a[i]));
    end;
end;


procedure TForm1.Button2Click(Sender: TObject);
var
  i:integer;
  vh:boolean;
begin
  vh:=false;
  for i:=1 to 11 do
    if a[i] = strtoint(Edit1.Text) then
      vh:=true;
  if vh then
    showmessage(edit1.text+' Входит в массив а')
  else
    showmessage(edit1.text+' невходит в массив а');
  memo1.lines.add(Edit1.Text);
end;

end.

Первая кнопка заполняет массив и memo1
Вторая проверяет, повторяется ли число из Edit1

Массив объявил глобально, чтоб не нужно было вытаскивать данные из memo1

Кстати, так как массив заполнен полностью, число из Edit1 мы в него не добавляем, но, зачем-то пишем в мемо. Это я к тому, что, например, числа 15 в массиве не будет, оно добавится в мемо. Потом опять проверяем на наличие 15ти в массиве, его опять нет, и оно опять пишется в мемо. Так что либо делай массив больше, и добавляй к нему новые элементы, либо вообще убери добавление, оставь проверку.

[вася радугов]

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

Project project1.exe raised exception class  EConvertError with message “ is not a valid integer value “. Process stopped. Use Step or Run continue.