pointer to an array in D und C++

[Virchov]

Moin!

Ich habe versucht, diese funktion in deplhi zu übersetzen. Alles klappt in die Zeile BinImgPlus[idx]=0; Kann man pointer auf array in Delphi so nicht deklarieren? Ich möchte aber in Delphi die array-Struktur beibehalten. Geht das?

Vielen Dank!

Delphi-Quellcode:

int BinImgMatchProMile(
  const bool* BinImg1, 
  const bool* BinImg2, 
  int nElements, 
  bool* BinImgPlus,
  bool* BinImgMinus)
{
  //local declares
  register idx, MatchCounter=0;

  //calculations
  for (idx=0; idx<nElements; ++idx){
    //local initialisation
    BinImgPlus[idx]=0;
    BinImgMinus[idx]=0;
    //Find out what to do for this element
    if (BinImg1[idx]==BinImg2[idx])
      //Got a match in case BinImg1 == BinImg2
      MatchCounter++;
    else if (BinImg1[idx] && (!BinImg2[idx]))
      //Got positive difference in case BinImg1 > BinImg2
      BinImgPlus[idx]=1;
    else if (BinImg2[idx] && (!BinImg1[idx]))
      //Got negatice difference in case BinImg1 < BinImg2
      BinImgMinus[idx]=1;
    //endif
  }
  return (int)(((float)MatchCounter/(float)nElements)*1000.0);
}

[Virchov]

Sorry Ich meinte - alles klappt BIS in die Zeie! :oops:

[Virchov]

Scheisse!

Könnte mir vielleicht doch einen kleinen Tipp geben? Ich bitte nicht darum, die Funktion umzuschreiben, blos wie macht man das in D mit pointer auf array?

[Virchov]

So ein Mist, alta. Ick wer gleich verrückt! Son Schheissforum! :wall:

[BluesKid]

Moin moin

Also, ganz sicher bin ich mir da jetzt auch nicht aber versuch doch mal Folgendes:

Delphi-Quellcode:

.
.
.
  type myArray = array[0..10] of String;
  var aArray : myArray;
      myPointer : ^myArray;
.
.
.
begin
  aArray[1] := 'Hallo Welt';
  myPointer := @aArray;
  showmessage(myPointer^[1]);
end;
.
.
.

oder hab ich dich da verstanden-Miss :wink:

schönen Gruß

Sam

[Virchov]

Danke Dir!

Ichh glaube, du verstandest michh schon richtig. In C wird als übergabeparameter bool* BinImgPlus,
bool* BinImgMinus deklariert und dann, wie du siehst, als arrays verwendet. Delphi lässt das leider nicht. Und deine Lösung mag schon richtig sein, man hat mir sonst auch geraten, Einen Array-Typ zu definieren. ..

[Virchov]

Geht nicht. Naja, egal , ich probiere mal weiter.

[roderich]

Zitat:

So ein Mist, alta. Ick wer gleich verrückt! Son Schheissforum!

nicht das Forum ist scheiße, sondern Deine Problembeschreibung (und vermutlich Dein Code).

Roderich

[NicoDE]

Zitat:

Zitat von Virchov

Son Schheissforum!

Mäßige Dich bitte.

Delphi-Quellcode:

type
  PBooleanArray = ^TBooleanArray;
  TBooleanArray = array [0..High(Integer) - 1] of Boolean;

function BinImgMatchProMile(const BinImg1, BinImg2: TBooleanArray;
  nElements: Integer; out BinImgPlus, BinImgMinus: TBooleanArray): Integer;
  cdecl;
var
  idx: Integer;
  MatchCounter: Integer;
begin
  Result := 0;
  if (nElements > 0) then
  begin
    MatchCounter := 0;
    // calculations
    for idx := 0 to nElements - 1 do
    begin
      // local initialisation
      BinImgPlus[idx] := False;
      BinImgMinus[idx] := False;
      // Find out what to do for this element
      if BinImg1[idx] = BinImg2[idx] then
        // Got a match in case BinImg1 = BinImg2
        Inc(MatchCounter)
      else if BinImg1[idx] and not BinImg2[idx] then
        // Got positive difference in case BinImg1 > BinImg2
        BinImgPlus[idx] := True
      else if BinImg2[idx] and not BinImg1[idx] then
        // Got negatice difference in case BinImg1 < BinImg2
        BinImgMinus[idx] := True;
    end;
    Result := Int64(MatchCounter) * 1000 div nElements;
  end;
end;

[kiar]

@nicoDE,
wenn ich es gekonnt hätte, hätte ich unwissend gelassen.

@virchow
beiße nie den Herrn der dich füttert.



raik

[Virchov]

Pfaffenrot??? Wo isn dette? In Tirol? :gruebel:

[Virchov]

Danke, Nico! Das ist wirklich nett von Dir!

Ich sitze schon einige Stunden um das Problem, also, war etwas gestresst. Tschuldigung.. :oops:

[Virchov]

Raik,Kiar, wie auch immer: Laß deine Ratschläge lieber bei sich. Ich beiße nicht und habe keinen Herrn, da ich schließlich auch kein Hund bin.

[sakura]

@Virchow:

:warn:

In Zukunft möchte ich diese Ausdrucksweise von Dir hier nie wieder lesen. Es geht uns allen um eine ordentliche Zusammenarbeit. Deshalb gleich eine zweite Bedingung an Dich. Wenn Du in Zukunft Fragen hast, dann stelle die bitte in einer Art und Weise, in welcher jeder versteht was Du willst.

:warn:

...:cat:...