Umgang mit Interfaces

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

[Whookie]

Zitat von jaenicke:

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.

Die Bereichsüberprüfung (zusammen mit der I/O Prüfung und der Überlaufprüfung) ist absolute Pflicht, wir hatten schon Leute in der Firma, die uns durch abschalten Stress ohne Ende bereitet haben...
Performanz mag ja hin und wieder ein Faktor sein, Sicherheit geht aber vor!

[himitsu]

Aus diesem Grund hatte ich mir schon vor vielen Jahren mal gewünscht, daß diese Optionen standardmäßig in den Projektoptionen "erstmal" aktiviert sind (vorallem im Debug-Build).
Denn grade die Bereichsprüfungen würden viele Probleme lösen ... sehr viele Fragen hier (vorallem von Anfängern) sind auf Probleme mit falschen Indize zurückzuführen,
welche selbst gefunden worden wäre, wäre diese Option aktiv gewesen.

Und man sich das dann eben selber deaktivieren muß, wenn es unbedingt sein muß.
Aber seit den neuen Projektoptionen im Delphi, die scheinbar keine Vorgaben mehr ermöglichen, hab ich aufgegeben darauf zu hoffen. (oder warum sind immernoch die Debug-DCUs standardmäßig aktiv?)

[jaenicke]

Zitat von Whookie:

Die Bereichsüberprüfung (zusammen mit der I/O Prüfung und der Überlaufprüfung) ist absolute Pflicht, wir hatten schon Leute in der Firma, die uns durch abschalten Stress ohne Ende bereitet haben...
Performanz mag ja hin und wieder ein Faktor sein, Sicherheit geht aber vor!

Bei uns gab es in den letzten Jahren in der Hinsicht keinerlei Probleme. Auch in Tests mit aktivierter Prüfung gab es keine entsprechenden Fehler. Die Performance ist ohne die Option jedoch spür- und messbar besser. Deshalb macht es in unserem Fall keinen Sinn die Option zu aktivieren.

Wenn natürlich solche Fehler auch tatsächlich vorkommen, ist das etwas anderes. Da müsste man sich aber schon fragen woran das liegt und ob sich das vermeiden lässt.

[stahli]

Es schweift etwas vom Thema ab aber ich schließe mich da Himi an.
Die Grundeinstellungen sollten für Anfänger optimiert sein.
Wer dann weiß was er tut kann die Bereichsprüfung ausschalten und die Performance erhöhen.

[Whookie]

Zitat von jaenicke:

Wenn natürlich solche Fehler auch tatsächlich vorkommen, ist das etwas anderes. Da müsste man sich aber schon fragen woran das liegt und ob sich das vermeiden lässt.

Es gibt leider Menschen mit den unterschiedlichsten Charakterzügen...

Zitat von stahli:

...Die Grundeinstellungen sollten für Anfänger optimiert sein.
Wer dann weiß was er tut kann die Bereichsprüfung ausschalten und die Performance erhöhen.

...wobei, das erst die QM-Abteilung nach ausgiebigen Tests erlauben sollten.