![]() |
Stringgrids in Arrays auslesen
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:
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.
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; Vielen dank im vorraus Borschti |
Re: Stringgrids in Arrays auslesen
Ich habe grad ein
![]() 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 |
Re: Stringgrids in Arrays auslesen
Wir arbeiten zusammen an dem kleinen Projekt ;)
|
Re: Stringgrids in Arrays auslesen
Ihr macht ja auch die selben Fehler ;)
|
Re: Stringgrids in Arrays auslesen
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 ? |
Re: Stringgrids in Arrays auslesen
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; |
Re: Stringgrids in Arrays auslesen
[Durch den Teebeutel im Server ist mein Edit jetzt sher verspätet angekommen]
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:59 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz