Delphi 7: как сделать так, что бы edit выставляла значение на strnggrid

[holms]

Помогите пожалуйста , как сделать что бы edit выставляла значение на strnggrid (rowcount) ?

[Вадим Мошев]

Например, так (приблизительно):

stringGrid1.cells[номер_столбца, номер_строки]:=edit1.text;

[holms]

Спасибо уже
сделал

procedure TForm1.edt1Change(Sender: TObject);
begin
n:=StrToInt(edt1.Text);
strngrd1.RowCount:=n;
strngrd1.Visible :=True;
end;

Используйте тэг CODE (кнопка #) для оформления кода

[Аватар]

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

[Вадим Мошев]

Сообщение от Аватар

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

Проблема будет раньше - переменная n - не объявлена.

[Аватар]

Объявлена она наверняка глобально, это не беда для начинающего

[holms]

Сообщение от Аватар

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

вот эта ошибка если ввести букву

[Аватар]

Я бы в OnChange эдита это не делал. Проверить-то и в нем можно на валидность введенного, но дергать грид будет по каждому чиху. Проверить на валидность можно функцией TryStrToInt. Можно запретить в эдит вводить все кроме цифр. Что бы не дергало или в OnExit эдита, или в OnClick кнопки, где все проверить и настроить грид

[Вадим Мошев]

Сообщение от holms

вот эта ошибка если ввести букву

А всё потому, что вы, ни на что не глядя, переводите то, что вы написали в эдите в число. Если вы оставите поле Edit пустым, то получите ту же самую ошибку.

Сообщение от Аватар

Можно запретить в эдит вводить все кроме цифр.

Вот обработчик события, который позволяет это сделать:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if NOT (key in ['0'..'9', chr(8)]) then begin
  key:=chr(0);
 end;
end;

Сообщение от Аватар

Объявлена она наверняка глобально, это не беда для начинающего

Надо на ранних стадиях отучать объявлять переменные глобально

[holms]

Сообщение от Вадим Мошев

А всё потому, что вы, ни на что не глядя, переводите то, что вы написали в эдите в число. Если вы оставите поле Edit пустым, то получите ту же самую ошибку.



Вот обработчик события, который позволяет это сделать:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if NOT (key in ['0'..'9', chr(8)]) then begin
  key:=chr(0);
 end;
end;

Надо на ранних стадиях отучать объявлять переменные глобально

все равно выбивает эту ошибку при наборе буквы либо пустого поля