Witam, mam sobie funkcję, która ma zwracać klasę TStringList. Chciałbym do tej klasy przypisać wartość text. Wszystko się kompiluje, tylko przy uruchomieniu programu i dotarciu do tej linijki kodu wysypuje mi błąd, że wartość jaką chcę przypisać nie jest nazwą komponentu.
funkcja.Text:=copy(ciag,x,y);
Po czym przenosi mnie do pliku control.inc do procedury:
procedure TControl.SetName(const Value: TComponentName);
var
ChangeText: Boolean;
begin
if Name=Value then exit;
ChangeText :=
(csSetCaption in ControlStyle) and not (csLoading in ComponentState) and
(Name = Text) and
((Owner = nil) or not (Owner is TControl) or not (csLoading in TControl(Owner).ComponentState));
inherited SetName(Value);
if ChangeText then Text := Value;
end;
Dodam, że jeśli wpiszę:
form1.memo1.text:=copy(ciag,x,y);
To nie ma żadnego problemu i wszystko działa tak jakbym chciał, jednak zamiast komponentu memo preferowałbym wcisnąć tę wartość do TStringListy.