|
(Moderator)
Registriert seit: 6. Mai 2005
Ort: Berlin
4.956 Beiträge
Delphi 2007 Enterprise
|
Re: Überprüfen, ob drei Vergleiche gleich sind
13. Aug 2009, 14:19
Delphi-Quellcode:
Function XZiseSeinVergleich (const S1,S2,S3 : String) : Boolean;
Var
b : Boolean;
Begin
b := (S2 = '');
Result := ((S1 = '') = b) And (b = (S3 = ''))
End;
"Wenn ist das Nunstruck git und Slotermeyer? Ja! Beiherhund das Oder die Flipperwaldt gersput!"
(Monty Python "Joke Warefare")
|