AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Mehrdim. SafeArray

Offene Frage von "wisher"
Ein Thema von wisher · begonnen am 11. Apr 2008 · letzter Beitrag vom 12. Apr 2008
 
wisher

Registriert seit: 28. Okt 2004
17 Beiträge
 
#1

Mehrdim. SafeArray

  Alt 11. Apr 2008, 19:48
Hallo,
ich möchte in meinem 2-dimensionalen SafeArray Werte speichern.
In der ersten Dimension einen Integer-Wert und in der zweiten Dimensionen einen jeweils zum Element der ersten Dimensionen gehörenden Wert. (auch integer)

Eindimensional klappt das gut, aber bei zwei Dimensionen habe ich irgendeinen Denkfehler drin. Der letzte Wert der ersten Dimension wird immer von einem Wert der zweiten Dimension überschrieben. anbei mal das Füllen des Array.

Delphi-Quellcode:

  var
  MySafeArray : PSafeArray
  aBound : array[0..1] of TSafeArrayBound;
  Dim : array[0..1] of Integer;
  arCols : array of array[0..1] of Integer;



  aBound[0].cElements := length(arCols);
  aBound[0].lLbound := 0;
  aBound[1].cElements := length(arCols);
  aBound[1].lLbound := 0;


   MySafeArray := SafeArrayCreate(VT_INT,2,aBound)

   If length(arCols)>0 then begin
       for i := low(arCols) to high(arCols) do begin
          Dim[0] := i;
          PutBreite(MySafeArray,Dim,arCols[i,0]);
       end;

       for i := low(arCols) to high(arCols) do begin
          Dim[1] := i;
          PutBreite(MySafeArray,Dim,arCols[i,1]);
       end;
   end;
  

  procedure PutBreite(pSA: PSafeArray; iPos: array of Integer; Breite: Integer);
  begin
     SafeArrayPutElement(pSA, iPos, Breite);
  end;
Ich mache irgendwas mit den Dimensionen falsch. Hat jemand eine Idee?

Danke und Gruß
Sascha
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 21: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-2025 by Thomas Breitkreuz