Witam mam taki mały problemik i zastanawiam się, jak to ugryźć, możliwe że ktoś to rozwiązał, a ja jakoś znaleźć nie mogę
TMyClass = class
private
FSTR1: string;
FSTR2: string;
...
FSTRXX: string;
procedure SetStr1(S: string);
procedure SetStr2(S: string);
.....
public
property STR1: string read FSTR1 write SetSTR1;
.....
property STRXX: string read FSTRXX write SetSTRXX;
end;
procedure TMyClass.SetStr1(S: string)
begin
//to samo dla każdej procedury pomijając że innej zmiennej dotyczy
if FSTR1 <> S then
FSTR1 := _ta_sama_funkcja(S);
FSTR1 := S;
end;
procedure TMyClass.SetStrXX(S: string)
begin
//to samo dla każdej procedury pomijając że innej zmiennej dotyczy
if FSTR1 <> S then
FSTRXX := _ta_sama_funkcja(S);
FSTRXX := S;
end;
Czy da się jakoś to uprościć by nie tworzyć XX procedur
Zwłaszcza że rozchodzi się o jedną w miarę uniwersalną procedurę
Pozdrawiam