Copy(S, 1) macht was? Wo ist der 3 Parameter?

[himitsu]

ups

Delphi-Quellcode:

var S: string := Value;
UniqueString(S);

oder

Delphi-Quellcode:

procedure TField.SetEditText({const} Value: string);
begin
  if Assigned(FOnSetText) then
  begin
    UniqueString(Value);
    FOnSetText(Self, Value);
  end
  else
    SetText(Value);
end;