Ввод и вывод массива

@WolfCF · Регистрация: 28.04.2009

Author24 — интернет-сервис помощи студентам

Как сделать,чтобы ввод массива осуществлялся в

процедуре

procedure TForm1.N8Click(Sender: TObject);
begin

end;

end.

,а вывод в

процедуре

procedure TForm1.N13Click(Sender: TObject);
begin

end;

end.

.
надо сделать через StringGrid, сколько не пытался ни как не получается осуществить задуманное.

@Zerkalka · 20.03.2010, 17:01

Глобально объявить переменную под массив:

Delphi

...
implementation
 
{$R *.dfm}
 
var
  kol_row, kol_col, i, j: integer;
  Mas: array [0..20,0..20] of real;
...

А затем использовать, где угодно...

Delphi

...
//ввод
procedure TForm1.N2Click(Sender: TObject);
begin
  for i := 0 to kol_row-1 do
    for j := 0 to kol_col-1 do
      Mas[i,j]:=StrToFloat(StringGrid1.Cells[j,i]);
end;
 
//вывод
procedure TForm1.N3Click(Sender: TObject);
begin
  for i := 0 to kol_row-1 do
    for j := 0 to kol_col-1 do
      StringGrid2.Cells[j,i]:=FloatToStr(Mas[i,j]);
end;
...

@John_Pa9JIbHuK · 20.03.2010, 17:31

Wolf, Ну раз решил изучать Delphi могу порекомендовать тебе хорошие книги

@WolfCF · 20.03.2010, 17:34 **[ТС]**

John_Pa9JIbHuK, давай,не откажусь)) тем более у меня ускоренный курс изучения.

@John_Pa9JIbHuK · 20.03.2010, 17:41

"Delphi 6 Наиболее полное руководство" (А.Хомоненко,Владимир Гофман)
"Delphi 7 Учебный курс" (С.Бобровский)
Эти книги есть в сети
Ну язык познается в практике так что необходимо усидчивость и целеустремленность

Говоря о себе кода я попал на наш форум я и Паскаля то толком не знал

А так если возникнут вопросы для которых влом создавать темы то стучи сюда ICQ:477765794

@WolfCF 3310 / 1372 / 110 Регистрация: 28.04.2009 Сообщений: 4,822
		1
	Ввод и вывод массива 20.03.2010, 16:40. Показов 3708. Ответов 4 Метки нет (Все метки) Как сделать,чтобы ввод массива осуществлялся в процедуре procedure TForm1.N8Click(Sender: TObject); begin end; end. ,а вывод в процедуре procedure TForm1.N13Click(Sender: TObject); begin end; end. . надо сделать через StringGrid, сколько не пытался ни как не получается осуществить задуманное. 0

@John_Pa9JIbHuK Добрый самаритянин 1107 / 622 / 139 Регистрация: 31.03.2009 Сообщений: 2,567
	20.03.2010, 17:31	3
	Wolf, Ну раз решил изучать Delphi могу порекомендовать тебе хорошие книги 0

@WolfCF 3310 / 1372 / 110 Регистрация: 28.04.2009 Сообщений: 4,822
	20.03.2010, 17:34 [ТС]	4
	John_Pa9JIbHuK, давай,не откажусь)) тем более у меня ускоренный курс изучения. 0

@John_Pa9JIbHuK Добрый самаритянин 1107 / 622 / 139 Регистрация: 31.03.2009 Сообщений: 2,567
	20.03.2010, 17:41	5
	Сообщение было отмечено как решение Решение "Delphi 6 Наиболее полное руководство" (А.Хомоненко,Владимир Гофман) "Delphi 7 Учебный курс" (С.Бобровский) Эти книги есть в сети Ну язык познается в практике так что необходимо усидчивость и целеустремленность Говоря о себе кода я попал на наш форум я и Паскаля то толком не знал А так если возникнут вопросы для которых влом создавать темы то стучи сюда ICQ:477765794 2

Ввод и вывод массива

Решение