BoolToStr wirft Access Violation

[hyype]

Hallo Community,

ich bin mal wieder einem Mysterium auf der Spur:
die von mir schon mehrfach verwendete Methode BoolToStr produziert in meinem Projekt eine Zugriffsverletzung,
wenn der boolean-Wert true ist. Bei false nicht!
Ich habe ein neues Projekt erstellt um das zu testen und dort geht es, obwohl es die gleiche Methode ist, die gleiche Delphi-Version, eben alles gleich.
Ich benutze die Methode BoolToStr ohne den optionalen Parameter, packe also nur meinen boolean rein a la

Delphi-Quellcode:

TMyArray = record
  i  : integer;
  b  : boolean;
  s  : String;
  function GetSelfAsString : string; //String-Darstellung des Objekts
end;

function TMyArray.GetSelfAsString: string;
begin
  result := 'i=' + inttostr(i)    + delimiter2 +
            'b=' + booltostr(b)   + delimiter2 +
            's=' + s;
end;

meine delphi-version ist übrigens xe2, nicht 5

[mkinzler]

Was für einen Wert hat b genau? Den True ist als nicht falsch also <> 0 definiert.
In Delphi hat True normalerweise den wert 1 in C (WinAPI) aber -1 ( Komplement von 0)

[hyype]

als integer gecastet 108, interessant, 1 sollte es sein, wie kann denn sowas sein? ^^
(ich weiß, dass der boolean nur das rechteste bit des bytes interpretiert und wenn das 1 ist, ist es true, andernfalls false.
aber wie schaffe ich es, die anderen 7 bits zu befüllen?
indem ich bit-shifting betreibe (shl, shr) ???

[mkinzler]

Implementiere am Besten eine eigene Funktion dafür.

Wenn 0 dann False sonst True

[p80286]

Zitat von hyype:

als integer gecastet 108, interessant, 1 sollte es sein, wie kann denn sowas sein? ^^

Ein falscher Typ auf einem Pointer?
Ein Array über dessen Grenzen geschrieben wurde?
so als Beispiele.

Zitat von hyype:

aber wie schaffe ich es, die anderen 7 bits zu befüllen?
indem ich bit-shifting betreibe (shl, shr) ???

wie wäre es mit: integer(mybool):=12345; oder

Delphi-Quellcode:

type
  r1 = packed record
    w1:word;
    b1:boolean;
  end;

begin
  move(@irgendwo,@w1,6);
end;

Gruß
K-H
[/DELPHI]

[Stevie]

Zitat von hyype:

ich weiß, dass der boolean nur das rechteste bit des bytes interpretiert und wenn das 1 ist, ist es true, andernfalls false.

Das ist nicht ganz richtig. 0 ist false, alles andere ist true. Daher auch immer die Anmerkung, dass man niemals if Bedingung = True then schreiben sollte, denn es kann passieren, dass die Bedingung zwar wahr aber nicht gleich True ist.

Beweis:

Delphi-Quellcode:

if Boolean(2) then
  ShowMessage('2 ist wahr');
if Boolean(2) <> True then
  ShowMessage('2 ist ungleich true');

[himitsu]

Zitat von mkinzler:

Implementiere am Besten eine eigene Funktion dafür.

Oder die einfache Lösung:
BoolToStr(b <> False) und falls es verständlicher sein soll BoolToStr(b <> False, True) also einfach den Boolean "neu berechnen" lassen, bzw. einen neuen Boolean zu erstellen.

Aber am Besten du reparierst die Stelle, wo dieser Boolean befüllt wird, damit erst garnicht dieses böse "true" darin auftaucht.




PS: Seit einer Weile besitzen Objekte eine neue Methode:
function ToString: string; virtual; (man kann sie überschreiben und so für eigene Objekte diese Funktionalität implementieren)

Daher würde ich eher empfehlen das GetSelfAsString in ToString umzubenennen, damit du ein einheitliches System bekommst.

[hyype]

hallo und dankeschön an alle
ich befürchte fast, in meinem fall liegt es wohl an move...
ich habe dazu eine frage und würde sie hier einfach mal stellen und keinen neuen thread aufmachen:
gesetz dem fall, mein record beinhaltet einen string
(genauer gesagt ist es ein array of string, wobei weder die länge des arrays zur designzeit fest definiert ist, noch die der enthaltenen strings (ist nicht von mir))
und es gibt ein array of record von diesem record
und es wird ein move gemacht a la

Delphi-Quellcode:

  move(MyArrayOfMyRecord[i], MyArrayOfMyRecord[i-1], (length(MyArrayOfRecord)-i) * sizeof(MyRecord));
  setlength(MyArrayOfMyRecord, length(MyArrayOfMyRecord)-1);

was ist das Ergebnis? Kauderwelsch oder? ^^
Weil er kann ja die Größe meines Records nicht anhand des Typs bestimmen, weil weder Länge des Strings, noch Länge des StringArrays fest sind.
Er könnte höchstens die Größe eines ganz bestimmten Objektes dieses Typs ermitteln, was bedeuten würde, ich müsste die Summe an Bytes, die er moven soll, selbst bestimmen aus der Summe der Größe aller zu verschiebenden Elemente anstatt die Größe des Records mit der Anzahl zu multiplizieren, richtig?
Ließe sich dieses Problem umgehen, wenn man aus dem Record eine Klasse machen würde?

@kinzler: ToString kenn ich doch von Java, da hat Delphi wohl abgeguckt?

[Bummi]

Move mit Strings in Records gehen nicht.
Wenn Du so etwas brauchst dann in der Art:
mytext: array[0..20] of AnsiChar o.ä.

[hyype]

ok, irgendwie "ringt das eine bell"
und wenn ich aus dem Record ne Klasse mache, würde es dann gehen?
Das Problem bleibt ja eigentlich das gleiche, die Größe des Strings (und damit auch der Klasse) hängt davon ab, was man reinschreibt (??)