Stringgrids in Arrays auslesen

[Borschti]

Hallo,

wir versuchen zwei StringGrids in jeweils ein array für ein StringGrid auszulesen, hierzu hatten wir ein paar for-schleifen programmiert welche den Inhalt der Zellen der StringGrids in die Felder des Arrays schreiben sollen.

Delphi-Quellcode:

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

Da sich die dritte Tabelle aus den ersten beide errechnet brauchen wir ja einen Gleitkommawert, nur leider ist das sehr viel schreibarbeit, wir sind mitlerweile bei 7 schleifen angekommen, und so langsam sind wir am verzweifeln, da wir bald selber nichtmer ganz den Durchblick haben. Vielleicht kennt ihr eine bessere Lösung dieses Problem anzugehen oder eine Methode wie das schnell und einfach lösbar ist.

Vielen dank im vorraus

Borschti

[sirius]

Ich habe grad ein Déjà vu

Aber wieso rechnet ihr nicht direkt:

Delphi-Quellcode:

for z := 0 to RowCount-1 do 
begin 
   for x := 0 to ColCount-1 do 
     StringGrid3.cells[x,z]:=
       floattostr(strtofloat(StringGrid1.cells[x,z]) * strtofloat(StringGrid2.cells[x,z]));
     
end;
//evtl noch ein try except

[Borschti]

Wir arbeiten zusammen an dem kleinen Projekt

[DeddyH]

Ihr macht ja auch die selben Fehler

[Borschti]

ist ja kein wunder wenn der neben mir sitzt xD

mal spaß bei seite __________________________________________________ ___________________________Spaß

habt ihr vielleicht einen lösungsansatz oder ist es überhaupt möglich das so mit einem dynamischen array zu lösen ?

[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;

[sirius]

[Durch den Teebeutel im Server ist mein Edit jetzt sher verspätet angekommen]