Hissun: Hádám, že to máš nějak takhle:
type
TNeco = class(TObject)
private
FVlastnost: string;
public
procedure Uloz;
property Vlastnost: string read FVlastnost write FVlastnost;
end;
TJinyObjektJizVytvoreny = class
public
procedure JehoMetoda(var Vlastnost: string);
end;
var
JinyObjektJizVytvoreny: TJinyObjekt;
implementation
procedure TNeco.Uloz;
begin
JinyObjektJizVytvoreny.JehoMetoda(Vlastnost);
end;
a problém je v tom, že se konstantní objekt (tj. vlastnost Vlastnost) se snažíš narvat proceduře s parametrem var. Řešení: přepiš volání tělo procedure Uloz na
JinyObjektJizVytvoreny(FVlastnost);
P.S.: psát TNeco = class(TObject) je zbytečné, stačí napsat TNeco = class. Od TObjectu se dědí automaticky. |
Registrace nového uživatele 
