Umgang mit Interfaces

[himitsu]

Man muß dann nur die Referenzzählung richtig implementieren.

z.B.
- von den Unterkomponenten die Referenzzählung auf den obersten Knoten weiterleiten (bzs, an den Besitzer)
- Rückwärtsreferenzen aus der Referenzzählung ausnehmen

[Whookie]

Zitat von himitsu:

- von den Unterkomponenten die Referenzzählung auf den obersten Knoten weiterleiten (bzs, an den Besitzer)
- Rückwärtsreferenzen aus der Referenzzählung ausnehmen

..wenn ich mir das so recht überlege muss die Not schon groß sein, so etwas anzugehen (schon gar bei den nur rudimentär vorhandenen Debugmöglichkeiten von XE4 )...

[jaenicke]

Ich habe das bei mir so, dass sich die GUI-Interfaces gegenseitig mit den dahinterliegenden Interfaces einklinken. Wenn man das sauber umsetzt und klar ist wer sich wann und wie wieder deregistriert, hatte ich damit noch nicht die kleinsten Probleme.

Und der Debugger funktioniert bei mir problemlos, außer wenn wieder jemand with benutzt hat. (Das geht dann eh gleich an den Pranger...)

[Whookie]

Zitat von jaenicke:

Und der Debugger funktioniert bei mir problemlos, außer wenn wieder jemand with benutzt hat. (Das geht dann eh gleich an den Pranger...)

Dann verurteile ich Dich mal zu 30 Tagen XE4-Debugging... da geht auch alles problemlos ... ... solange man nicht sowas komplexes wie ein Array oder eine Liste verwendet

[jaenicke]

Zitat von Whookie:

Dann verurteile ich Dich mal zu 30 Tagen XE4-Debugging... da geht auch alles problemlos ... ... solange man nicht sowas komplexes wie ein Array oder eine Liste verwendet

Wir haben XE4 seit dem Erscheinen bis zum Update 1 von XE5 genutzt. Bei mir gibt es mit Array oder Listen kein Problem. Grad nochmal ausprobiert.

[Whookie]

Zitat von jaenicke:

Wir haben XE4 seit dem Erscheinen bis zum Update 1 von XE5 genutzt. Bei mir gibt es mit Array oder Listen kein Problem. Grad nochmal ausprobiert.

Dann versuch mal das komplexe Beispiel: http://www.delphipraxis.net/175322-x...ml#post1218435


Ach ja, und weil dein XE4 ja so toll geht probier mal das:

Code:

unit uTest;

interface

Const
  maxXData = 4;
  maxYData = 4;

Type
  TData = Array[0..maxXData+1, 0..maxYData+1] Of Char;

Procedure TestIt;

implementation

Const
  CX: Array[0..7] Of Integer = (-1,  0,  1,  1,  1,  0, -1, -1);
  CY: Array[0..7] Of Integer = (-1, -1, -1,  0,  1,  1,  1,  0);

Var
  AData: TData;


function FindWord( AString: String): Boolean;
var
  iX: Integer;
  iY: Integer;

  function WordAt(AIdx, x,y, ox,oy: Integer): Boolean;
  var
    i: Integer;
  begin
    Result := False;

    if AString[AIdx] = AData[x,y] then
    begin
      Inc(AIdx);
      if AIdx > Length(AString) then
      begin
        Result := TRUE;
      end
      else
      begin
        for i := 0 to 7 do
        begin
          if Not (((x+CX[i])=ox) And ((y+CY[i])=oy)) then  //<--------- Breakpoint
          begin
            Result := WordAt(AIdx, x+CX[i], y+CY[i], x, y);
            if Result then
              Break;
          end;
        end;
        i := 0;
      end;
    end
    else
    begin
      i := 0;
    end;
  end;

begin
  Result := FALSE;
  for iX := 0 to maxXData-1 do
  begin
    for iY := 0 to maxYData-1 do
    begin
      if WordAt(1, iX+1, iY+1, 0, 0) then
      begin
        //Mark AString as found
      end;
    end;
  end;
end;


Procedure TestIt;
var
  iX: Integer;
  iY: Integer;
begin
  for iX := 0 to maxXData-1 do
  begin
    for iY := 0 to maxYData-1 do
    begin
      AData[iX, iY] := Char(Ord('A')+Random(Ord('Z')-Ord('A')+1));
    end;
  end;
  AData[3,3] := 'T';
  //
  FindWord('TEST');
end;
end.

Mach einen Breakpoint an der markierten Stelle und füge folgendes in die Liste der Überwachten Ausdrücke ein:

AData[x,y]
AString[AIdx]
(x+CX[i])
(y+CY[i])

Dann kriegst du nämlich 4 mal "Nicht verfügbarer Wert" ... soviel zu "..Bei mir gibt es mit Array oder Listen kein Problem..."

[jaenicke]

Zitat von Whookie:

Dann versuch mal das komplexe Beispiel: http://www.delphipraxis.net/175322-x...ml#post1218435

Das Entscheidende steht in dem QC Eintrag... mit Bereichsüberprüfung. Die habe ich nie an außer zu speziellen Debugzwecken oder für Unittests etc., das macht das Programm ansonsten nur unnötig langsam.