ich weiß das sieht bescheuert aus
aber folgendes konstrukt funktioniert:
Delphi-Quellcode:
function CheckTrue(const A,B,C,D): Boolean;
const C2: Integer = 3;
D2: string = 'tee';
begin
Result := (Pointer(A) = Pointer(B)) and // (A = B) and ((C <> 3) or (D = 'tee'))
((Pointer(C) <> Pointer(C2)) or (Pointer(D) = Pointer(D2)));
end;
procedure TForm1.Button1Click(Sender: TObject);
var A,B,D: string; // man kommt leider nich drumrum es vorher
C: Integer; // in eine variable zu schreiben
const F: array[Boolean] of string[5] = ('False','True'); //nur zur anzeige
begin
A := 'a'; B := 'a'; C := 5; D := 'tee'; //initialisieren
Edit1.Text := F[CheckTrue(A,B,C,D)]; //das verblüffende ergebnis sehen :-D
end;
vielleicht hilft dir das ja weiter, wenn du es noch allgemeiner umschreiben willst
