Поле Edit

Модераторы: Duncon, Naeel Maqsudov, Игорь Акопян, Хыиуду

Ответить
Anton_XXX
Сообщения: 108
Зарегистрирован: 21 дек 2006, 17:15

Привет всем!
Как сохранить значение вводимое в одно поле Edit в массив?

например:
я ввожу в поле Edit значение:=100
после чего нажимаю кнопку "добавить" это значение.
потом опять ввожу в поле Edit другое значение:=400;
"добавить" это значение.

врезультате должно получиться так:

n[1]:=100;
n[2]:=400;
.
.
.
n:=StrToInt(edit1.Text);

подскажите плыззз!
Esgal
Сообщения: 78
Зарегистрирован: 04 ноя 2008, 01:15

[syntax=delphi]
var
Form1: TForm1;
i:word=0;
n:array [word] of word;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
n:=StrToInt(Edit1.Text);
inc(i);
Edit1.Clear;
end;
[/syntax]
Luke! Use the Force! Use the Force... oh, Luke! Stop using the Force, use your head!
Ответить