Код: Выделить всё
TMyClass = class(TForm)
procedure FormCreate(Sender: TObject);
private
FMyStringList: TStrings;
public
property MyStringList: TStrings read FMyStringList write FMyStringList;
function LoadMyList(F: string): integer;
end;
...
procedure TMyClass.FormCreate(Sender: TObject);
begin
MyStringList := TStrings.Create;
{пробовал создавать и между Application.FormCreate - Application.Run}
end;
function TMyClass.LoadMyList(F: string): integer;
begin
Result := -1;
if FileExists(F) then
Result := MyStringList.LoadFromFile(F); {на этом месте выделяет и дает ошибку}
end;
