Запись данных из stinggrid в одномерный массив

@Shkiperr88 · Регистрация: 01.11.2013

Люди добрые, приветствую, помогите! Необходимо записать данные из stinggrid в одномерный массив по-очереди. stinggrid содержит 3 столбца и n строк. Надо сначала записать число из Edit5, потом 1-й столбец, потом 2-й и 3-й. Не могу реализовать цикл, потому что он обращается к несуществующей ячейке...

Delphi

begin
  L:= 3*n+1;
  SetLength(Z, L);
  Z[0]:= StrToFloat(Form2.Edit5.Text);
 
  for i:=1 to n-1 do
   begin
 
     for q:=1 to n do
 
      begin
 
        Z[q+i-1]:= StrToFloat(Form2.StringGrid1.Cells[1, q]);
        Z[(q+i-1)+n]:= StrToFloat(Form2.StringGrid1.Cells[2, q]);
        Z[(q+i-1)+n*2]:= StrToFloat(Form2.StringGrid1.Cells[3, q]);
 
      end;

@Puporev · 09.12.2013, 12:08

Вот пример. Количество строк=3, фиксированных строк и столбцов нет.

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var i,j:byte;
begin
randomize;
Edit5.Text:=floattostrF(5*random,fffixed,5,2);
for i:=0 to 2 do
for j:=0 to 2 do
stringgrid1.Cells[j,i]:=floattostrF(5*random,fffixed,5,2);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var n,L,i,q,k:byte;
    Z:array of real;
begin
n:=3;
L:= 3*n+1;
SetLength(Z,L);
Z[0]:= StrToFloat(Edit5.Text);
k:=0;
for i:=0 to n-1 do
for q:=0 to n-1 do
 begin
  inc(k);
  Z[k]:= StrToFloat(StringGrid1.Cells[q,i]);
 end;
for i:=0 to L-1 do
stringgrid2.Cells[i,0]:=floattostrF(z[i],fffixed,5,2);
end;

@Shkiperr88 · 10.12.2013, 05:44 **[ТС]**

Спасибо большое! Приведенный вами код работает) но в моей проге не хочет((

Добавлено через 6 минут
Это наверное, потому что у меня фиксированные столбцы и строки есть?

@Puporev · 10.12.2013, 06:30

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

потому что у меня фиксированные столбцы и строки есть?

Естественно, индексы же ячеек с числами увеличатся на 1 по строкам и столбцам

@Shkiperr88 · 10.12.2013, 06:33 **[ТС]**

24 Z[k]:= StrToFloat(StringGrid1.Cells[q+1,i+1]); вот так?

@Puporev · 10.12.2013, 06:36

Да, так

@Shkiperr88 · 10.12.2013, 06:38 **[ТС]**

А не подскажите, во что можно вывести эти параметры, кроме этой же таблицы. Может, как-то в EDIT можно?

@Puporev · 10.12.2013, 06:51

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

Может, как-то в EDIT можно?

Можно и в Эдит.

Delphi

1 2	for i:=0 to L-1 do Edit1.Text:=Edit1.Text+' '+ floattostrF(z[i],fffixed,5,2);

@Shkiperr88 · 10.12.2013, 08:22 **[ТС]**

Благодарю за помощь)

Добавлено через 1 час 16 минут

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

Edit1.Text:=Edit1.Text+' *'+ floattostrF(z[i],fffixed,5,2);

этой строчкой он выводить только первое значение (из эдита) и последнее из массива, а надо все...

@Puporev · 10.12.2013, 08:33

Не знаю что ты там творишь, у меня все выводит

@Shkiperr88 · 10.12.2013, 08:53 **[ТС]**

Код в точности, как у вас, может DELPHI барахлит?)

@Puporev · 10.12.2013, 08:56

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

Код в точности, как у вас,

Этого не может быть. Просто скопируйте его и выложите.

@Shkiperr88 · 10.12.2013, 09:04 **[ТС]**

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var i,j:byte;
begin
randomize;
Edit1.Text:=floattostrF(5*random,fffixed,5,2);
for i:=0 to 2 do
for j:=0 to 2 do
stringgrid1.Cells[j+1,i+1]:=floattostrF(5*random,fffixed,5,2);
end;
 
 
 
