[Blood_Psycho]

В общем у меня такая проблема, мне необходимо ввести число и завести его в вот этот массив a[i].n_dom.
a[i].n_dom:=strtoint(edit6.text);
на этой строке выводится сообщение об ошибке. мол '12' is not valid integer value. хотя массив a[i].n_dom у меня типа integer. в чем дело? help please)))

[v1s2222]

Ошибка несоответствия... почему не понятно, выложи весь код...
Так же можешь попробовать:

Код:

a[i].n_dom:=strtointdef(edit6.text, 0);

[Blood_Psycho]

А что будет делать strtointdef(....., 0)?
Вот часть кода, потому что это у меня курсач, там дофига кода. выложу чисто ввод и запоминание в массив.

Код:

unit Unit1;

interface

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

type
  org=record
    name,strana,gorod,ulica,vid_d,vid_prod,priobr,prodaet,vak:string;
    n_dom,n_tel,n_faks:integer;
  end;

  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    StringGrid1: TStringGrid;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Edit7: TEdit;
    Edit8: TEdit;
    Button8: TButton;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    Edit12: TEdit;
    Edit13: TEdit;
    Button9: TButton;
    Button10: TButton;
    Button11: TButton;
    Button12: TButton;
    Button13: TButton;
    BitBtn1: TBitBtn;
    Button14: TButton;
    Button15: TButton;
    StringGrid2: TStringGrid;
    Button17: TButton;
    Button16: TButton;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    MainMenu1: TMainMenu;
    bv1: TMenuItem;
    v1: TMenuItem;
    N1: TMenuItem;
    Memo1: TMemo;
    N21: TMenuItem;
    Button18: TButton;
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Edit2Click(Sender: TObject);
    procedure Edit3Click(Sender: TObject);
    procedure Edit4Click(Sender: TObject);
    procedure Edit5Click(Sender: TObject);
    procedure Edit6Click(Sender: TObject);
    procedure Edit7Click(Sender: TObject);
    procedure Edit8Click(Sender: TObject);
    procedure Edit9Click(Sender: TObject);
    procedure Edit10Click(Sender: TObject);
    procedure Edit11Click(Sender: TObject);
    procedure Edit12Click(Sender: TObject);
    procedure Edit13Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure Button12Click(Sender: TObject);
    procedure Button13Click(Sender: TObject);
    procedure Button14Click(Sender: TObject);
    procedure Button15Click(Sender: TObject);
    procedure Button17Click(Sender: TObject);
    procedure Button16Click(Sender: TObject);
    procedure Edit6KeyPress(Sender: TObject; var Key: Char);
    procedure Edit7KeyPress(Sender: TObject; var Key: Char);
    procedure Edit8KeyPress(Sender: TObject; var Key: Char);
    procedure v1Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure Button18Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1; p,pa:integer;
  a:array[1..10] of org;
  t:array[1..10] of string;
  i,k,j,z,n:integer;


implementation

{$R *.dfm}

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
case key of
  '0'..'9': ;
  #8: ;
  #13: button1.setfocus;
  else key:=chr(0);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
pa:=52669;
  p:=strtoint(edit1.text);
   if p<>pa then showmessage('Пароль неверный!')
   else begin
        showmessage('Здравствуйте, Дмитрий!');
        pagecontrol1.enabled:=true;
        edit1.text:=' ' ;
        edit1.Visible:=false;
        button1.visible:=false;
        end;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
