Property einer Klasse als Var-Parameter einer Procedure übergeben

[himitsu]

Edit.SetText hat intern ein if FValue = Value then Exit; .
Also wäre bei vielen Property eine zusätliche Prüfung sinnlos/doppelt.

Delphi-Quellcode:

function TTestForm.AssignTheValue(aDescription:string; aString1: String; aString2: String): tCheckString;
const
  CompareOperator: array[TValueRelationship] of string = ('<', '=', '>');
begin
  Result.Error := CompareValue(aString1, aString2);
  Result.Value := aString2; //IfThen({aString1 = aString2} Result.Error=EqualsValue, aString1, aString2);
  WriteToLog(Format('%s: %s %s %s', [aDescription, aString1, CompareOperator[Result.Error], aString2]));
end;

Error?
Sieht eher wie ein "State" (Status) aus.