procedure TForm1.Button2Click(Sender: TObject);
 
var n,L,i,q,k:byte;
    Z:array of real;
begin
n:=3;
L:= 3*n+1;
SetLength(Z,L);
Z[0]:= StrToFloat(Edit1.Text);
k:=0;
for i:=0 to n-1 do
for q:=0 to n-1 do
 begin
  inc(k);
  Z[k]:= StrToFloat(StringGrid1.Cells[q+1,i+1]);
 end;
for i:=0 to L-1 do
Edit2.Text:=Edit1.Text+'; '+ floattostrF(z[i],fffixed,5,2);
 
end;
 
end.

@Puporev · 10.12.2013, 09:23

Delphi

1	Edit2.Text:=Edit2.Text+'; '+ floattostrF(z[i],fffixed,5,2);//не Edit1.Text+'; '

@Shkiperr88 · 10.12.2013, 09:25 **[ТС]**

ммм сори, за невнимательность)) Все робит, спасибо)

@Shkiperr88 0 / 0 / 0 Регистрация: 01.11.2013 Сообщений: 70
	10.12.2013, 09:25 [ТС]	15
	ммм сори, за невнимательность)) Все робит, спасибо) 0

@Shkiperr88 0 / 0 / 0 Регистрация: 01.11.2013 Сообщений: 70
	10.12.2013, 05:44 [ТС]	3
	Спасибо большое! Приведенный вами код работает) но в моей проге не хочет(( Добавлено через 6 минут Это наверное, потому что у меня фиксированные столбцы и строки есть? 0

@Puporev Почетный модератор 64227 / 47529 / 32736 Регистрация: 18.05.2008 Сообщений: 115,182
	10.12.2013, 06:30	4
	Сообщение от Shkiperr88 потому что у меня фиксированные столбцы и строки есть? Естественно, индексы же ячеек с числами увеличатся на 1 по строкам и столбцам 0

@Shkiperr88 0 / 0 / 0 Регистрация: 01.11.2013 Сообщений: 70
	10.12.2013, 06:33 [ТС]	5
	24 Z[k]:= StrToFloat(StringGrid1.Cells[q+1,i+1]); вот так? 0

@Puporev Почетный модератор 64227 / 47529 / 32736 Регистрация: 18.05.2008 Сообщений: 115,182
	10.12.2013, 06:36	6
	Да, так 0

@Shkiperr88 0 / 0 / 0 Регистрация: 01.11.2013 Сообщений: 70
	10.12.2013, 06:38 [ТС]	7
	А не подскажите, во что можно вывести эти параметры, кроме этой же таблицы. Может, как-то в EDIT можно? 0

@Shkiperr88 0 / 0 / 0 Регистрация: 01.11.2013 Сообщений: 70
	10.12.2013, 08:22 [ТС]	9
	Благодарю за помощь) Добавлено через 1 час 16 минут Сообщение от Puporev Edit1.Text:=Edit1.Text+' *'+ floattostrF(z[i],fffixed,5,2); этой строчкой он выводить только первое значение (из эдита) и последнее из массива, а надо все... 0

@Puporev Почетный модератор 64227 / 47529 / 32736 Регистрация: 18.05.2008 Сообщений: 115,182
	10.12.2013, 08:33	10
	Не знаю что ты там творишь, у меня все выводит Миниатюры 0

@Shkiperr88 0 / 0 / 0 Регистрация: 01.11.2013 Сообщений: 70
	10.12.2013, 08:53 [ТС]	11
	Код в точности, как у вас, может DELPHI барахлит?) Миниатюры 0

@Puporev Почетный модератор 64227 / 47529 / 32736 Регистрация: 18.05.2008 Сообщений: 115,182
	10.12.2013, 08:56	12
	Сообщение от Shkiperr88 Код в точности, как у вас, Этого не может быть. Просто скопируйте его и выложите. 0

Опции темы