Stringgrids in Arrays auslesen

[5etH]

haben das ganze nun wie folgt gelöst xD

also falls es jemanden interessiert

Delphi-Quellcode:

var
    arrayEK, arrayVK, array3 : array of array of String;
    arrayB, array1, array2 : array of array of Extended;
    x,z : Integer;
begin

setlength(arrayEK, 255, 255);
setlength(arrayVK, 255, 255);
setlength(arrayB, 255, 255);
setlength(array1, 255, 255);
setlength(array2, 255, 255);
setlength(array3, 255, 255);

for z := 1 to form12.Stringgrid1.RowCount do
begin
   for x := 1 to form12.StringGrid1.ColCount-2 do
     begin
      arrayVK[z][x] := form12.StringGrid1.cells[z,x];
      arrayEK[z][x] := form11.stringgrid1.cells[z,x];
     end;
end;

for z := 1 to form12.Stringgrid1.RowCount do
begin
   for x := 1 to form12.StringGrid1.ColCount-2 do
     begin
      array1[z][x] := StrToFloat(arrayVK[z,x]);
      array2[z][x] := StrToFloat(arrayEK[z,x]);

     end;
end;

for z := 1 to form12.Stringgrid1.RowCount do
begin
   for x := 1 to form12.StringGrid1.ColCount-2 do
     begin
      arrayB[z][x] := (array2[z,x]) - (array1[z][x]);
   end;
end;

for z := 1 to form12.Stringgrid1.RowCount do
begin
   for x := 1 to form12.StringGrid1.ColCount-2 do
     begin
       array3[z][x] := FloatToStr(arrayB[z][x]);
   end;
end;

for z := 1 to form12.Stringgrid1.RowCount do
begin
   for x := 1 to form12.StringGrid1.ColCount-2 do
     begin
       form16.StringGrid1.cells[z,x] := array3[z][x];
   end;
end;