showmessage('Введите пароль, чтобы войти в систему');
stringgrid1.Cells[0,0]:=' №';
stringgrid1.Cells[0,1]:=' 1';
stringgrid1.Cells[1,0]:=' Название организации';
stringgrid1.Cells[2,0]:=' Страна';
stringgrid1.Cells[3,0]:=' Город';
stringgrid1.Cells[4,0]:=' Улица';
stringgrid1.Cells[5,0]:=' № дома';
stringgrid1.Cells[6,0]:=' Телефон';
stringgrid1.Cells[7,0]:=' Телефакс';
stringgrid1.Cells[8,0]:=' Вид деятельности';
stringgrid1.Cells[9,0]:=' Вид продукции';
stringgrid1.Cells[10,0]:=' Что приобретается';
stringgrid1.Cells[11,0]:=' Что продается';
stringgrid1.Cells[12,0]:=' Вакансии';
stringgrid1.Cells[13,0]:=' Время';
stringgrid2.Cells[0,0]:=' №';
stringgrid2.Cells[0,1]:=' 1';
stringgrid2.Cells[0,2]:=' 2';
stringgrid2.Cells[0,3]:=' 3';
stringgrid2.Cells[0,4]:=' 4';
stringgrid2.Cells[0,5]:=' 5';
stringgrid2.Cells[0,6]:=' 6';
stringgrid2.Cells[0,7]:=' 7';
stringgrid2.Cells[0,8]:=' 8';
stringgrid2.Cells[0,9]:=' 9';
stringgrid2.Cells[0,10]:=' 10';
stringgrid2.Cells[1,0]:=' Название организации';
stringgrid2.Cells[2,0]:=' Страна';
stringgrid2.Cells[3,0]:=' Город';
stringgrid2.Cells[4,0]:=' Улица';
stringgrid2.Cells[5,0]:=' № дома';
stringgrid2.Cells[6,0]:=' Телефон';
stringgrid2.Cells[7,0]:=' Телефакс';
stringgrid2.Cells[8,0]:=' Вид деятельности';
stringgrid2.Cells[9,0]:=' Вид продукции';
stringgrid2.Cells[10,0]:=' Что приобретается';
stringgrid2.Cells[11,0]:=' Что продается';
stringgrid2.Cells[12,0]:=' Вакансии';
stringgrid2.Cells[13,0]:=' Время';
end;

procedure TForm1.Edit2Click(Sender: TObject);
begin
  edit2.Text:=' ';
end;

procedure TForm1.Edit3Click(Sender: TObject);
begin
edit3.Text:=' ';
end;

procedure TForm1.Edit4Click(Sender: TObject);
begin
edit4.Text:=' ';
end;

procedure TForm1.Edit5Click(Sender: TObject);
begin
edit5.Text:=' ';
end;

procedure TForm1.Edit6Click(Sender: TObject);
begin
edit6.Text:=' ';
end;

procedure TForm1.Edit7Click(Sender: TObject);
begin
edit7.Text:=' ';
end;

procedure TForm1.Edit8Click(Sender: TObject);
begin
edit8.Text:=' ';
end;

procedure TForm1.Edit9Click(Sender: TObject);
begin
edit9.Text:=' ';
end;

procedure TForm1.Edit10Click(Sender: TObject);
begin
edit10.Text:=' ';
end;

procedure TForm1.Edit11Click(Sender: TObject);
begin
edit11.Text:=' ';
end;

procedure TForm1.Edit12Click(Sender: TObject);
begin
edit12.Text:=' ';
end;

procedure TForm1.Edit13Click(Sender: TObject);
begin
edit13.Text:=' ';
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  a[i].name:=edit2.text;
  stringgrid1.cells[k,j]:=' '+a[i].name;
  k:=k+1;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  a[i].strana:=edit3.text;
  stringgrid1.cells[k,j]:=' '+a[i].strana;
  k:=k+1;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  a[i].gorod:=edit4.text;
  stringgrid1.cells[k,j]:=' '+a[i].gorod;
  k:=k+1;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
  a[i].ulica:=edit5.text;
  stringgrid1.cells[k,j]:=' '+a[i].ulica;
  k:=k+1;
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
  a[i].n_dom:=strtoint(edit6.text);
  stringgrid1.cells[k,j]:=' '+inttostr(a[i].n_dom);
  k:=k+1;
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
  a[i].n_tel:=strtoint(edit7.text);
 stringgrid1.cells[k,j]:=' '+inttostr(a[i].n_tel);
  k:=k+1;
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
  a[i].n_faks:=strtoint(edit8.text);
  stringgrid1.cells[k,j]:=' '+inttostr(a[i].n_faks);
  k:=k+1;
end;

Admin: Пользуемся тегами! При рецедиве последуют санкции!

[v1s2222]

StrToIntDef - переведет из строки в число, а если возникнет исключение, то вернет число по умолчанию.
По твоему коду не понял одного - где изменяется переменная "i"? Ты всегда к ней обращаешься как к массиву: a[i], но i не где не изменяешь...

[Blood_Psycho]

i я меняю позже на плюс один. ошибки в i нет. проблема с теми строками

[v1s2222]

Ошибки в a[i].x:=StrToInt(Edit.Text) быть не должно, поэтому я и говорю что у тебя проблема в чем-то другом. Попробуй StrToIntDef.